Changeset 11575 for NEMO/trunk/src/ICE
- Timestamp:
- 2019-09-19T12:51:37+02:00 (5 years ago)
- Location:
- NEMO/trunk/src/ICE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icesbc.F90
r11536 r11575 160 160 ALLOCATE( zalb(jpi,jpj), zmsk00(jpi,jpj) ) 161 161 162 WHERE( at_i_b < = epsi06)162 WHERE( at_i_b < 1.e-03 ) 163 163 zmsk00(:,:) = 0._wp 164 164 zalb (:,:) = rn_alb_oce -
NEMO/trunk/src/ICE/icewri.F90
r11536 r11575 164 164 IF( iom_use('icehpnd_cat' ) ) CALL iom_put( 'icehpnd_cat' , h_ip * zmsk00l + zmiss_val * ( 1._wp - zmsk00l ) ) ! melt pond frac for categories 165 165 IF( iom_use('iceafpnd_cat') ) CALL iom_put( 'iceafpnd_cat', a_ip_frac * zmsk00l ) ! melt pond frac for categories 166 IF( iom_use('icealb_cat' ) ) CALL iom_put( 'icealb_cat' , alb_ice * zmsk00l + zmiss_val * ( 1._wp - zmsk00l ) ) ! ice albedo for categories 166 167 167 168 !------------------
Note: See TracChangeset
for help on using the changeset viewer.