98 |
|
|
99 |
C-- Write certain grid data to files (useful for creating netCDF |
C-- Write certain grid data to files (useful for creating netCDF |
100 |
C and general post-analysis) |
C and general post-analysis) |
101 |
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid) |
C This I/O is now done in write_grid.F |
102 |
CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid) |
103 |
CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid) |
104 |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid) |
105 |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
106 |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid) |
107 |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid) |
108 |
CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid) |
109 |
CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid) |
110 |
CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid) |
111 |
CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid) |
c CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid) |
112 |
|
c CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid) |
113 |
|
|
114 |
C-- Print out statistics of each horizontal grid array (helps when debugging) |
C-- Print out statistics of each horizontal grid array (helps when debugging) |
115 |
|
|