109 |
C-- GISS model albedo calculation |
C-- GISS model albedo calculation |
110 |
c albice = 0.7 _d 0 |
c albice = 0.7 _d 0 |
111 |
|
|
112 |
C- New snow: (linear) transition between -10.oC and 0.oC |
C- New snow: (linear) transition between tempSnowAlb (oC) and 0.oC |
113 |
C from cold/dry snow albedo to warm/wet snow albedo |
C from cold/dry snow albedo to warm/wet snow albedo |
114 |
albNewSnow = albColdSnow |
IF ( tempSnowAlb.LT.0. _d 0 ) THEN |
115 |
|
albNewSnow = albColdSnow |
116 |
& + (albWarmSnow - albColdSnow) |
& + (albWarmSnow - albColdSnow) |
117 |
& *MAX( 0. _d 0, 1. _d 0 + MIN(Tsf/10. _d 0, 0. _d 0) ) |
& *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlb, 1. _d 0) ) |
118 |
|
ELSE |
119 |
|
albNewSnow = albColdSnow |
120 |
|
ENDIF |
121 |
C- albedo of snow is function of snow-age (make age units into days): |
C- albedo of snow is function of snow-age (make age units into days): |
122 |
albsno = albOldSnow |
albsno = albOldSnow |
123 |
& +(albNewSnow-albOldSnow)*EXP(-0.2 _d 0*age/86400. _d 0) |
& +(albNewSnow-albOldSnow)*EXP(-0.2 _d 0*age/86400. _d 0) |