| 1 |
C $Id: MASKS.h,v 1.1 1998/05/25 20:21:06 cnh Exp $ |
| 2 |
C File name: MASKS.h |
| 3 |
C Description: Global arrays used to represent topography. |
| 4 |
C Written: January 13th 1994, by Chris Hill M.I.T. |
| 5 |
C Code changes: |
| 6 |
C |
| 7 |
C Comments: |
| 8 |
C |
| 9 |
C P_MASKS - Masks relating to Pressure point grid. |
| 10 |
C PMASK - 0. if P point is on land. |
| 11 |
C 1. if P point is in water. |
| 12 |
COMMON /P_MASKS/ PMASK |
| 13 |
real pMask (_I3(Nz,Nx,Ny)) |
| 14 |
CMF$LAYOUT pMask (:SERIAL,:NEWS,:NEWS) |
| 15 |
C |
| 16 |
C U_MASKS - Masks relating to U velocity grid. |
| 17 |
C UMASK - 0. if U point is on land. |
| 18 |
C 1. if U point is in water. |
| 19 |
COMMON /U_MASKS/ UMASK |
| 20 |
real uMask (_I3(Nz,Nx,Ny)) |
| 21 |
CMF$LAYOUT uMask (:SERIAL,:NEWS,:NEWS) |
| 22 |
C |
| 23 |
C V_MASKS - Masks relating to V velocity grid. |
| 24 |
C VMASK - 0. if V point is on land. |
| 25 |
C 1. if V point is in water. |
| 26 |
COMMON /V_MASKS/ VMASK |
| 27 |
real vMask (_I3(Nz,Nx,Ny)) |
| 28 |
CMF$LAYOUT vMask (:SERIAL,:NEWS,:NEWS) |
| 29 |
C |
| 30 |
C W_MASKS - Masks relating to W velocity grid. |
| 31 |
C WMASK - 0. if W point is on land. |
| 32 |
C 1. if W point is in water. |
| 33 |
COMMON /W_MASKS/ WMASK |
| 34 |
real wMask (_I3(Nz,Nx,Ny)) |
| 35 |
CMF$LAYOUT wMask (:SERIAL,:NEWS,:NEWS) |
Parent Directory
| 
Revision Log
| 
Revision Graph