Changeset 4306 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

Timestamp:

2013-11-21T15:59:57+01:00 (10 years ago)

Author:

cetlod

Message:

dev_MERGE_2013 : merge in the solar mean flux branch from MERCATOR, see ticket #1187

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

@@ -273 +273 @@
        END DO
 
+       IF( ltrcdm2dc_ice )THEN
+
+          DO ji = kideb , kiut
+             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
+          END DO
+
+       ENDIF
+
        !--------------------------------------------------------------------------------
        !  4. Computation of the surface temperature : determined by considering the