| File |
Line number |
Procedure |
Code |
|
./model/inc/NH_VARS.h |
29 |
NO PROCEDURE |
& phi_nh, dPhiNH, |
|
./model/inc/NH_VARS.h |
34 |
NO PROCEDURE |
& phi_nh, dPhiNH, |
|
./model/inc/NH_VARS.h |
38 |
NO PROCEDURE |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./model/src/correction_step.F |
73 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
86 |
CORRECTION_STEP |
& *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./verification/OpenAD/code_oad_all/write_state.F |
112 |
WRITE_STATE |
CALL WRITE_REC_XYZ_RL( 'PNH',phi_nh,iRec,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid) |
|
./verification/OpenAD/code_oad_all/write_state.F |
196 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'phi_nh',phi_nh,myThid) |
|
./model/src/ini_nh_fields.F |
104 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
76 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/ini_nh_fields.F |
86 |
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 |
132 |
POST_CG3D |
CALL WRITE_FLD_XYZ_RL( 'cg3d_x.',sufx, phi_nh, myIter, myThid ) |
|
./model/src/post_cg3d.F |
140 |
POST_CG3D |
phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj) |
|
./model/src/post_cg3d.F |
66 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj) |
|
./model/src/post_cg3d.F |
75 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj) |
|
./model/src/post_cg3d.F |
93 |
POST_CG3D |
& + phi_nh(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/read_pickup.F |
242 |
READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, Nr, phi_nh, 1, myIter,myThid ) |
|
./model/src/read_pickup.F |
376 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Phi_NHyd', phi_nh, |
|
./model/src/read_pickup.F |
462 |
READ_PICKUP |
CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/read_pickup.F |
506 |
READ_PICKUP |
CALL EXCH_3D_RL( phi_nh, Nr, myThid ) |
|
./model/src/solve_for_pressure.F |
196 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
201 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) ) |
|
./model/src/solve_for_pressure.F |
390 |
SOLVE_FOR_PRESSURE |
U phi_nh, |
|
./model/src/solve_for_pressure.F |
395 |
SOLVE_FOR_PRESSURE |
_EXCH_XYZ_RL( phi_nh, myThid ) |
|
./model/src/solve_for_pressure.F |
417 |
SOLVE_FOR_PRESSURE |
CALL WRITE_FLD_XYZ_RL('cg3d_x.',sufx, phi_nh, myIter,myThid ) |
|
./model/src/timestep.F |
361 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
366 |
TIMESTEP |
& ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep.F |
376 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/timestep.F |
379 |
TIMESTEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/timestep_wvel.F |
71 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) ) |
|
./model/src/timestep_wvel.F |
79 |
TIMESTEP_WVEL |
& *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) ) |
|
./model/src/write_pickup.F |
252 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid ) |
|
./model/src/write_pickup.F |
356 |
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 |
141 |
WRITE_STATE |
CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid ) |
|
./model/src/write_state.F |
196 |
WRITE_STATE |
CALL MNC_CW_RL_W(pf,'state',0,0,'phi_nh',phi_nh,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
85 |
DIAGNOSTICS_FILL_STATE |
CALL DIAGNOSTICS_FILL( phi_nh,'PHI_NH ',0,Nr,0,1,1,myThid ) |