| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_get_exf.F |
122 |
THSICE_GET_EXF |
_RL tmpbulk |
|
./pkg/thsice/thsice_get_exf.F |
241 |
THSICE_GET_EXF |
tmpbulk = qsat_fac*EXP(-qsat_exp/Tsf) |
|
./pkg/thsice/thsice_get_exf.F |
242 |
THSICE_GET_EXF |
ssq(i,j) = tmpbulk/atmrho |
|
./pkg/thsice/thsice_get_exf.F |
285 |
THSICE_GET_EXF |
tmpbulk = cdrag_1/wsm + cdrag_2 + cdrag_3*wsm |
|
./pkg/thsice/thsice_get_exf.F |
286 |
THSICE_GET_EXF |
IF (tmpbulk.NE.0.) THEN |
|
./pkg/thsice/thsice_get_exf.F |
287 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/thsice/thsice_get_exf.F |
376 |
THSICE_GET_EXF |
tmpbulk= cdrag_1/usm + cdrag_2 + cdrag_3*usm |
|
./pkg/thsice/thsice_get_exf.F |
377 |
THSICE_GET_EXF |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
209 |
EXF_BULKFORMULAE |
_RL tmpbulk |
|
./pkg/exf/exf_bulkformulae.F |
290 |
EXF_BULKFORMULAE |
tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf) |
|
./pkg/exf/exf_bulkformulae.F |
291 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho |
|
./pkg/exf/exf_bulkformulae.F |
309 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
311 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
368 |
EXF_BULKFORMULAE |
tmpbulk = MIN(abs(huol),10. _d 0) |
|
./pkg/exf/exf_bulkformulae.F |
369 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |
|
./pkg/exf/exf_bulkformulae.F |
429 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
431 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
494 |
EXF_BULKFORMULAE |
tmpbulk = tau(i,j)*rd(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
495 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
496 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
516 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
518 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
520 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |