| 1 |
C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/code_nest_merged/GRID.h,v 1.3 2009/11/23 23:19:47 jmc Exp $ |
| 2 |
C $Name: $ |
| 3 |
C |
| 4 |
CBOP |
| 5 |
C !ROUTINE: NEST_SHARED.h |
| 6 |
C !INTERFACE: |
| 7 |
C include NEST_SHARED.h |
| 8 |
C !DESCRIPTION: \bv |
| 9 |
C *==========================================================* |
| 10 |
C | NEST_SHARED.h |
| 11 |
C | o Header file for variables used in both Parent and Child |
| 12 |
C | nesting component |
| 13 |
C *==========================================================* |
| 14 |
C \ev |
| 15 |
CEOP |
| 16 |
|
| 17 |
C-- COMMON /NEST_SHARED_I/ |
| 18 |
C CONTATORE_REC :: |
| 19 |
C CONTATORE_REC_FL :: |
| 20 |
COMMON /NEST_SHARED_I/ |
| 21 |
& CONTATORE_REC, CONTATORE_REC_FL |
| 22 |
INTEGER CONTATORE_REC, CONTATORE_REC_FL |
| 23 |
|
| 24 |
C-- COMMON /NEST_SHARED_C/ |
| 25 |
C NomeFL :: |
| 26 |
C NomeMLD_1 :: |
| 27 |
C NomeMLD_2 :: |
| 28 |
COMMON /NEST_SHARED_C/ |
| 29 |
& NomeFL, NomeMLD_1, NomeMLD_2 |
| 30 |
CHARACTER*(30) NomeFL |
| 31 |
CHARACTER*(30) NomeMLD_1 |
| 32 |
CHARACTER*(30) NomeMLD_2 |
| 33 |
|
| 34 |
C-- COMMON /NEST_SHARED_RL/ |
| 35 |
C TRANSPORT_EAST :: |
| 36 |
C TRANSPORT_WEST :: |
| 37 |
COMMON /NEST_SHARED_RL/ |
| 38 |
& TRANSPORT_EAST, TRANSPORT_WEST |
| 39 |
_RL TRANSPORT_EAST |
| 40 |
_RL TRANSPORT_WEST |
| 41 |
|
| 42 |
C-- COMMON /NEST_SHARED_RS/ |
| 43 |
C diff4k_msk :: mask for biharmonic hor. diffusion (1..any real > 0) |
| 44 |
C diff4h_msk :: mask for harmonic hor. diffusion (1..any real > 0) |
| 45 |
C viscA4_msk :: mask for biharmonic side viscosity (1..any real > 0) only Vector Invariant |
| 46 |
C viscAh_msk :: mask for Laplacia side viscosity (1..any real > 0) only Vector Invariant |
| 47 |
C viscA4_DZ_msk :: mask for biharmonic hor. viscosity (1..any real > 0) only Vector Invariant |
| 48 |
C bottom_msk :: mask for bottom drag (0 or 1) only for Vector Invariant |
| 49 |
C side_msk :: mask for side drag (0 or 1) only for Vector Invariant |
| 50 |
C viscC2Leith_msk :: mask for hormonic Leith (also D) hor. viscosity (0..any real > 0) |
| 51 |
C viscC4Leith_msk :: mask for hormonic Leith (also D) hor. viscosity (0..any real > 0) |
| 52 |
COMMON /NEST_SHARED_RS/ |
| 53 |
& diffk4_msk, viscA4_msk,viscA4_DZ_msk,viscAh_msk, |
| 54 |
& diffkh_msk,bottom_msk ,side_msk,diffkr_msk, |
| 55 |
& viscC2Leith_msk,viscC4Leith_msk |
| 56 |
_RS diffk4_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 57 |
_RS diffkh_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 58 |
_RS viscA4_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 59 |
_RS viscAh_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 60 |
_RS bottom_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 61 |
_RS side_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 62 |
_RS viscA4_DZ_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 63 |
_RS diffkr_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 64 |
_RS viscC2Leith_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 65 |
_RS viscC4Leith_msk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 66 |
|
| 67 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
Parent Directory
| 
Revision Log
| 
Revision Graph