| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
56 |
NO PROCEDURE |
& sHeating, flxCndBt, |
|
./pkg/thsice/THSICE_VARS.h |
65 |
NO PROCEDURE |
_RL sHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_impl_temp.F |
109 |
THSICE_IMPL_TEMP |
O sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_ini_vars.F |
71 |
THSICE_INI_VARS |
sHeating(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
245 |
THSICE_STEP_FWD |
I sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
183 |
THSICE_STEP_TEMP |
O sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_aim2sioce.F |
167 |
AIM_AIM2SIOCE |
sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj) |
|
./pkg/atm2d/atm2d_read_pickup.F |
55 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,sHeating, 12, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
165 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,sHeating, 12,myIter,myThid ) |
|
./pkg/atm2d/norm_ocn_fluxes.F |
55 |
NORM_OCN_FLUXES |
sHeating(i,j,1,1) = sum_sHeat(i,j)/nper ! from temp-solve step |
|
./pkg/atm2d/sum_thsice_out.F |
38 |
SUM_THSICE_OUT |
sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1) |