Changeset 1039
- Timestamp:
- 2008-05-30T18:30:21+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90
r1037 r1039 154 154 & fr1_i0 , fr2_i0 , cl_grid ) 155 155 156 ! CAUTION: ocean shortwave radiation sets to zero if more than 50% of sea-ice !!gm to be removed157 DO jj = 1, jpj158 DO ji = 1, jpi159 !! 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 DO164 END DO165 166 156 CASE( 4 ) ! CORE bulk formulation 167 157 CALL blk_ice_core( zsist , ui_ice , vi_ice , alb_ice_cs , &
Note: See TracChangeset
for help on using the changeset viewer.