Changeset 2004 for branches/DEV_r1784_mid_year_merge_2010/NEMO/LIM_SRC_3/limtrp.F90

Timestamp:

2010-07-09T14:40:45+02:00 (14 years ago)

Author:

acc

Message:

ticket #684 step 8: Add in changes from the trunk between revisions 1879 and the 3.2.1 tag (rev 1986)

File:

• branches/DEV_r1784_mid_year_merge_2010/NEMO/LIM_SRC_3/limtrp.F90 (modified) (1 diff)

branches/DEV_r1784_mid_year_merge_2010/NEMO/LIM_SRC_3/limtrp.F90

@@ -204 +204 @@
          zusnit = 1.0 / REAL( initad ) 
 
-         IF ( MOD( nday , 2 ) == 0) THEN
+         IF( MOD( ( kt - 1) / nn_fsbc , 2 ) == 0) THEN        !==  odd ice time step:  adv_x then adv_y  ==!
             DO jk = 1,initad
                !--- ice open water area