| 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 |
37 |
NO PROCEDURE |
_RL dPhiNH(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./model/src/ini_nh_fields.F |
102 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_fields.F |
108 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
115 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,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_fields.F |
93 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_vars.F |
48 |
INI_NH_VARS |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./model/src/post_cg3d.F |
105 |
POST_CG3D |
CALL EXCH_XY_RL( dPhiNH, myThid ) |
|
./model/src/post_cg3d.F |
121 |
POST_CG3D |
& - dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
129 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
130 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. _d 0 |
|
./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 |
75 |
POST_CG3D |
& *( wVel(i,j,ks,bi,bj) - dPhiNH(i,j,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/post_cg3d.F |
95 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/pre_cg3d.F |
135 |
PRE_CG3D |
dPhiNH(i,j,bi,bj) = wSurfP2d(i,j) |
|
./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 |
420 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'dPhiNH ', dPhiNH, |
|
./model/src/read_pickup.F |
554 |
READ_PICKUP |
CALL EXCH_XY_RL( dPhiNH, myThid ) |
|
./model/src/timestep.F |
333 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) ) |
|
./model/src/timestep.F |
338 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-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 |
303 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_state.F |
164 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid ) |