Symbol Description Uses
age 4


File Line number Procedure Code
./pkg/thsice/thsice_albedo.F 10 THSICE_ALBEDO 
     I                         hi, hs, Tsf, age,
./pkg/thsice/thsice_albedo.F 34 THSICE_ALBEDO 
      _RL  age                 ! snow age
./pkg/thsice/thsice_albedo.F 72 THSICE_ALBEDO 
     &       +(albNewSnow-albOldSnow)*exp(-0.2 _d 0*age/86400. _d 0)
./pkg/thsice/thsice_albedo.F 77 THSICE_ALBEDO 
        print*,'QQ - albedo problem', albedo, age, hs, albsno