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

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

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

revision 1.11 by edhill, Tue Mar 9 03:45:28 2004 UTC revision 1.12 by dimitri, Wed Mar 10 03:46:38 2004 UTC
# Line 247  c     write(10) RAS Line 247  c     write(10) RAS
247  c     write(10) DXG  c     write(10) DXG
248  c     write(10) DYG  c     write(10) DYG
249    
250  #else  #else /* ifndef OLD_GRID_IO */
251    
252  C--   Only do I/O if I am the master thread  C--   Only do I/O if I am the master thread
253        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
# Line 329  C--   Only do I/O if I am the master thr Line 329  C--   Only do I/O if I am the master thr
329        CALL EXCH_XY_RS(XC,myThid)        CALL EXCH_XY_RS(XC,myThid)
330        CALL EXCH_XY_RS(YC,myThid)        CALL EXCH_XY_RS(YC,myThid)
331  C !!! _EXCH_OUV_XY_R4(DXF, DYF, unSigned, myThid )  C !!! _EXCH_OUV_XY_R4(DXF, DYF, unSigned, myThid )
332  c     CALL EXCH_XY_RS(DXF,myThid)  #ifdef HRCUBE
333  c     CALL EXCH_XY_RS(DYF,myThid)        CALL EXCH_XY_RS(DXF,myThid)
334          CALL EXCH_XY_RS(DYF,myThid)
335    #endif
336        CALL EXCH_XY_RS(RA,myThid )        CALL EXCH_XY_RS(RA,myThid )
337  #ifndef ALLOW_EXCH2  #ifndef ALLOW_EXCH2
338        CALL EXCH_Z_XY_RS(XG,myThid)        CALL EXCH_Z_XY_RS(XG,myThid)
# Line 344  c     CALL EXCH_Z_XY_RS(DYU,myThid) Line 346  c     CALL EXCH_Z_XY_RS(DYU,myThid)
346        CALL EXCH_UV_XY_RS(RAW,RAS,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(RAW,RAS,.FALSE.,myThid)
347        CALL EXCH_UV_XY_RS(DYG,DXG,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(DYG,DXG,.FALSE.,myThid)
348    
349  #endif  #endif /* OLD_GRID_IO */
350    
351  c     CALL WRITE_FULLARRAY_RL('DXV',DXV,1,0,myThid)  c     CALL WRITE_FULLARRAY_RL('DXV',DXV,1,0,myThid)
352  c     CALL WRITE_FULLARRAY_RL('DYU',DYU,1,0,myThid)  c     CALL WRITE_FULLARRAY_RL('DYU',DYU,1,0,myThid)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22