File |
Line number |
Procedure |
Code |
./model/inc/GRID.h |
430 |
NO PROCEDURE |
& angleCosC, angleSinC, u2zonDir, v2zonDir, |
./model/inc/GRID.h |
498 |
NO PROCEDURE |
_RS v2zonDir (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./model/src/calc_grid_angles.F |
120 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = -rSphere |
./model/src/calc_grid_angles.F |
126 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = 0. |
./model/src/calc_grid_angles.F |
75 |
CALC_GRID_ANGLES |
v2zonDir(i,j,bi,bj) = rSphere*vPseudo(i,j) |
./pkg/monitor/mon_ke.F |
250 |
MON_KE |
tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj) |
./model/src/ini_grid.F |
106 |
INI_GRID |
v2zonDir(i,j,bi,bj) = 0. |
./model/src/write_grid.F |
100 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'V2zonDir',' ',v2zonDir,-1,myThid) |