35 |
C W2_oUnit :: output fortran Unit for printing Std messages |
C W2_oUnit :: output fortran Unit for printing Std messages |
36 |
C W2_printMsg :: select option for information messages printing |
C W2_printMsg :: select option for information messages printing |
37 |
C < 0 :: open and print to "w2_tile_topology" log file |
C < 0 :: open and print to "w2_tile_topology" log file |
38 |
C = 0 :: print the minimun, to StdOut |
C = 0 :: print the minimum, to StdOut |
39 |
C = 1 :: no duplicated print from different processes (only Master) |
C = 1 :: no duplicated print from different processes (only Master) |
40 |
C = 2 :: all processes do print (used to check). |
C = 2 :: all processes do print (used to check). |
41 |
INTEGER preDefTopol |
INTEGER preDefTopol |
88 |
Real*4 facet_link( 4, W2_maxNbFacets ) |
Real*4 facet_link( 4, W2_maxNbFacets ) |
89 |
COMMON /W2_EXCH2_PARM_R/ facet_link |
COMMON /W2_EXCH2_PARM_R/ facet_link |
90 |
|
|
91 |
C-- COMMON /EXCH2_FILLVAL_RX/ real type filling vallue used by EXCH2 |
C-- COMMON /EXCH2_FILLVAL_RX/ real type filling value used by EXCH2 |
92 |
C e2FillValue_RX :: filling value for null regions (facet-corner |
C e2FillValue_RX :: filling value for null regions (facet-corner |
93 |
C :: halo regions) |
C :: halo regions) |
94 |
_RL e2FillValue_RL |
_RL e2FillValue_RL |