Changeset 2834 for branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

Timestamp:

2011-09-13T13:19:25+02:00 (13 years ago)

Author:

charris

Message:

#662 Tidying of sbc_cpl_ice_flx (mainly related to LIM2). There is still scope for cleaning up the use of ice fraction and lead fraction in the sbccpl routines, but best to wait until the LIM3 functionality is properly sorted.

File:

• branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90 (modified) (1 diff)

branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

@@ -372 +372 @@
           DO ji = kideb, kiut
              sist_1d(ji) = MIN( ztsmlt(ji) , sist_1d(ji) )
+             qla_ice_1d(ji) = -9999.   ! default definition, not used as parsub = 0. in this case
              zfcsu(ji)  = zksndh(ji) * ( ztbif(ji) - sist_1d(ji) )
           END DO