| File |
Line number |
Procedure |
Code |
|
./pkg/exf/EXF_FIELDS.h |
190 |
NO PROCEDURE |
COMMON /exf_atm_temp_r/ atemp, aqh, hs, hl, lwflux, |
|
./pkg/exf/EXF_FIELDS.h |
194 |
NO PROCEDURE |
_RL hs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_bulkformulae.F |
492 |
EXF_BULKFORMULAE |
hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
518 |
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_getffields.F |
244 |
EXF_GETFFIELDS |
U hs, hs0, hs1, |
|
./pkg/exf/exf_getforcing.F |
212 |
EXF_GETFORCING |
& - hs(i,j,bi,bj) |
|
./pkg/exf/exf_init_varia.F |
206 |
EXF_INIT_VARIA |
O hs, hs0, hs1, |
|
./pkg/exf/exf_init_varia.F |
54 |
EXF_INIT_VARIA |
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 |