74 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
75 |
|
|
76 |
C Write horizontal grid arrays |
C Write horizontal grid arrays |
77 |
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'XC',' ',XC,-1,myThid) |
78 |
CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'YC',' ',YC,-1,myThid) |
79 |
CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'XG',' ',XG,-1,myThid) |
80 |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'YG',' ',YG,-1,myThid) |
81 |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,-1,myThid) |
82 |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,-1,myThid) |
83 |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,-1,myThid) |
84 |
CALL WRITE_FLD_XY_RS( 'RAZ',' ',rAz,0,myThid) |
CALL WRITE_FLD_XY_RS( 'RAZ',' ',rAz,-1,myThid) |
85 |
CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,-1,myThid) |
86 |
CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,-1,myThid) |
87 |
CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,-1,myThid) |
88 |
CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,-1,myThid) |
89 |
IF ( usingCurvilinearGrid ) THEN |
IF ( usingCurvilinearGrid ) THEN |
90 |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
91 |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,0,myThid) |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid) |
92 |
ENDIF |
ENDIF |
93 |
C Write 3D geometry arrays |
C Write 3D geometry arrays |
94 |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid) |
CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid) |
95 |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC, 0,myThid) |
96 |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW, 0,myThid) |
97 |
CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS,0,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS, 0,myThid) |
98 |
IF (buoyancyRelation .EQ. 'ATMOSPHERIC') |
IF (buoyancyRelation .EQ. 'ATMOSPHERIC') |
99 |
& CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,0,myThid) |
& CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,-1,myThid) |
100 |
|
|
101 |
|
#ifdef ALLOW_MDSIO |
102 |
|
C Write vertical grid arrays |
103 |
|
CALL MDSWRITEVEC_LOC_RS('RC', writeBinaryPrec, Nr, rC, |
104 |
|
& 0,0, 1, -1, myThid) |
105 |
|
CALL MDSWRITEVEC_LOC_RS('RF', writeBinaryPrec,1+Nr, rF, |
106 |
|
& 0,0, 1, -1, myThid) |
107 |
|
CALL MDSWRITEVEC_LOC_RS('DRC',writeBinaryPrec, Nr, drC, |
108 |
|
& 0,0, 1, -1, myThid) |
109 |
|
CALL MDSWRITEVEC_LOC_RS('DRF',writeBinaryPrec, Nr, drF, |
110 |
|
& 0,0, 1, -1, myThid) |
111 |
|
#endif /* ALLOW_MDSIO */ |
112 |
|
|
113 |
_END_MASTER(myThid) |
_END_MASTER(myThid) |
114 |
|
|