Ignore:
Timestamp:
2017-06-06T09:39:43+02:00 (3 years ago)
Author:
vancop
Message:

Melt pond interfaces practically operational

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r8125 r8142  
    110110      !!--------------------------------------------------------------------- 
    111111 
    112       WRITE(numout,*) ' albedo_ice ' 
    113       WRITE(numout,*) ' ld_pnd     : ', ld_pnd 
    114       WRITE(numout,*) ' nn_ice_alb : ', nn_ice_alb 
    115  
    116112      ijpl = SIZE( pt_ice, 3 )                     ! number of ice categories 
    117113       
     
    326322 
    327323          ! 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 
    330330 
    331331          ! Surface albedo is weighted mean of snow, ponds and bare ice contributions 
Note: See TracChangeset for help on using the changeset viewer.