mld2p4-2:

mlprec/impl/mld_ccprecset.F90
 mlprec/impl/mld_dcprecset.F90
 mlprec/impl/mld_scprecset.F90
 mlprec/impl/mld_zcprecset.F90

Revised CSETC
stopcriterion
Salvatore Filippone 12 years ago
parent 37d8c2763e
commit b35b914792

@ -645,7 +645,7 @@ subroutine mld_ccprecsetc(p,what,string,info,ilev)
if (val >=0) then if (val >=0) then
call p%set(what,val,info,ilev=ilev) call p%set(what,val,info,ilev=ilev)
else else
call p%precv(ilev_)%set(what,val,info) call p%precv(ilev_)%set(what,string,info)
end if end if
end subroutine mld_ccprecsetc end subroutine mld_ccprecsetc

@ -645,7 +645,7 @@ subroutine mld_dcprecsetc(p,what,string,info,ilev)
if (val >=0) then if (val >=0) then
call p%set(what,val,info,ilev=ilev) call p%set(what,val,info,ilev=ilev)
else else
call p%precv(ilev_)%set(what,val,info) call p%precv(ilev_)%set(what,string,info)
end if end if
end subroutine mld_dcprecsetc end subroutine mld_dcprecsetc

@ -645,7 +645,7 @@ subroutine mld_scprecsetc(p,what,string,info,ilev)
if (val >=0) then if (val >=0) then
call p%set(what,val,info,ilev=ilev) call p%set(what,val,info,ilev=ilev)
else else
call p%precv(ilev_)%set(what,val,info) call p%precv(ilev_)%set(what,string,info)
end if end if
end subroutine mld_scprecsetc end subroutine mld_scprecsetc

@ -645,7 +645,7 @@ subroutine mld_zcprecsetc(p,what,string,info,ilev)
if (val >=0) then if (val >=0) then
call p%set(what,val,info,ilev=ilev) call p%set(what,val,info,ilev=ilev)
else else
call p%precv(ilev_)%set(what,val,info) call p%precv(ilev_)%set(what,string,info)
end if end if
end subroutine mld_zcprecsetc end subroutine mld_zcprecsetc

Loading…
Cancel
Save