Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedini.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedini.F90 (modified) (3 diffs, 1 prop)

trunk/NEMOGCM/NEMO/TOP_SRC/SED/sedini.F90

@@ -123 +123 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            ikt = MAX( INT( sbathy(ji,jj) )  - 1, 1 )
+            ikt = MAX( INT( sbathy(ji,jj) ), 1 )
             IF( tmask(ji,jj,ikt) == 1 ) epkbot(ji,jj) = zdta(ji,jj)
          ENDDO
@@ -135 +135 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            ikt = MAX( mbathy(ji,jj) - 1, 1 )
+            ikt = mbkt(ji,jj) 
             IF( tmask(ji,jj,ikt) == 1 ) epkbot(ji,jj) = e3t_0(ikt)
          ENDDO
@@ -443 +443 @@
 
       dtsed = rdt
+      nitsed000 = nit000
+      nitsedend = nitend
 #if ! defined key_sed_off
-      nitsed000 = nittrc000
-      nitsedend = nitend
       nwrised   = nwritetrc
 #else
-      nitsed000 = nit000
-      nitsedend = nitend
       nwrised   = nwrite
 #endif