Changeset 8327 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

Timestamp:

2017-07-13T11:29:29+02:00 (7 years ago)

Author:

clem

Message:

STEP4 (3): put all thermodynamics in 1D (limthd_da OK)

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90 (modified) (1 diff)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

@@ -476 +476 @@
          DO jk = 1, nlay_i
             DO ji = kideb, kiut
-               ii =  MOD( npb(ji) - 1 , jpi ) + 1
-               ij =     ( npb(ji) - 1 ) / jpi + 1
+               ii =  MOD( idxice(ji) - 1 , jpi ) + 1
+               ij =     ( idxice(ji) - 1 ) / jpi + 1
                ! zswi0 = 1 if sm_i le zsi0 and 0 otherwise
                zswi0  = MAX( 0._wp , SIGN( 1._wp  , zsi0 - sm_i_1d(ji) ) )