mld2p4-2:

mlprec/mld_c_prec_type.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_prec_type.f90
 mlprec/mld_z_prec_type.f90

When nlev=1 make sure to start dump from 1.
stopcriterion
Salvatore Filippone 13 years ago
parent 534abb9345
commit f48e9487b5

@ -565,7 +565,7 @@ contains
if (present(istart)) then if (present(istart)) then
il1 = max(1,istart) il1 = max(1,istart)
else else
il1 = 2 il1 = min(2,iln)
end if end if
if (present(iend)) then if (present(iend)) then
iln = min(iln, iend) iln = min(iln, iend)

@ -565,7 +565,7 @@ contains
if (present(istart)) then if (present(istart)) then
il1 = max(1,istart) il1 = max(1,istart)
else else
il1 = 2 il1 = min(2,iln)
end if end if
if (present(iend)) then if (present(iend)) then
iln = min(iln, iend) iln = min(iln, iend)

@ -565,7 +565,7 @@ contains
if (present(istart)) then if (present(istart)) then
il1 = max(1,istart) il1 = max(1,istart)
else else
il1 = 2 il1 = min(2,iln)
end if end if
if (present(iend)) then if (present(iend)) then
iln = min(iln, iend) iln = min(iln, iend)

@ -565,7 +565,7 @@ contains
if (present(istart)) then if (present(istart)) then
il1 = max(1,istart) il1 = max(1,istart)
else else
il1 = 2 il1 = min(2,iln)
end if end if
if (present(iend)) then if (present(iend)) then
iln = min(iln, iend) iln = min(iln, iend)

Loading…
Cancel
Save