| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
58 |
NO PROCEDURE |
& icFlxSW, icFlxAtm, icFrwAtm, |
|
./pkg/thsice/THSICE_VARS.h |
71 |
NO PROCEDURE |
_RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ave.F |
131 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(icFrwAtm,'SIfrwAtm',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
92 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_frwAtm_Ave, icFrwAtm, |
|
./pkg/thsice/thsice_balance_frw.F |
101 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
127 |
THSICE_BALANCE_FRW |
icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) - tmpVar |
|
./pkg/thsice/thsice_balance_frw.F |
72 |
THSICE_BALANCE_FRW |
& + icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_check_conserv.F |
63 |
THSICE_CHECK_CONSERV |
frwAtm = icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
99 |
THSICE_GET_OCEAN |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_impl_temp.F |
110 |
THSICE_IMPL_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
76 |
THSICE_INI_VARS |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_output.F |
301 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_frwAtm.',suff,icFrwAtm, |
|
./pkg/thsice/thsice_step_fwd.F |
229 |
THSICE_STEP_FWD |
& icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
249 |
THSICE_STEP_FWD |
U icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc, |
|
./pkg/thsice/thsice_step_fwd.F |
290 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
311 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
314 |
THSICE_STEP_FWD |
icFrwAtm(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_temp.F |
113 |
THSICE_STEP_TEMP |
icFrwAtm(i,j,bi,bj) = 0. |
|
./pkg/thsice/thsice_step_temp.F |
184 |
THSICE_STEP_TEMP |
O icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_aim2sioce.F |
145 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
|
./pkg/atm2d/atm2d_read_pickup.F |
59 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFrwAtm, 16, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
169 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,icFrwAtm, 16,myIter,myThid ) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
58 |
NORM_OCN_FLUXES |
icFrwAtm(i,j,1,1)= sum_evapIce(i,j)/nper |
|
./pkg/cheapaml/cheapaml_seaice.F |
260 |
CHEAPAML_SEAICE |
icFrwAtm(i,j,bi,bj) = evp(i,j) |