/[MITgcm]/MITgcm/model/src/write_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/write_grid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by jmc, Mon Oct 24 18:16:07 2005 UTC revision 1.19 by jmc, Sun Oct 30 21:17:27 2005 UTC
# Line 74  C             Total fluid column thickne Line 74  C             Total fluid column thickne
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    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22