File |
Line number |
Procedure |
Code |
./model/inc/NH_VARS.h |
29 |
NO PROCEDURE |
& phi_nh, dPhiNH, |
./model/inc/NH_VARS.h |
33 |
NO PROCEDURE |
& phi_nh, dPhiNH, |
./model/inc/NH_VARS.h |
36 |
NO PROCEDURE |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
./model/src/correction_step.F |
110 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
./model/src/correction_step.F |
123 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
./pkg/opps/opps_calc.F |
483 |
OPPS_CALC |
& + phi_nh(i,j,kRef,bi,bj) |
./model/src/ini_nh_fields.F |
109 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
./model/src/ini_nh_fields.F |
81 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
./model/src/ini_nh_fields.F |
91 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
./model/src/ini_nh_vars.F |
54 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |
./model/src/post_cg3d.F |
112 |
POST_CG3D |
CALL WRITE_FLD_XYZ_RL( 'cg3d_x','I10', phi_nh, myIter, myThid ) |
./model/src/post_cg3d.F |
120 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
./model/src/post_cg3d.F |
71 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = ( phi_nh(i,j,ks,bi,bj) |
./model/src/post_cg3d.F |
84 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
./model/src/post_cg3d.F |
93 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
./model/src/pre_cg3d.F |
244 |
PRE_CG3D |
phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj) |
./model/src/pressure_for_eos.F |
61 |
PRESSURE_FOR_EOS |
& +( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
./model/src/read_pickup.F |
247 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
./model/src/read_pickup.F |
395 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Phi_NHyd', phi_nh, |
./model/src/read_pickup.F |
494 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid) |
./model/src/read_pickup.F |
543 |
READ_PICKUP |
CALL EXCH_3D_RL( phi_nh, Nr, myThid ) |
./model/src/solve_for_pressure.F |
199 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
./model/src/solve_for_pressure.F |
204 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
./model/src/solve_for_pressure.F |
412 |
SOLVE_FOR_PRESSURE |
U cg3d_b, phi_nh, |
./model/src/solve_for_pressure.F |
418 |
SOLVE_FOR_PRESSURE |
U cg3d_b, phi_nh, |
./model/src/solve_for_pressure.F |
423 |
SOLVE_FOR_PRESSURE |
_EXCH_XYZ_RL( phi_nh, myThid ) |
./model/src/solve_for_pressure.F |
444 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_x','I10', phi_nh, myIter,myThid ) |
./model/src/timestep.F |
332 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
./model/src/timestep.F |
337 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
./model/src/timestep.F |
347 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
./model/src/timestep.F |
350 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
./model/src/timestep_wvel.F |
75 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
./model/src/timestep_wvel.F |
83 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
./model/src/write_pickup.F |
271 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
./model/src/write_pickup.F |
391 |
WRITE_PICKUP |
CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid) |
./model/src/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
./model/src/write_state.F |
161 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid ) |
./model/src/write_state.F |
216 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'phi_nh',phi_nh,myThid) |
./pkg/diagnostics/diagnostics_fill_state.F |
91 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( phi_nh,'PHI_NH ',0,Nr,0,1,1,myThid ) |