| 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 |
39 |
NO PROCEDURE |
_RL dPhiNH(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./model/src/ini_nh_fields.F |
103 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
110 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,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_fields.F |
88 |
INI_NH_FIELDS |
dPhiNH(i,j,bi,bj) = 0. |
|
./model/src/ini_nh_fields.F |
97 |
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 |
394 |
READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'dPhiNH ', dPhiNH, |
|
./model/src/read_pickup.F |
517 |
READ_PICKUP |
CALL EXCH_XY_RL( dPhiNH, myThid ) |
|
./model/src/timestep.F |
362 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) ) |
|
./model/src/timestep.F |
367 |
TIMESTEP |
& -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-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 |
275 |
WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, dPhiNH, nj, myIter, myThid ) |
|
./model/src/write_state.F |
144 |
WRITE_STATE |
CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid ) |