| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
142 |
NO PROCEDURE |
COMMON/FLUXES_2D_ICE/ qneti_2D, evapi_2D, precipi_2D, |
|
./pkg/atm2d/ATM2D_VARS.h |
144 |
NO PROCEDURE |
_RL qneti_2D(1:sNx,1:sNy) ! seaice surf. heat flux (W/m2) (+=upward) |
|
./pkg/atm2d/calc_1dto2d.F |
147 |
CALC_WGHT2D |
qneti_2D(i,j)= qneti_2D(i,j) + atm_qnet_ice(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
165 |
CALC_WGHT2D |
qneti_2D(i,j)=qneti_2D(i,j)+atm_dFdt_iceq(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
176 |
CALC_WGHT2D |
qneti_2D(i,j)= qneti_2D(i,j) + atm_dFdt_ice(ind)* |
|
./pkg/atm2d/calc_1dto2d.F |
226 |
INIT_2DFLD |
qneti_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
78 |
CALC_1DTO2D |
& qneti_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/pass_thsice_fluxes.F |
41 |
PASS_THSICE_FLUXES |
sFlx(i,j,0)= -qneti_2D(i,j) -netSW(i,j) + |
|
./pkg/atm2d/pass_thsice_fluxes.F |
43 |
PASS_THSICE_FLUXES |
sFlx(i,j,1)= -qneti_2D(i,j) -netSW(i,j) |