File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./pkg/fizhi/fizhi_init_vars.F |
129 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./pkg/fizhi/fizhi_wrapper.F |
164 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
& pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
./pkg/fizhi/step_fizhi_corr.F |
108 |
STEP_FIZHI_CORR |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./pkg/fizhi/step_fizhi_corr.F |
90 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./pkg/fizhi/update_chemistry_exports.F |
56 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj)) |
./model/src/calc_grad_phi_hyd.F |
123 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
./model/src/calc_grad_phi_hyd.F |
170 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = etaH(i,j,bi,bj) |
./model/src/calc_grad_phi_hyd.F |
98 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
./model/src/calc_phi_hyd.F |
212 |
CALC_PHI_HYD |
phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
245 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
291 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
376 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
415 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
478 |
CALC_PHI_HYD |
locDepth = locDepth + surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
554 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
./model/src/calc_phi_hyd.F |
598 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
85 |
MON_VORT3 |
etaFld(i,j) = etaH(i,j,bi,bj) |
./pkg/monitor/mon_vort3.F |
86 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
./model/src/forward_step.F |
867 |
FORWARD_STEP |
CALL UPDATE_SIGMA( etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
987 |
FORWARD_STEP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
./model/src/forward_step.F |
997 |
FORWARD_STEP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
./model/src/ini_dynvars.F |
96 |
INI_DYNVARS |
etaH(i,j,bi,bj) = 0. _d 0 |
./model/src/ini_psurf.F |
90 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
./model/src/initialise_varia.F |
222 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
./model/src/initialise_varia.F |
231 |
INITIALISE_VARIA |
CALL UPDATE_SIGMA( etaH, startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
234 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
./model/src/initialise_varia.F |
255 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
./model/src/initialise_varia.F |
259 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
./model/src/integr_continuity.F |
144 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
./model/src/integr_continuity.F |
209 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
./model/src/integr_continuity.F |
215 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
91 |
FIZHI_INIT_VARS |
& pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./verification/hs94.1x64x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
./model/src/pre_cg3d.F |
85 |
PRE_CG3D |
wSurfP2d(i,j) = ( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) ) |
./model/src/read_pickup.F |
185 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn, fp, 1, etaH, |
./model/src/read_pickup.F |
235 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
./model/src/read_pickup.F |
430 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'EtaH ', etaH, |
./model/src/read_pickup.F |
489 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid) |
./model/src/read_pickup.F |
533 |
READ_PICKUP |
CALL EXCH_XY_RL( etaH, myThid ) |
./model/src/solve_for_pressure.F |
219 |
SOLVE_FOR_PRESSURE |
& * etaH(i,j,bi,bj) |
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
280 |
APPLY_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
./model/src/update_etah.F |
55 |
UPDATE_ETAH |
etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj) |
./model/src/update_etah.F |
65 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
./model/src/update_etah.F |
72 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
./model/src/update_etah.F |
83 |
UPDATE_ETAH |
& CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid ) |
./model/src/update_etah.F |
94 |
UPDATE_ETAH |
& CALL EXCH_XY_RL( etaH, myThid ) |
./model/src/update_etaws.F |
65 |
UPDATE_ETAWS |
etaHw(i,j,bi,bj) = ( etaH (i-1,j,bi,bj) |
./model/src/update_etaws.F |
66 |
UPDATE_ETAWS |
& + etaH ( i ,j,bi,bj) )*0.5 _d 0 |
./model/src/update_etaws.F |
67 |
UPDATE_ETAWS |
etaHs(i,j,bi,bj) = ( etaH (i,j-1,bi,bj) |
./model/src/update_etaws.F |
68 |
UPDATE_ETAWS |
& + etaH (i, j ,bi,bj) )*0.5 _d 0 |
./pkg/autodiff/autodiff_restore.F |
123 |
AUTODIFF_RESTORE |
etaH(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,21) |
./pkg/autodiff/autodiff_store.F |
129 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj) |
./pkg/ctrl/ctrl_map_ini.F |
511 |
CTRL_MAP_INI |
etaH(i,j,bi,bj) = etaH(i,j,bi,bj) + |
./pkg/ctrl/ctrl_map_ini.F |
612 |
CTRL_MAP_INI |
_EXCH_XY_RL( etaH, mythid ) |
./pkg/diagnostics/diagnostics_fill_state.F |
74 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
./model/inc/DYNVARS.h |
76 |
NO PROCEDURE |
& etaH |
./model/inc/DYNVARS.h |
77 |
NO PROCEDURE |
_RL etaH (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |