| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
204 |
NO PROCEDURE |
COMMON /exfl_turb_r/ hs, hl |
|
./pkg/exf/EXF_FIELDS.h |
205 |
NO PROCEDURE |
_RL hs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
490 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
hs (i,j,bi,bj) = 0. _d 0 |
|
./pkg/exf/exf_diagnostics_fill.F |
47 |
EXF_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(hs , 'EXFhs ',0,1,0,1,1,myThid) |
|
./pkg/exf/exf_getforcing.F |
213 |
EXF_GETFORCING |
& - hs(i,j,bi,bj) |
|
./pkg/exf/exf_init.F |
53 |
EXF_INIT |
hs(i,j,bi,bj) = 0. |
|
./pkg/seaice/seaice_budget_ocean.F |
129 |
SEAICE_BUDGET_OCEAN |
hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J)) |
|
./pkg/seaice/seaice_budget_ocean.F |
138 |
SEAICE_BUDGET_OCEAN |
& - hs(I,J,bi,bj) - hl(I,J,bi,bj) |
|
./pkg/sphere/sphere.F |
179 |
SHC2GRID |
hs(i) = 0.0 |
|
./pkg/sphere/sphere.F |
186 |
SHC2GRID |
grid(i,lats) = hs(i) |
|
./pkg/sphere/sphere.F |
238 |
SHC4GRID |
hs(i) = grid(i,lats) |
|
./pkg/sphere/sphere.F |
423 |
SHC4ZONE |
hs(i) = hs(i)*scale |
|
./pkg/thsice/thsice_albedo.F |
107 |
THSICE_ALBEDO |
hs = hSnow(i,j) |
|
./pkg/thsice/thsice_albedo.F |
141 |
THSICE_ALBEDO |
albedo = albsno + (albice-albsno)*EXP(-hs/hAlbSnow) |
|
./pkg/thsice/thsice_albedo.F |
149 |
THSICE_ALBEDO |
sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) ) |
|
./pkg/thsice/thsice_albedo.F |
152 |
THSICE_ALBEDO |
& * hs/(hs + 0.02 _d 0) |
|
./pkg/thsice/thsice_albedo.F |
70 |
THSICE_ALBEDO |
_RL hs ! snow height |