- Timestamp:
- 2017-06-06T09:39:43+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r8125 r8142 110 110 !!--------------------------------------------------------------------- 111 111 112 WRITE(numout,*) ' albedo_ice '113 WRITE(numout,*) ' ld_pnd : ', ld_pnd114 WRITE(numout,*) ' nn_ice_alb : ', nn_ice_alb115 116 112 ijpl = SIZE( pt_ice, 3 ) ! number of ice categories 117 113 … … 326 322 327 323 ! Depth-dependent ponded ice albedo 328 zhref_pnd = 0.05 ! Characteristic length scale for thickness dependence of ponded ice albedo, Lecomte et al (2015) 329 zalb_pnd = ralb_dp - ( ralb_dp - zalb_ice ) * EXP( - ph_pnd / zhref_pnd ) 324 IF ( ld_pnd ) THEN 325 zhref_pnd = 0.05 ! Characteristic length scale for thickness dependence of ponded ice albedo, Lecomte et al (2015) 326 zalb_pnd = ralb_dp - ( ralb_dp - zalb_ice ) * EXP( - ph_pnd / zhref_pnd ) 327 ELSE 328 zalb_pnd = ralb_dp 329 ENDIF 330 330 331 331 ! Surface albedo is weighted mean of snow, ponds and bare ice contributions
Note: See TracChangeset
for help on using the changeset viewer.