| 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 |
110 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = ( tmpSurf*dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
124 |
POST_CG3D |
CALL EXCH_XY_RL( dPhiNH, myThid ) |
|
./model/src/post_cg3d.F |
141 |
POST_CG3D |
& - dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
149 |
POST_CG3D |
& + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,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 |
77 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/post_cg3d.F |
86 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/post_cg3d.F |
92 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/post_cg3d.F |
99 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/read_pickup.F |
414 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'dPhiNH ', dPhiNH, |
|
./model/src/read_pickup.F |
548 |
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 |
299 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_state.F |
160 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid ) |