75 |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
76 |
CALL WRITE_FLD_XY_RS( 'AC',' ',rA,0,myThid) |
CALL WRITE_FLD_XY_RS( 'AC',' ',rA,0,myThid) |
77 |
|
|
78 |
|
C-- Print out statistics of each horizontal grid array (helps when debugging) |
79 |
|
CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid) |
80 |
|
CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid) |
81 |
|
CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid) |
82 |
|
CALL MON_PRINTSTATS_RS(1,DXF,'DXF',myThid) |
83 |
|
CALL MON_PRINTSTATS_RS(1,DXG,'DXG',myThid) |
84 |
|
CALL MON_PRINTSTATS_RS(1,DXV,'DXV',myThid) |
85 |
|
CALL MON_PRINTSTATS_RS(1,YC,'YC',myThid) |
86 |
|
CALL MON_PRINTSTATS_RS(1,YG,'YG',myThid) |
87 |
|
CALL MON_PRINTSTATS_RS(1,DYC,'DYC',myThid) |
88 |
|
CALL MON_PRINTSTATS_RS(1,DYF,'DYF',myThid) |
89 |
|
CALL MON_PRINTSTATS_RS(1,DYG,'DYG',myThid) |
90 |
|
CALL MON_PRINTSTATS_RS(1,DYU,'DYU',myThid) |
91 |
|
CALL MON_PRINTSTATS_RS(1,RA,'RA',myThid) |
92 |
|
CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid) |
93 |
|
CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid) |
94 |
|
CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid) |
95 |
|
|
96 |
RETURN |
RETURN |
97 |
END |
END |