77 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
78 |
ENDIF |
ENDIF |
79 |
|
|
|
C-- Write certain grid data to files (useful for creating netCDF |
|
|
C and general post-analysis) |
|
|
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid) |
|
|
CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid) |
|
|
|
|
|
C-- Print out statistics of each horizontal grid array (helps when debugging) |
|
|
|
|
80 |
#ifdef ALLOW_MONITOR |
#ifdef ALLOW_MONITOR |
81 |
|
C-- Print out statistics of each horizontal grid array (helps when debugging) |
82 |
CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid) |
CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid) |
83 |
CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid) |
CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid) |
84 |
CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid) |
CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid) |