| 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 |
169 |
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 |
|
./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/calc_phi_hyd.F |
197 |
CALC_PHI_HYD |
phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
310 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
349 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
432 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
476 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/forward_step.F |
726 |
FORWARD_STEP |
CALL UPDATE_SIGMA( etaH, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
854 |
FORWARD_STEP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
864 |
FORWARD_STEP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
|
./model/src/ini_dynvars.F |
90 |
INI_DYNVARS |
etaH(I,J,bi,bj)=0. _d 0 |
|
./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) |
|
./model/src/ini_nlfs_vars.F |
128 |
INI_NLFS_VARS |
& *( etaH(i-1,j,bi,bj) + etaH(i,j,bi,bj) ) |
|
./model/src/ini_nlfs_vars.F |
130 |
INI_NLFS_VARS |
& *( etaH(i,j-1,bi,bj) + etaH(i,j,bi,bj) ) |
|
./model/src/ini_psurf.F |
88 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
247 |
EXTERNAL_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/initialise_varia.F |
237 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
246 |
INITIALISE_VARIA |
CALL UPDATE_SIGMA( etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
249 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
286 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
290 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
|
./model/src/integr_continuity.F |
131 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
184 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
190 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
112 |
POST_CG3D |
& ( etaH(i,j,bi,bj)-etaN(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
105 |
PRE_CG3D |
tmpSurf = ( tmpSurf*( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) ) |
|
./model/src/pre_cg3d.F |
111 |
PRE_CG3D |
tmpSurf = etaN(i,j,bi,bj)-etaH(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
130 |
PRE_CG3D |
& *( etaN(i,j,bi,bj) - etaH(i,j,bi,bj) ) |
|
./model/src/read_pickup.F |
180 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn, fp, 1, etaH, |
|
./model/src/read_pickup.F |
230 |
READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1, etaH, nj*Nr+3, myIter,myThid ) |
|
./model/src/read_pickup.F |
404 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'EtaH ', etaH, |
|
./model/src/read_pickup.F |
457 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid) |
|
./model/src/read_pickup.F |
496 |
READ_PICKUP |
CALL EXCH_XY_RL( etaH, myThid ) |
|
./model/src/solve_for_pressure.F |
216 |
SOLVE_FOR_PRESSURE |
& * etaH(i,j,bi,bj) |
|
./model/src/update_etah.F |
101 |
UPDATE_ETAH |
& CALL EXCH_XY_RL( etaH, myThid ) |
|
./model/src/update_etah.F |
124 |
UPDATE_ETAH |
etaHw(i,j,bi,bj) = ( etaH (i-1,j,bi,bj) |
|
./model/src/update_etah.F |
125 |
UPDATE_ETAH |
& + etaH ( i ,j,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etah.F |
126 |
UPDATE_ETAH |
etaHs(i,j,bi,bj) = ( etaH (i,j-1,bi,bj) |
|
./model/src/update_etah.F |
127 |
UPDATE_ETAH |
& + etaH (i, j ,bi,bj) )*0.5 _d 0 |
|
./model/src/update_etah.F |
57 |
UPDATE_ETAH |
etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/update_etah.F |
67 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
74 |
UPDATE_ETAH |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/update_etah.F |
91 |
UPDATE_ETAH |
IF ( useOBCS ) CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
120 |
AUTODIFF_RESTORE |
etaH(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,21) |
|
./pkg/autodiff/autodiff_store.F |
126 |
AUTODIFF_STORE |
StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
68 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./model/inc/DYNVARS.h |
70 |
NO PROCEDURE |
& etaH |
|
./model/inc/DYNVARS.h |
71 |
NO PROCEDURE |
_RL etaH (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ecco/the_main_loop.F |
882 |
THE_MAIN_LOOP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
891 |
THE_MAIN_LOOP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |