Changeset 5206 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

Timestamp:

2015-04-13T12:13:10+02:00 (9 years ago)

Author:

cetlod

Message:

First improvment of diurnal cycle for passive tracers, see ticket #1484

File:

• branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90 (modified) (1 diff)

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

@@ -273 +273 @@
        END DO
 
-       IF( ltrcdm2dc_ice )THEN
-
+       IF( l_topdcy )THEN
+          !
           DO ji = kideb , kiut
-             zihsn  = MAX( zzero , SIGN (zone , -h_snow_1d(ji) ) )
-             zihic  = MAX( zzero , 1.0 - ( h_ice_1d(ji) / zhsu ) )
+             zihsn    = MAX( zzero , SIGN (zone , -h_snow_1d(ji) ) )
+             zihic    = MAX( zzero , 1.0 - ( h_ice_1d(ji) / zhsu ) )
              zi0(ji)  = zihsn * ( fr1_i0_1d(ji) + zihic * fr2_i0_1d(ji) )
              zexp     = MIN( zone , EXP( -1.5 * ( h_ice_1d(ji) - zhsu ) ) )
-             fstbif_daymean_1d(ji) = zi0(ji) * qsr_ice_mean_1d(ji) * zexp
+             fstbif_mean_1d(ji) = zi0(ji) * qsr_ice_mean_1d(ji) * zexp
           END DO
-
+          !
        ENDIF