| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
24 |
NO PROCEDURE |
& Tsrf, Tice1, Tice2, |
|
./pkg/thsice/THSICE_VARS.h |
30 |
NO PROCEDURE |
_RL Tsrf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ave.F |
64 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_Tsrf_Ave, Tsrf, iceMask, |
|
./pkg/thsice/thsice_diagnostics_state.F |
66 |
THSICE_DIAGNOSTICS_STATE |
I Tsrf, iceMask,tmpFac,1,'SI_Tsrf ', |
|
./pkg/thsice/thsice_impl_temp.F |
106 |
THSICE_IMPL_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
91 |
THSICE_IMPL_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_ini_vars.F |
140 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceTsurf_InitFile,Tsrf,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
166 |
THSICE_INI_VARS |
_EXCH_XY_RL(Tsrf, myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
60 |
THSICE_INI_VARS |
Tsrf(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_monitor.F |
173 |
THSICE_MONITOR |
I Tsrf, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_output.F |
286 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_Tsrf.', suff,Tsrf, |
|
./pkg/thsice/thsice_output.F |
333 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
57 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1, Tsrf, 4, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
80 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/thsice/thsice_step_fwd.F |
221 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
247 |
THSICE_STEP_FWD |
U snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
336 |
THSICE_STEP_FWD |
U snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
379 |
THSICE_STEP_FWD |
Tsrf(i,j,bi,bj) = tOceMxL(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
125 |
THSICE_STEP_TEMP |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
147 |
THSICE_STEP_TEMP |
& snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
180 |
THSICE_STEP_TEMP |
U icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_write_pickup.F |
60 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1, Tsrf, 4, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
94 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf', Tsrf, myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
107 |
AIM_SICE2AIM |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
85 |
AIM_SICE2AIM |
aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
93 |
AIM_SICE2AIM |
Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K |
|
./pkg/aim_v23/aim_sice2aim.F |
94 |
AIM_SICE2AIM |
Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/aim_v23/aim_sice2aim.F |
95 |
AIM_SICE2AIM |
Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj) |
|
./pkg/atm2d/calc_1dto2d.F |
166 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
168 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
177 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_1dto2d.F |
179 |
CALC_WGHT2D |
& (Tsrf(i,j,1,1)-ctice(ind))*wgt |
|
./pkg/atm2d/calc_zonal_means.F |
105 |
CALC_ZONAL_MEANS |
& Tsrf(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
65 |
CALC_ZONAL_MEANS |
I snowHeight(siLo,sjLo,1,1), Tsrf(siLo,sjLo,1,1), |
|
./pkg/atm2d/calc_zonal_means.F |
84 |
CALC_ZONAL_MEANS |
ctice(atm_oc_ind(j))=ctice(atm_oc_ind(j)) + Tsrf(i,j,1,1) |
|
./pkg/atm2d/pass_thsice_fluxes.F |
42 |
PASS_THSICE_FLUXES |
& Tsrf(i,j,1,1)*dFdT_ice_2D(i,j) |
|
./pkg/cheapaml/cheapaml_seaice.F |
167 |
CHEAPAML_SEAICE |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
206 |
CHEAPAML_SEAICE |
Tsurf(i,j) = Tsrf(i,j,bi,bj) |