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.
13 years ago · f48e9487b5
parent 534abb9345
commit f48e9487b5
4 changed files with 4 additions and 4 deletions
--- a/mlprec/mld_c_prec_type.f90
+++ b/mlprec/mld_c_prec_type.f90
@ -565,7 +565,7 @@ contains
    if (present(istart)) then 
      il1 = max(1,istart)
    else
-      il1 = 2
+      il1 = min(2,iln)
    end if
    if (present(iend)) then 
      iln = min(iln, iend)
--- a/mlprec/mld_d_prec_type.f90
+++ b/mlprec/mld_d_prec_type.f90
@ -565,7 +565,7 @@ contains
    if (present(istart)) then 
      il1 = max(1,istart)
    else
-      il1 = 2
+      il1 = min(2,iln)
    end if
    if (present(iend)) then 
      iln = min(iln, iend)
--- a/mlprec/mld_s_prec_type.f90
+++ b/mlprec/mld_s_prec_type.f90
@ -565,7 +565,7 @@ contains
    if (present(istart)) then 
      il1 = max(1,istart)
    else
-      il1 = 2
+      il1 = min(2,iln)
    end if
    if (present(iend)) then 
      iln = min(iln, iend)
--- a/mlprec/mld_z_prec_type.f90
+++ b/mlprec/mld_z_prec_type.f90
@ -565,7 +565,7 @@ contains
    if (present(istart)) then 
      il1 = max(1,istart)
    else
-      il1 = 2
+      il1 = min(2,iln)
    end if
    if (present(iend)) then 
      iln = min(iln, iend)