| 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 |
146 |
NO PROCEDURE |
_RL precipi_2D(1:sNx,1:sNy) ! precip (m/s) (+=out of ocean, - definite) |
|
./pkg/atm2d/calc_1dto2d.F |
148 |
CALC_WGHT2D |
precipi_2D(i,j)= precipi_2D(i,j) + atm_precip(ind)*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
151 |
CALC_WGHT2D |
precipi_2D(i,j)= precipi_2D(i,j) - evapi_2D(i,j) |
|
./pkg/atm2d/calc_1dto2d.F |
217 |
INIT_2DFLD |
precipi_2D(i,j)= 0. _d 0 |
|
./pkg/atm2d/calc_1dto2d.F |
84 |
CALC_1DTO2D |
& precipi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/fixed_flux_add.F |
149 |
FIXED_FLUX_ADD |
precipi_2D(i,j)= precip0(i,j,1,1) |
|
./pkg/atm2d/fixed_flux_add.F |
159 |
FIXED_FLUX_ADD |
precipi_2D(i,j)= precipi_2D(i,j) + |
|
./pkg/atm2d/pass_thsice_fluxes.F |
47 |
PASS_THSICE_FLUXES |
sum_prcIce(i,j) = sum_prcIce(i,j) - precipi_2D(i,j)*rhofw |
|
./pkg/atm2d/pass_thsice_fluxes.F |
50 |
PASS_THSICE_FLUXES |
& sum_snowPrc(i,j) = sum_snowPrc(i,j) - precipi_2D(i,j)*rhofw |
|
./pkg/atm2d/relax_add.F |
154 |
RELAX_ADD |
& precipi_2D(i,j)= precipi_2D(i,j) + frelflux |