| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
177 |
THSICE_GET_EXF |
ssq = tmpbulk/atmrho |
|
./pkg/thsice/thsice_get_exf.F |
277 |
THSICE_GET_EXF |
tau = atmrho*rd*ws |
|
./pkg/thsice/thsice_get_exf.F |
294 |
THSICE_GET_EXF |
evapLoc = -atmrho*exf_iceCe*wsm*delq |
|
./pkg/thsice/thsice_get_exf.F |
296 |
THSICE_GET_EXF |
hsLocal = atmcp*atmrho*exf_iceCh*wsm*deltap |
|
./pkg/thsice/thsice_get_exf.F |
298 |
THSICE_GET_EXF |
dEvdT = (atmrho*exf_iceCe*wsm)*(ssq*qsat_exp/Ts2) |
|
./pkg/thsice/thsice_get_exf.F |
300 |
THSICE_GET_EXF |
dfshdT = -atmcp*atmrho*exf_iceCh*wsm |
|
./pkg/exf/EXF_CONSTANTS.h |
135 |
NO PROCEDURE |
_RL atmrho |
|
./pkg/exf/EXF_CONSTANTS.h |
165 |
NO PROCEDURE |
& atmrho, |
|
./pkg/exf/exf_bulkformulae.F |
291 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho |
|
./pkg/exf/exf_bulkformulae.F |
316 |
EXF_BULKFORMULAE |
ustar(i,j) = sqrt(windStress/atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
318 |
EXF_BULKFORMULAE |
tau(i,j) = sqrt(windStress*atmrho) |
|
./pkg/exf/exf_bulkformulae.F |
436 |
EXF_BULKFORMULAE |
tau(i,j) = atmrho*rd(i,j)*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
515 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
517 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_readparms.F |
248 |
EXF_READPARMS |
atmrho = 1.200 _d 0 |
|
./pkg/exf/exf_readparms.F |
81 |
EXF_READPARMS |
& hu, ht, umin, atmrho, atmcp, cen2kel, gravity_mks, |
|
./pkg/exf/exf_summary.F |
114 |
EXF_SUMMARY |
CALL WRITE_0D_RL( atmrho, INDEX_NONE, 'atmrho =', |
|
./pkg/exf/exf_wind.F |
138 |
EXF_WIND |
recip_sqrtRhoA = 1. _d 0 / SQRT(atmrho) |