86 |
Real*4 facet_link( 4, W2_maxNbFacets ) |
Real*4 facet_link( 4, W2_maxNbFacets ) |
87 |
COMMON /W2_EXCH2_PARM_R/ facet_link |
COMMON /W2_EXCH2_PARM_R/ facet_link |
88 |
|
|
|
C-- COMMON /EXCH2_FILLVAL_RX/ real type filling value used by EXCH2 |
|
|
C e2FillValue_RX :: filling value for null regions (facet-corner |
|
|
C :: halo regions) |
|
|
_RL e2FillValue_RL |
|
|
_RS e2FillValue_RS |
|
|
_R4 e2FillValue_R4 |
|
|
_R8 e2FillValue_R8 |
|
|
COMMON /EXCH2_FILLVAL_RL/ e2FillValue_RL |
|
|
COMMON /EXCH2_FILLVAL_RS/ e2FillValue_RS |
|
|
COMMON /EXCH2_FILLVAL_R4/ e2FillValue_R4 |
|
|
COMMON /EXCH2_FILLVAL_R8/ e2FillValue_R8 |
|
|
|
|
89 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |