/[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.20 by jmc, Wed Jul 13 00:41:44 2005 UTC revision 1.21 by jmc, Mon Aug 22 23:07:14 2005 UTC
# Line 38  C     === Global variables === Line 38  C     === Global variables ===
38  #ifndef ALLOW_EXCH2  #ifndef ALLOW_EXCH2
39  C- note: default is to use "new" grid files (OLD_GRID_IO undef) with EXCH2  C- note: default is to use "new" grid files (OLD_GRID_IO undef) with EXCH2
40  C    but can still use (on 1 cpu) OLD_GRID_IO and EXCH2 independently  C    but can still use (on 1 cpu) OLD_GRID_IO and EXCH2 independently
41    #ifdef ALLOW_MDSIO
42  #define OLD_GRID_IO  #define OLD_GRID_IO
43    #endif
44  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
45    
46  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
47  C     == Routine arguments ==  C     == Routine arguments ==
48  C     myThid -  Number of this instance of INI_CARTESIAN_GRID  C     myThid -  Number of this instance of INI_CURVILINEAR_GRID
49        INTEGER myThid        INTEGER myThid
50    
51  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
52  C     == Local variables ==  C     == Local variables ==
53        INTEGER bi,bj, myTile, myiter        INTEGER bi,bj, myIter
54        INTEGER I,J        INTEGER I,J
55        CHARACTER*(MAX_LEN_FNAM) fName        CHARACTER*(MAX_LEN_FNAM) fName
56  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 56  C     == Local variables == Line 58  C     == Local variables ==
58  #endif  #endif
59  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
60        _RL buf(sNx*nSx*nPx+1)        _RL buf(sNx*nSx*nPx+1)
61          INTEGER myTile
62  #else  #else
63        _RL buf(sNx+1,sNy+1)        _RL buf(sNx+1,sNy+1)
64  #endif  #endif
# Line 470  C--   Require that 0 <= longitude < 360 Line 473  C--   Require that 0 <= longitude < 360
473    
474  C--   Now let's look at all these beasts  C--   Now let's look at all these beasts
475        IF ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevB ) THEN
476           myiter = 1           myIter = 1
477           CALL PLOT_FIELD_XYRL( XC      , 'Current XC      ' ,           CALL PLOT_FIELD_XYRL( XC      , 'Current XC      ' ,
478       &        myIter, myThid )       &        myIter, myThid )
479           CALL PLOT_FIELD_XYRL( YC      , 'Current YC      ' ,           CALL PLOT_FIELD_XYRL( YC      , 'Current YC      ' ,
# Line 546  C     == Local variables == Line 549  C     == Local variables ==
549        INTEGER I,J,dUnit, iLen        INTEGER I,J,dUnit, iLen
550        INTEGER length_of_rec        INTEGER length_of_rec
551        INTEGER MDS_RECLEN        INTEGER MDS_RECLEN
552    #ifdef ALLOW_EXCH2
553        INTEGER TN, dNx, dNy, TBX, TBY, TNX, TNY, II, iBase        INTEGER TN, dNx, dNy, TBX, TBY, TNX, TNY, II, iBase
554    #endif
555        INTEGER  ILNBLNK        INTEGER  ILNBLNK
556        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
557    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22