/[MITgcm]/MITgcm/pkg/land/land_albedo.F
ViewVC logotype

Diff of /MITgcm/pkg/land/land_albedo.F

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

revision 1.1 by jmc, Thu Mar 11 14:41:59 2004 UTC revision 1.2 by dfer, Wed Jan 31 23:02:06 2007 UTC
# Line 69  C       snow age  (units = days): Line 69  C       snow age  (units = days):
69    
70  C--------------------------------------------  C--------------------------------------------
71  C--- taken from thsice/thsice_albedo.F :  C--- taken from thsice/thsice_albedo.F :
72  C-    New snow: (linear) transition between -10.oC and 0.oC  C-    New snow: (linear) transition between tempSnowAlbL (oC) and 0.oC
73  C      from cold/dry snow albedo to warm/wet snow albedo  C      from cold/dry snow albedo to warm/wet snow albedo
74             albSnow = albColdSnow             IF ( tempSnowAlbL.LT.0. _d 0 ) THEN
75       &      + (albWarmSnow - albColdSnow)                 albSnow = albColdSnow
76       &       *MAX( 0. _d 0, 1. _d 0 + MIN(Tsf/10. _d 0, 0. _d 0) )       &         + (albWarmSnow - albColdSnow)
77         &         *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlbL, 1. _d 0) )
78               ELSE
79                   albSnow = albColdSnow
80               ENDIF
81  C-    albedo of snow is function of snow-age  C-    albedo of snow is function of snow-age
82             albSnow = albOldSnow             albSnow = albOldSnow
83       &       +(albSnow-albOldSnow)*exp(-0.2 _d 0*ageSnow)       &       +(albSnow-albOldSnow)*exp(-0.2 _d 0*ageSnow)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22