| File |
Line number |
Procedure |
Code |
|
./model/inc/NH_VARS.h |
27 |
NO PROCEDURE |
& phi_nh, |
|
./model/inc/NH_VARS.h |
30 |
NO PROCEDURE |
_RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./verification/rotating_tank/code/checkpoint.F |
100 |
READ_CHECKPOINT |
CALL READ_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
134 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,phi_nh,1,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
169 |
READ_CHECKPOINT |
_EXCH_XYZ_R8(phi_nh, myThid ) |
|
./verification/rotating_tank/code/checkpoint.F |
295 |
WRITE_CHECKPOINT |
CALL WRITE_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid) |
|
./verification/rotating_tank/code/checkpoint.F |
340 |
WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,phi_nh,1,myIter,myThid) |
|
./model/src/checkpoint.F |
131 |
READ_CHECKPOINT |
CALL READ_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid) |
|
./model/src/checkpoint.F |
226 |
READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,phi_nh,1,myThid) |
|
./model/src/checkpoint.F |
269 |
READ_CHECKPOINT |
CALL MNC_CW_RL_R('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/checkpoint.F |
315 |
READ_CHECKPOINT |
_EXCH_XYZ_R8(phi_nh, myThid ) |
|
./model/src/checkpoint.F |
501 |
WRITE_CHECKPOINT_NOW |
CALL WRITE_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid) |
|
./model/src/checkpoint.F |
573 |
WRITE_CHECKPOINT_NOW |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,phi_nh, 1, |
|
./model/src/checkpoint.F |
623 |
WRITE_CHECKPOINT_NOW |
CALL MNC_CW_RL_W('D',fn,0,0,'phi_nh', phi_nh, myThid) |
|
./model/src/correction_step.F |
74 |
CORRECTION_STEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj)) |
|
./model/src/correction_step.F |
87 |
CORRECTION_STEP |
& (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj)) |
|
./model/src/solve_for_pressure.F |
211 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*horiVertRatio/gravity ) |
|
./model/src/solve_for_pressure.F |
215 |
SOLVE_FOR_PRESSURE |
& +phi_nh(i,j,ks,bi,bj)*horiVertRatio/gravity ) |
|
./model/src/solve_for_pressure.F |
469 |
SOLVE_FOR_PRESSURE |
U phi_nh, |
|
./model/src/solve_for_pressure.F |
474 |
SOLVE_FOR_PRESSURE |
_EXCH_XYZ_R8(phi_nh, myThid ) |
|
./model/src/solve_for_pressure.F |
501 |
SOLVE_FOR_PRESSURE |
phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj) |
|
./model/src/solve_for_pressure.F |
502 |
SOLVE_FOR_PRESSURE |
& - phi_nh(i,j,1,bi,bj) |
|
./model/src/solve_for_pressure.F |
509 |
SOLVE_FOR_PRESSURE |
& *(cg2d_x(i,j,bi,bj) + phi_nh(i,j,1,bi,bj)) |
|
./model/src/solve_for_pressure.F |
510 |
SOLVE_FOR_PRESSURE |
phi_nh(i,j,1,bi,bj) = 0. |
|
./model/src/solve_for_pressure.F |
520 |
SOLVE_FOR_PRESSURE |
& *(cg2d_x(i,j,bi,bj) + phi_nh(i,j,ks,bi,bj)) |
|
./model/src/solve_for_pressure.F |
522 |
SOLVE_FOR_PRESSURE |
phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj) |
|
./model/src/solve_for_pressure.F |
523 |
SOLVE_FOR_PRESSURE |
& - phi_nh(i,j,ks,bi,bj) |
|
./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) |
|
./model/src/ini_pnh.F |
52 |
INI_PNH |
phi_nh(I,J,K,bi,bj) = 0. _d 0 |
|
./model/src/ini_nh_vars.F |
49 |
INI_NH_VARS |
phi_nh(i,j,k,bi,bj) = 0. _d 0 |