| File |
Line number |
Procedure |
Code |
|
./model/src/correction_step.F |
11 |
CORRECTION_STEP |
I K, phiSurfX, phiSurfY, |
|
./model/src/correction_step.F |
41 |
CORRECTION_STEP |
_RL phiSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/correction_step.F |
86 |
CORRECTION_STEP |
& -deltaTmom*hyFac*implicSurfPress*phiSurfY(i,j) |
|
./model/src/timestep.F |
11 |
TIMESTEP |
I dPhiHydX,dPhiHydY, phiSurfX, phiSurfY, |
|
./model/src/timestep.F |
288 |
TIMESTEP |
& - psFac*phiSurfY(i,j) |
|
./model/src/timestep.F |
44 |
TIMESTEP |
_RL phiSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/calc_grad_phi_surf.F |
11 |
CALC_GRAD_PHI_SURF |
O phiSurfX, phiSurfY, |
|
./model/src/calc_grad_phi_surf.F |
39 |
CALC_GRAD_PHI_SURF |
_RL phiSurfY(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/calc_grad_phi_surf.F |
60 |
CALC_GRAD_PHI_SURF |
phiSurfY(i,j)=_recip_dyC(i,j,bi,bj)* |
|
./model/src/momentum_correction_step.F |
100 |
MOMENTUM_CORRECTION_STEP |
I phiSurfX,phiSurfY,myTime,myThid ) |
|
./model/src/momentum_correction_step.F |
60 |
MOMENTUM_CORRECTION_STEP |
_RL phiSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/momentum_correction_step.F |
75 |
MOMENTUM_CORRECTION_STEP |
phiSurfY(i,j)=0. |
|
./model/src/momentum_correction_step.F |
90 |
MOMENTUM_CORRECTION_STEP |
O phiSurfX,phiSurfY, |
|
./model/src/dynamics.F |
151 |
DYNAMICS |
_RL phiSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/dynamics.F |
282 |
DYNAMICS |
phiSurfY(i,j) = 0. _d 0 |
|
./model/src/dynamics.F |
305 |
DYNAMICS |
O phiSurfX,phiSurfY, |
|
./model/src/dynamics.F |
387 |
DYNAMICS |
I dPhiHydX,dPhiHydY, phiSurfX, phiSurfY, |
|
./model/src/the_correction_step.F |
55 |
THE_CORRECTION_STEP |
_RL phiSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/the_correction_step.F |
70 |
THE_CORRECTION_STEP |
phiSurfY(i,j)=0. |
|
./model/src/the_correction_step.F |
85 |
THE_CORRECTION_STEP |
O phiSurfX,phiSurfY, |
|
./model/src/the_correction_step.F |
95 |
THE_CORRECTION_STEP |
I phiSurfX,phiSurfY,myTime,myThid ) |