| File |
Line number |
Procedure |
Code |
|
./pkg/land/land_albedo.F |
56 |
LAND_ALBEDO |
_RL albSnow, ageSnow, hSnow, Tsf |
|
./pkg/land/land_albedo.F |
68 |
LAND_ALBEDO |
hSnow = land_hSnow(i,j,bi,bj) |
|
./pkg/land/land_albedo.F |
87 |
LAND_ALBEDO |
& +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow) |
|
./pkg/thsice/thsice_albedo.F |
107 |
THSICE_ALBEDO |
hs = hSnow(i,j) |
|
./pkg/thsice/thsice_albedo.F |
12 |
THSICE_ALBEDO |
I iceMask, hIce, hSnow, tSrf, ageSnw, |
|
./pkg/thsice/thsice_albedo.F |
56 |
THSICE_ALBEDO |
_RL hSnow (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_check_conserv.F |
104 |
THSICE_CHECK_CONSERV |
& hIce, hSnow |
|
./pkg/thsice/thsice_check_conserv.F |
10 |
THSICE_CHECK_CONSERV |
I iceFrac, compact, hIce, hSnow, qicen, |
|
./pkg/thsice/thsice_check_conserv.F |
38 |
THSICE_CHECK_CONSERV |
_RL compact, hIce, hSnow, qicen(nlyr) |
|
./pkg/thsice/thsice_check_conserv.F |
76 |
THSICE_CHECK_CONSERV |
& + compact*( rhos*hSnow*qsnow |
|
./pkg/thsice/thsice_check_conserv.F |
80 |
THSICE_CHECK_CONSERV |
& - compact*( rhos*hSnow + rhoi*hIce ) |
|
./pkg/thsice/thsice_extend.F |
13 |
THSICE_EXTEND |
U icFrac, hIce, hSnow, |
|
./pkg/thsice/thsice_extend.F |
219 |
THSICE_EXTEND |
hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac |
|
./pkg/thsice/thsice_extend.F |
237 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
78 |
THSICE_EXTEND |
_RL hSnow (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_bulkf.F |
15 |
THSICE_GET_BULKF |
I icFlag, hSnow, Tsf, |
|
./pkg/thsice/thsice_get_bulkf.F |
55 |
THSICE_GET_BULKF |
_RL hSnow (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_get_bulkf.F |
89 |
THSICE_GET_BULKF |
IF ( hSnow(i,j).GT.3. _d -1 ) THEN |