mld2p4-2:

mlprec/impl/mld_ccprecset.F90 mlprec/impl/mld_dcprecset.F90 mlprec/impl/mld_scprecset.F90 mlprec/impl/mld_zcprecset.F90 Revised CSETC
12 years ago · b35b914792
parent 37d8c2763e
commit b35b914792
4 changed files with 4 additions and 4 deletions
--- a/mlprec/impl/mld_ccprecset.F90
+++ b/mlprec/impl/mld_ccprecset.F90
@ -645,7 +645,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev)
  if (val >=0)  then 
    call p%set(what,val,info,ilev=ilev)
  else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
  end if

 end subroutine mld_ccprecsetc
--- a/mlprec/impl/mld_dcprecset.F90
+++ b/mlprec/impl/mld_dcprecset.F90
@ -645,7 +645,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev)
  if (val >=0)  then 
    call p%set(what,val,info,ilev=ilev)
  else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
  end if

 end subroutine mld_dcprecsetc
--- a/mlprec/impl/mld_scprecset.F90
+++ b/mlprec/impl/mld_scprecset.F90
@ -645,7 +645,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev)
  if (val >=0)  then 
    call p%set(what,val,info,ilev=ilev)
  else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
  end if

 end subroutine mld_scprecsetc
--- a/mlprec/impl/mld_zcprecset.F90
+++ b/mlprec/impl/mld_zcprecset.F90
@ -645,7 +645,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev)
  if (val >=0)  then 
    call p%set(what,val,info,ilev=ilev)
  else
-    call p%precv(ilev_)%set(what,val,info)
+    call p%precv(ilev_)%set(what,string,info)
  end if

 end subroutine mld_zcprecsetc