/[MITgcm]/MITgcm/pkg/thsice/thsice_albedo.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_albedo.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Thu May 25 18:03:24 2006 UTC revision 1.5 by jmc, Mon Jul 24 20:30:54 2006 UTC
# Line 109  C-end LANL albedo calculation Line 109  C-end LANL albedo calculation
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)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22