| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
212 |
NO PROCEDURE |
COMMON/ICE_FLUXES_PASS/ netSW, sFlx, dTsurf, pass_prcAtm |
|
./pkg/atm2d/ATM2D_VARS.h |
219 |
NO PROCEDURE |
_RL pass_prcAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! total precip -> seaice top (kg/m2/s, +=precip to ice) |
|
./pkg/atm2d/atm2d_read_pickup.F |
57 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_prcAtm, 14, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
167 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_prcAtm, 14,myIter,myThid ) |
|
./pkg/atm2d/forward_step_atm2d.F |
160 |
FORWARD_STEP_ATM2D |
CALL THSICE_STEP_FWD(1,1,1,sNx,1,sNy, pass_prcAtm, |
|
./pkg/atm2d/init_atm2d.F |
352 |
INIT_ATM2D |
pass_prcAtm(i,j)= 0. _d 0 |