Changeset 2997 for branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90

Timestamp:

2011-10-25T20:14:21+02:00 (13 years ago)

Author:

cetlod

Message:

branch dev_LOCEAN_2011 : minor corrections to ensure PISCES restartability

File:

• branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90 (modified) (1 diff)

branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90

@@ -457 +457 @@
          DO jj = 1, jpj
             DO ji = 1,jpi
-               zmax  = MAX( heup(ji,jj), hmld(ji,jj) )
-               zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 5000._wp
+      !         zmax  = MAX( heup(ji,jj), hmld(ji,jj) )
+      !         zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 5000._wp
+               zmax = hmld(ji,jj)
+               zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 4000._wp
                wsbio4(ji,jj,jk) = wsbio2 + ( 200.- wsbio2 ) * zfact
             END DO