| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
124 |
NO PROCEDURE |
COMMON/FLUXES_2D_OCN/ qneto_2D, evapo_2D, runoff_2D, |
|
./pkg/atm2d/ATM2D_VARS.h |
127 |
NO PROCEDURE |
_RL qneto_2D(1:sNx,1:sNy) ! ocean surf. heat flux (W/m2) (+=upward) |
|
./pkg/atm2d/calc_1dto2d.F |
139 |
CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_qnet_ocn(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
160 |
CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocnq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
171 |
CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocn(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
224 |
INIT_2DFLD |
qneto_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
79 |
CALC_1DTO2D |
& qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/fixed_flux_add.F |
139 |
FIXED_FLUX_ADD |
qneto_2D(i,j)= qneto_2D(i,j) + qfadj |
|
./pkg/atm2d/relax_add.F |
134 |
RELAX_ADD |
qneto_2D(i,j)= qneto_2D(i,j) + qrelflux |
|
./pkg/atm2d/sum_ocn_fluxes.F |
64 |
SUM_OCN_FLUXES |
& qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1)) |