/[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.35 by jmc, Fri Jun 1 03:19:53 2012 UTC revision 1.38 by jmc, Fri Jul 26 14:22:22 2013 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "AD_CONFIG.h"  
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    #include "AD_CONFIG.h"
7    
8  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
9  CBOP  CBOP
# Line 93  C     Write horizontal grid arrays Line 93  C     Write horizontal grid arrays
93          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN          IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
94            CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid)            CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid)
95            CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid)            CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid)
96              CALL WRITE_FLD_XY_RS( 'U2zonDir',' ',u2zonDir,-1,myThid)
97              CALL WRITE_FLD_XY_RS( 'V2zonDir',' ',v2zonDir,-1,myThid)
98          ENDIF          ENDIF
99  C     Write 3D geometry arrays  C     Write 3D geometry arrays
100          CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid)          CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,-1,myThid)
# Line 121  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.35  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22