| File |
Line number |
Procedure |
Code |
|
./model/src/update_etah.F |
102 |
UPDATE_ETAH |
& _EXCH_XY_RL( etaH, myThid ) |
|
./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 |
& CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid ) |
|
./model/src/calc_phi_hyd.F |
167 |
CALC_PHI_HYD |
phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
271 |
CALC_PHI_HYD |
ddRloc = ddRloc + 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 |
393 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/calc_phi_hyd.F |
437 |
CALC_PHI_HYD |
ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj) |
|
./model/src/initialise_varia.F |
208 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
213 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
251 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
254 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
|
./pkg/ecco/the_main_loop.F |
637 |
THE_MAIN_LOOP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
|
./pkg/ecco/the_main_loop.F |
642 |
THE_MAIN_LOOP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
|
./model/src/solve_for_pressure.F |
145 |
SOLVE_FOR_PRESSURE |
& * etaH(i,j,bi,bj) |
|
./model/src/ini_dynvars.F |
96 |
INI_DYNVARS |
etaH(I,J,bi,bj)=0. _d 0 |
|
./verification/rotating_tank/code/checkpoint.F |
137 |
READ_CHECKPOINT |
& CALL MDSREADFIELD(fn,prec,'RL',1,etaH,13*Nr+2,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
203 |
READ_CHECKPOINT |
_EXCH_XY_R8( etaH, myThid ) |
|
./verification/rotating_tank/code/checkpoint.F |
391 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL', 1,etaH,13*Nr+2, |
|
./model/src/forward_step.F |
522 |
FORWARD_STEP |
CALL CALC_R_STAR(etaH, myTime, myIter, myThid ) |
|
./model/src/forward_step.F |
527 |
FORWARD_STEP |
CALL CALC_SURF_DR(etaH, myTime, myIter, myThid ) |
|
./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/inc/DYNVARS.h |
35 |
NO PROCEDURE |
& etaN, etaH, |
|
./model/inc/DYNVARS.h |
41 |
NO PROCEDURE |
& etaN, etaH, |
|
./model/inc/DYNVARS.h |
47 |
NO PROCEDURE |
_RL etaH (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
310 |
DIAGNOSTICS_FILL_STATE |
. (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
61 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
80 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
98 |
STEP_FIZHI_CORR |
pephy(i,j,1,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)) |
|
./pkg/fizhi/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) |
|
./pkg/fizhi/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) |
|
./pkg/fizhi/fizhi_wrapper.F |
67 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
91 |
FIZHI_WRAPPER |
. pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./model/src/ini_psurf.F |
90 |
INI_PSURF |
etaH(i,j,bi,bj) = etaN(i,j,bi,bj) |
|
./model/src/checkpoint.F |
160 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',1,etaH,12*Nr+2,myThid) |
|
./model/src/checkpoint.F |
209 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',1,etaH, nj*Nr+3,myThid) |
|
./model/src/checkpoint.F |
257 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'EtaH', etaH, myThid) |
|
./model/src/checkpoint.F |
297 |
READ_CHECKPOINT |
_EXCH_XY_R8( etaH, myThid ) |
|
./model/src/integr_continuity.F |
115 |
INTEGR_CONTINUITY |
dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |
|
./model/src/integr_continuity.F |
157 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
163 |
INTEGR_CONTINUITY |
etaN(i,j,bi,bj) = etaH(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
120 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
155 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = etaH(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
96 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./pkg/monitor/mon_vort3.F |
76 |
MON_VORT3 |
etaFld(i,j) = etaH(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
77 |
MON_VORT3 |
& + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj)) |