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

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

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

revision 1.14 by jmc, Sun Nov 23 04:19:11 2003 UTC revision 1.16 by adcroft, Thu May 13 15:40:53 2004 UTC
# Line 54  C     !LOCAL VARIABLES: Line 54  C     !LOCAL VARIABLES:
54  C     == Local variables ==  C     == Local variables ==
55  C     msgBuf - Used for informational I/O.  C     msgBuf - Used for informational I/O.
56        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
57    #ifdef ALLOW_EXF
58          INTEGER i, j, bi, bj
59    #endif /* ALLOW_EXF */
60  CEOP  CEOP
61    
62  C--   Set up vertical grid and coordinate system  C--   Set up vertical grid and coordinate system
# Line 75  C--   Set up horizontal grid and coordin Line 78  C--   Set up horizontal grid and coordin
78         _END_MASTER(myThid)         _END_MASTER(myThid)
79        ENDIF        ENDIF
80    
81    #ifdef ALLOW_EXF
82    C--   exf_interp assumes that 0 <= xG, xC <= 360
83    C     This is a quick fix until this assumption is relaxed
84    C     and the interpolation weights are pre-computed.
85          DO bj = myByLo(myThid), myByHi(myThid)
86           DO bi = myBxLo(myThid), myBxHi(myThid)
87            DO J=1-Oly,sNy+Oly
88             DO I=1-Olx,sNx+Olx
89              IF ( xG(I,J,bi,bj) .LT. 0 )
90         &           xG(I,J,bi,bj) = xG(I,J,bi,bj) + 360
91              IF ( xC(I,J,bi,bj) .LT. 0 )
92         &           xC(I,J,bi,bj) = xC(I,J,bi,bj) + 360
93             ENDDO
94            ENDDO
95           ENDDO
96          ENDDO
97    #endif /* ALLOW_EXF */
98    
99  C--   Write certain grid data to files (useful for creating netCDF  C--   Write certain grid data to files (useful for creating netCDF
100  C     and general post-analysis)  C     and general post-analysis)
101        CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid)  C     This I/O is now done in write_grid.F
102        CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'XC',' ',XC,0,myThid)
103        CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'YC',' ',YC,0,myThid)
104        CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'XG',' ',XG,0,myThid)
105        CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'YG',' ',YG,0,myThid)
106        CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,0,myThid)
107        CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'RAW',' ',rAw,0,myThid)
108        CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'RAS',' ',rAs,0,myThid)
109        CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'DXG',' ',DXG,0,myThid)
110        CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'DYG',' ',DYG,0,myThid)
111        CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'DXC',' ',DXC,0,myThid)
112    c     CALL WRITE_FLD_XY_RS( 'DYC',' ',DYC,0,myThid)
113    
114  C--   Print out statistics of each horizontal grid array (helps when debugging)  C--   Print out statistics of each horizontal grid array (helps when debugging)
115    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22