/[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.37 by jmc, Sun Feb 17 02:24:57 2013 UTC revision 1.38 by jmc, Fri Jul 26 14:22:22 2013 UTC
# Line 123  c         CALL WRITE_FULLARRAY_RS('maskI Line 123  c         CALL WRITE_FULLARRAY_RS('maskI
123  C     Write vertical grid arrays  C     Write vertical grid arrays
124          CALL WRITE_GLVEC_RS( 'RC', ' ', rC,  Nr, -1, myThid )          CALL WRITE_GLVEC_RS( 'RC', ' ', rC,  Nr, -1, myThid )
125          CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid )          CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid )
126          CALL WRITE_GLVEC_RS( 'DRC',' ', drC, Nr, -1, myThid )          CALL WRITE_GLVEC_RS( 'DRC',' ', drC,1+Nr,-1, myThid )
127          CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid )          CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid )
128          IF ( selectSigmaCoord.NE.0 ) THEN          IF ( selectSigmaCoord.NE.0 ) THEN
129           CALL WRITE_GLVEC_RS( 'AHybSigF',' ',aHybSigmF,1+Nr,-1,myThid )           CALL WRITE_GLVEC_RS( 'AHybSigF',' ',aHybSigmF,1+Nr,-1,myThid )
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22