| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
420 |
THSICE_STEP_FWD |
pass_sIceLoad(i,j)=sIceLoad(i,j,bi,bj) |
|
./pkg/atm2d/ATM2D_VARS.h |
198 |
NO PROCEDURE |
& pass_sIceLoad, sFluxFromIce |
|
./pkg/atm2d/ATM2D_VARS.h |
209 |
NO PROCEDURE |
_RL pass_sIceLoad(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! seaice mass loading -> ocean |
|
./pkg/atm2d/atm2d_read_pickup.F |
53 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_sIceLoad,11, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
163 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,pass_sIceLoad,11,myIter,myThid ) |
|
./pkg/atm2d/put_ocnvars.F |
63 |
PUT_OCNVARS |
sIceMass_ocn(i,j) = pass_sIceLoad(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
90 |
PUT_OCNVARS |
sIceLoad(i,j,1,1) = pass_sIceLoad(i,j) |