Changeset 1039


Ignore:
Timestamp:
2008-05-30T18:30:21+02:00 (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1037 r1039  
    154154               &                               fr1_i0    , fr2_i0     , cl_grid  ) 
    155155 
    156             ! CAUTION: ocean shortwave radiation sets to zero if more than 50% of sea-ice !!gm to be removed 
    157             DO jj = 1, jpj 
    158                DO ji = 1, jpi 
    159 !!                zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - freeze(ji,jj) )  )  ) 
    160 !!gm  BBBBBBBBUUUUUUGGGGGGGGGGGGGGGGG    zinda alway negatif   !!!   ???????? 
    161                   zinda    = MAX(  0.e0, SIGN(  1.e0, -( -1.5 - 1.e0 + frld(ji,jj) )  )  ) 
    162                   qsr(ji,jj) = zinda * qsr(ji,jj) 
    163                END DO 
    164             END DO 
    165  
    166156         CASE( 4 )           ! CORE bulk formulation 
    167157            CALL blk_ice_core( zsist , ui_ice , vi_ice   , alb_ice_cs ,                         & 
Note: See TracChangeset for help on using the changeset viewer.