| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
119 |
OCN_APPLY_IMPORT |
snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
195 |
OCN_APPLY_IMPORT |
_EXCH_XY_RL( snowHeight, myThid ) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
115 |
OCN_STORE_MY_DATA |
sIceSnowH_cpl(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/THSICE_VARS.h |
23 |
NO PROCEDURE |
& iceMask, iceHeight, snowHeight, |
|
./pkg/thsice/THSICE_VARS.h |
29 |
NO PROCEDURE |
_RL snowHeight(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_advdiff.F |
164 |
THSICE_ADVDIFF |
I snowHeight,iceMask,tmpFac,1,'SI_AdvHs', |
|
./pkg/thsice/thsice_advdiff.F |
259 |
THSICE_ADVDIFF |
U iceVol, snowHeight(1-OLx,1-OLy,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
459 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
465 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
480 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
490 |
THSICE_ADVDIFF |
oceFWfx(i,j,bi,bj) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
495 |
THSICE_ADVDIFF |
oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_advdiff.F |
506 |
THSICE_ADVDIFF |
snowHeight(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
553 |
THSICE_ADVDIFF |
I snowHeight,iceMask,tmpFac,1,'SI_AdvHs', |
|
./pkg/thsice/thsice_ave.F |
62 |
THSICE_AVE |
CALL TIMEAVE_CUMUL_2V( ice_snowH_Ave, snowHeight, iceMask, |
|
./pkg/thsice/thsice_check_conserv.F |
67 |
THSICE_CHECK_CONSERV |
dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow |
|
./pkg/thsice/thsice_diagnostics_state.F |
63 |
THSICE_DIAGNOSTICS_STATE |
I snowHeight,iceMask,tmpFac,1,'SI_SnowH', |
|
./pkg/thsice/thsice_diffusion.F |
77 |
THSICE_DIFFUSION |
iceFld(i,j) = ( rhos*snowHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_do_advect.F |
115 |
THSICE_DO_ADVECT |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_do_exch.F |
39 |
THSICE_DO_EXCH |
CALL EXCH_XY_RL( snowHeight, myThid ) |
|
./pkg/thsice/thsice_impl_temp.F |
105 |
THSICE_IMPL_TEMP |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, sFlx, |
|
./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 |
130 |
THSICE_INI_VARS |
CALL READ_REC_XY_RL(thSIceSnowH_InitFile,snowHeight,1,0,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
165 |
THSICE_INI_VARS |
_EXCH_XY_RL(snowHeight,myThid) |
|
./pkg/thsice/thsice_ini_vars.F |
179 |
THSICE_INI_VARS |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_ini_vars.F |
59 |
THSICE_INI_VARS |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_main.F |
230 |
THSICE_MAIN |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/thsice/thsice_monitor.F |
154 |
THSICE_MONITOR |
I snowHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_output.F |
284 |
THSICE_OUTPUT |
CALL WRITE_FLD_XY_RL('ice_snowH.', suff,snowHeight, |
|
./pkg/thsice/thsice_output.F |
332 |
THSICE_OUTPUT |
CALL MNC_CW_RL_W(pf,mncf,0,0,'snowHeight',snowHeight,myThid) |
|
./pkg/thsice/thsice_read_pickup.F |
56 |
THSICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, 1,snowHeight,3, myIter,myThid ) |
|
./pkg/thsice/thsice_read_pickup.F |
79 |
THSICE_READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,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 |
306 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,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 |
364 |
THSICE_STEP_FWD |
& snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
372 |
THSICE_STEP_FWD |
IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
377 |
THSICE_STEP_FWD |
snowHeight(i,j,bi,bj)=0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
416 |
THSICE_STEP_FWD |
sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos |
|
./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 |
179 |
THSICE_STEP_TEMP |
I snowHeight(siLo,sjLo,bi,bj), tFrzOce, tmpFlx, |
|
./pkg/thsice/thsice_write_pickup.F |
59 |
THSICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec, 1,snowHeight,3, myIter,myThid ) |
|
./pkg/thsice/thsice_write_pickup.F |
93 |
THSICE_WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'snowHeight',snowHeight,myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
107 |
AIM_SICE2AIM |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/atm2d/calc_zonal_means.F |
65 |
CALC_ZONAL_MEANS |
I snowHeight(siLo,sjLo,1,1), Tsrf(siLo,sjLo,1,1), |
|
./pkg/atm_compon_interf/atm_apply_import.F |
71 |
ATM_APPLY_IMPORT |
snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj) |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
66 |
ATM_STORE_THSICE |
& ( snowHeight(i,j,bi,bj)*rhos |
|
./pkg/atm_compon_interf/atm_store_thsice.F |
95 |
ATM_STORE_THSICE |
sIceSnowH_cpl(i,j,bi,bj) = snowHeight(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_seaice.F |
167 |
CHEAPAML_SEAICE |
I snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
190 |
CHEAPAML_SEAICE |
IF ( snowHeight(i,j,bi,bj).GT.3. _d -1 ) THEN |