Changeset 159 for trunk/NEMO/LIM_SRC

Timestamp:

2004-11-03T15:44:52+01:00 (19 years ago)

Author:

opalod

Message:

CT + CL : BUGFIX107 : Remove the update of non solar heat flux over sea-ice (qnsr_ice_1d(:) array) in coupled mode

File:

• trunk/NEMO/LIM_SRC/limthd_zdf.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limthd_zdf.F90

@@ -357 +357 @@
        DO ji = kideb, kiut
           sist_1d(ji) = MIN( ztsmlt(ji) , sist_1d(ji) )
-#if defined key_coupled
-          qnsr_ice_1d(ji) =  qnsr_ice_1d(ji) - ( emic * stefan * sist_1d(ji) * sist_1d(ji) * sist_1d(ji) * sist_1d(ji) )
-#else          
+#if ! defined key_coupled
           qnsr_ice_1d(ji) = qnsr_ice_1d(ji) + dqns_ice_1d(ji) * ( sist_1d(ji) - zts_old(ji) )
           qla_ice_1d (ji) = qla_ice_1d (ji) + dqla_ice_1d(ji) * ( sist_1d(ji) - zts_old(ji) )