Parent Directory | Revision Log | Revision Graph | Patch
revision 1.19 by jmc, Sun Oct 30 21:17:27 2005 UTC | revision 1.20 by cnh, Tue Nov 8 23:01:10 2005 UTC | |
---|---|---|
# | Line 71 C Total fluid column thickne | Line 71 C Total fluid column thickne |
71 | ||
72 | IF ( writegrid_mdsio ) THEN | IF ( writegrid_mdsio ) THEN |
73 | ||
74 | _BEGIN_MASTER( myThid ) | C _BEGIN_MASTER( myThid ) |
75 | ||
76 | C Write horizontal grid arrays | C Write horizontal grid arrays |
77 | CALL WRITE_FLD_XY_RS( 'XC',' ',XC,-1,myThid) | CALL WRITE_FLD_XY_RS( 'XC',' ',XC,-1,myThid) |
# | Line 110 C Write vertical grid arrays | Line 110 C Write vertical grid arrays |
110 | & 0,0, 1, -1, myThid) | & 0,0, 1, -1, myThid) |
111 | #endif /* ALLOW_MDSIO */ | #endif /* ALLOW_MDSIO */ |
112 | ||
113 | _END_MASTER(myThid) | C _END_MASTER(myThid) |
114 | ||
115 | ENDIF | ENDIF |
116 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |