1 |
C $Header$ |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
5 |
|
|
24 |
CEndOfInterface |
CEndOfInterface |
25 |
|
|
26 |
C === Local variables === |
C === Local variables === |
|
C K - Loop counter |
|
27 |
C iUnit - Work variable for IO unit number |
C iUnit - Work variable for IO unit number |
28 |
C errIO - IO unit error flag |
C errIO - IO unit error flag |
29 |
INTEGER K, IL |
INTEGER IL |
30 |
INTEGER errIO |
INTEGER errIO |
31 |
INTEGER iUnit |
INTEGER iUnit |
32 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
36 |
INTEGER ILNBLNK |
INTEGER ILNBLNK |
37 |
EXTERNAL ILNBLNK |
EXTERNAL ILNBLNK |
38 |
NAMELIST /EEPARMS/ |
NAMELIST /EEPARMS/ |
39 |
& nTx, nTy |
& nTx, nTy,usingMPI,useCubedSphereExchange |
40 |
|
|
41 |
|
|
42 |
C-- For now these options are fixed as the code does |
C-- For now these options are fixed as the code does |
74 |
C |
C |
75 |
notUsingXPeriodicity = .FALSE. |
notUsingXPeriodicity = .FALSE. |
76 |
notUsingYPeriodicity = .FALSE. |
notUsingYPeriodicity = .FALSE. |
77 |
|
useCubedSphereExchange = .FALSE. |
78 |
usingMPI = .FALSE. |
usingMPI = .FALSE. |
79 |
nTx = 1 |
nTx = 1 |
80 |
nTy = 1 |
nTy = 1 |