Changeset 9604 for NEMO/trunk/src/ICE/icealb.F90
- Timestamp:
- 2018-05-18T09:53:22+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icealb.F90
r9598 r9604 4 4 !! Atmospheric forcing: Albedo over sea ice 5 5 !!===================================================================== 6 !! History : 4.0 ! 2017-07 (C. Rousset) Split ice and ocean albedos 6 !! History : 4.0 ! 2017-07 (C. Rousset) Split ice and ocean albedos 7 !! 4.0 ! 2018 (many people) SI3 [aka Sea Ice cube] 7 8 !!---------------------------------------------------------------------- 8 9 #if defined key_si3 … … 28 29 29 30 REAL(wp), PUBLIC, PARAMETER :: rn_alb_oce = 0.066 !: ocean or lead albedo (Pegau and Paulson, Ann. Glac. 2001) 30 31 REAL(wp) , PARAMETER :: ppc1 = 0.05 ! snow thickness (only for nn_ice_alb=0)32 REAL(wp) , PARAMETER :: ppc2 = 0.10 ! " "33 REAL(wp) , PARAMETER :: ppcloud = 0.06 ! cloud effect on albedo (only-for nn_ice_alb=0)34 REAL(wp) , PARAMETER :: pp1_c1 = 1. / ppc135 REAL(wp) , PARAMETER :: pp1_c2 = 1. / ppc236 31 ! 37 32 ! !!* albedo namelist (namalb)
Note: See TracChangeset
for help on using the changeset viewer.