Changeset 1039 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2008-05-30T18:30:21+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: remove the treshold step of qsr in LIM 2.0 when there is more than 50% of sea-ice since it is useless, see ticket: #178

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -154 +154 @@
                &                               fr1_i0    , fr2_i0     , cl_grid  )
 
-            ! CAUTION: ocean shortwave radiation sets to zero if more than 50% of sea-ice !!gm to be removed
-            DO jj = 1, jpj
-               DO ji = 1, jpi
-!!                zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - freeze(ji,jj) )  )  )
-!!gm  BBBBBBBBUUUUUUGGGGGGGGGGGGGGGGG    zinda alway negatif   !!!   ????????
-                  zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - 1.e0 + frld(ji,jj) )  )  )
-                  qsr(ji,jj) = zinda * qsr(ji,jj)
-               END DO
-            END DO
-
          CASE( 4 )           ! CORE bulk formulation
             CALL blk_ice_core( zsist , ui_ice , vi_ice   , alb_ice_cs ,                         &