File |
Line number |
Procedure |
Code |
./pkg/gmredi/submeso_calc_psi.F |
106 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j) = dBuoyX_Hu(i,j) + sigmaX(i,j,k)*dzLoc |
./pkg/gmredi/submeso_calc_psi.F |
128 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j)= -dBuoyX_Hu(i,j)*gravity*recip_rhoConst |
./pkg/gmredi/submeso_calc_psi.F |
137 |
SUBMESO_CALC_PSI |
& (dBuoyX_Hu(i,j) + dBuoyX_Hu(i+1,j))**2 |
./pkg/gmredi/submeso_calc_psi.F |
155 |
SUBMESO_CALC_PSI |
PsiLoc(i,j) = -subMeso_Ceff*dBuoyX_Hu(i,j) |
./pkg/gmredi/submeso_calc_psi.F |
53 |
SUBMESO_CALC_PSI |
_RL dBuoyX_Hu (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/gmredi/submeso_calc_psi.F |
95 |
SUBMESO_CALC_PSI |
dBuoyX_Hu(i,j)= 0. |