| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
217 |
EXF_BULKFORMULAE |
_RL tmpbulk |
|
./pkg/exf/exf_bulkformulae.F |
298 |
EXF_BULKFORMULAE |
tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf) |
|
./pkg/exf/exf_bulkformulae.F |
303 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho_loc(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
305 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho |
|
./pkg/exf/exf_bulkformulae.F |
322 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
324 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
384 |
EXF_BULKFORMULAE |
tmpbulk = MIN(abs(huol),10. _d 0) |
|
./pkg/exf/exf_bulkformulae.F |
385 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |
|
./pkg/exf/exf_bulkformulae.F |
440 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
442 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
507 |
EXF_BULKFORMULAE |
tmpbulk = tau(i,j)*rd(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
508 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
509 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
261 |
EXF_WIND |
tmpbulk = exf_scal_BulkCdn |
|
./pkg/exf/exf_wind.F |
263 |
EXF_WIND |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
265 |
EXF_WIND |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_wind.F |
68 |
EXF_WIND |
_RL wsm, tmpbulk |
|
./pkg/thsice/thsice_get_exf.F |
130 |
THSICE_GET_EXF |
_RL tmpbulk |
|
./pkg/thsice/thsice_get_exf.F |
248 |
THSICE_GET_EXF |
tmpbulk = qsat_fac*EXP(-qsat_exp/Tsf) |
|
./pkg/thsice/thsice_get_exf.F |
253 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho_loc(i,j) |
|
./pkg/thsice/thsice_get_exf.F |
255 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho |
|
./pkg/thsice/thsice_get_exf.F |
312 |
THSICE_GET_EXF |
tmpbulk = cdrag_1/wsm + cdrag_2 + cdrag_3*wsm |
|
./pkg/thsice/thsice_get_exf.F |
313 |
THSICE_GET_EXF |
IF (tmpbulk.NE.0.) THEN |
|
./pkg/thsice/thsice_get_exf.F |
314 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
406 |
THSICE_GET_EXF |
tmpbulk= cdrag_1/usm + cdrag_2 + cdrag_3*usm |
|
./pkg/thsice/thsice_get_exf.F |
407 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |