/[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.31 by jmc, Thu Dec 17 23:48:26 2009 UTC revision 1.32 by jmc, Sat Sep 11 21:24:52 2010 UTC
# Line 111  C     Write vertical grid arrays Line 111  C     Write vertical grid arrays
111          CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid )          CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid )
112          CALL WRITE_GLVEC_RS( 'DRC',' ', drC, Nr, -1, myThid )          CALL WRITE_GLVEC_RS( 'DRC',' ', drC, Nr, -1, myThid )
113          CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid )          CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid )
114            IF ( selectSigmaCoord.NE.0 ) THEN
115             CALL WRITE_GLVEC_RS( 'AHybSigF',' ',aHybSigmF,1+Nr,-1,myThid )
116             CALL WRITE_GLVEC_RS( 'BHybSigF',' ',bHybSigmF,1+Nr,-1,myThid )
117             CALL WRITE_GLVEC_RS( 'AHybSigC',' ',aHybSigmC, Nr, -1,myThid )
118             CALL WRITE_GLVEC_RS( 'BHybSigC',' ',bHybSigmC, Nr, -1,myThid )
119             CALL WRITE_GLVEC_RS('DAHybSigF',' ',dAHybSigF, Nr, -1,myThid )
120             CALL WRITE_GLVEC_RS('DBHybSigF',' ',dBHybSigF, Nr, -1,myThid )
121             CALL WRITE_GLVEC_RS('DAHybSigC',' ',dAHybSigC,1+Nr,-1,myThid )
122             CALL WRITE_GLVEC_RS('DBHybSigC',' ',dBHybSigC,1+Nr,-1,myThid )
123            ENDIF
124  C--  comment out the "if": also usefull for the Ocean (to get the full Presure)  C--  comment out the "if": also usefull for the Ocean (to get the full Presure)
125  c       IF (buoyancyRelation .EQ. 'ATMOSPHERIC') THEN  c       IF (buoyancyRelation .EQ. 'ATMOSPHERIC') THEN
126          DO k=1,Nr+1          DO k=1,Nr+1
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22