Changeset 11229 for NEMO/trunk/src/ICE/icethd_do.F90
- Timestamp:
- 2019-07-09T14:22:12+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icethd_do.F90
r10994 r11229 128 128 129 129 ! Default new ice thickness 130 WHERE( qlead(:,:) < 0._wp ) ; ht_i_new(:,:) = rn_hinew131 ELSEWHERE ; ht_i_new(:,:) = 0._wp130 WHERE( qlead(:,:) < 0._wp .AND. tau_icebfr(:,:) == 0._wp ) ; ht_i_new(:,:) = rn_hinew ! if cooling and no landfast 131 ELSEWHERE ; ht_i_new(:,:) = 0._wp 132 132 END WHERE 133 133 … … 182 182 END DO 183 183 ! 184 ! bound ht_i_new (though I don't see why it should be necessary) 185 ht_i_new(ji,jj) = MAX( 0.01_wp, MIN( ht_i_new(ji,jj), hi_max(jpl) ) ) 186 ! 184 187 ENDIF 185 188 !
Note: See TracChangeset
for help on using the changeset viewer.