| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
213 |
EXF_BULKFORMULAE |
_RL tmpbulk |
|
./pkg/exf/exf_bulkformulae.F |
296 |
EXF_BULKFORMULAE |
tmpbulk = cvapor_fac*exp(-cvapor_exp/Tsf) |
|
./pkg/exf/exf_bulkformulae.F |
301 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho_loc(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
303 |
EXF_BULKFORMULAE |
ssq = saltsat*tmpbulk/atmrho |
|
./pkg/exf/exf_bulkformulae.F |
320 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
322 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
382 |
EXF_BULKFORMULAE |
tmpbulk = MIN(abs(huol),10. _d 0) |
|
./pkg/exf/exf_bulkformulae.F |
383 |
EXF_BULKFORMULAE |
huol = SIGN(tmpbulk , huol) |
|
./pkg/exf/exf_bulkformulae.F |
438 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
440 |
EXF_BULKFORMULAE |
rdn(i,j) = SQRT(tmpbulk) |
|
./pkg/exf/exf_bulkformulae.F |
505 |
EXF_BULKFORMULAE |
tmpbulk = tau(i,j)*rd(i,j) |
|
./pkg/exf/exf_bulkformulae.F |
506 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
507 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj) |
|
./pkg/exf/exf_bulkformulae.F |
525 |
EXF_BULKFORMULAE |
tmpbulk = exf_scal_BulkCdn * |
|
./pkg/exf/exf_bulkformulae.F |
527 |
EXF_BULKFORMULAE |
ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./pkg/exf/exf_bulkformulae.F |
529 |
EXF_BULKFORMULAE |
vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)* |
|
./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) |