| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_albedo.F |
121 |
THSICE_ALBEDO |
albedo = albsno + (albice-albsno)*EXP(-hs/hAlbSnow) |
|
./pkg/thsice/THSICE_PARAMS.h |
102 |
NO PROCEDURE |
_RL hAlbSnow |
|
./pkg/thsice/THSICE_PARAMS.h |
75 |
NO PROCEDURE |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
|
./pkg/thsice/thsice_readparms.F |
103 |
THSICE_READPARMS |
hAlbSnow = 0.30 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
234 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: hAlbSnow =',hAlbSnow |
|
./pkg/thsice/thsice_readparms.F |
54 |
THSICE_READPARMS |
& albIceMax, albIceMin, hAlbIce, hAlbSnow, |
|
./pkg/land/land_readparms.F |
106 |
LAND_READPARMS |
& albColdSnow, albWarmSnow, albOldSnow, hAlbSnow |
|
./pkg/land/land_readparms.F |
155 |
LAND_READPARMS |
hAlbSnow = 0.30 _d 0 |
|
./pkg/land/land_readparms.F |
392 |
LAND_READPARMS |
CALL WRITE_0D_R8(hAlbSnow, INDEX_NONE,'hAlbSnow =', |
|
./pkg/land/land_albedo.F |
83 |
LAND_ALBEDO |
& +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow) |
|
./pkg/land/LAND_PARAMS.h |
81 |
NO PROCEDURE |
& albColdSnow, albWarmSnow, albOldSnow, hAlbSnow |
|
./pkg/land/LAND_PARAMS.h |
89 |
NO PROCEDURE |
_RL albColdSnow, albWarmSnow, albOldSnow, hAlbSnow |