46 |
C msgBuf - Used for informational I/O. |
C msgBuf - Used for informational I/O. |
47 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
48 |
|
|
49 |
C-- Set up grid coordinate system |
C-- Set up vertical grid and coordinate system |
50 |
|
CALL INI_VERTICAL_GRID( myThid ) |
51 |
|
|
52 |
|
C-- Set up horizontal grid and coordinate system |
53 |
IF ( usingCartesianGrid ) THEN |
IF ( usingCartesianGrid ) THEN |
54 |
CALL INI_CARTESIAN_GRID( myThid ) |
CALL INI_CARTESIAN_GRID( myThid ) |
55 |
ELSEIF ( usingSphericalPolarGrid ) THEN |
ELSEIF ( usingSphericalPolarGrid ) THEN |