/[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.14 by dimitri, Fri Jun 25 02:49:49 2004 UTC revision 1.15 by dimitri, Tue Jun 29 13:51:48 2004 UTC
# Line 367  c     CALL WRITE_FULLARRAY_RL('RAZ',RAZ, Line 367  c     CALL WRITE_FULLARRAY_RL('RAZ',RAZ,
367  c     CALL WRITE_FULLARRAY_RL('XG',XG,1,0,myThid)  c     CALL WRITE_FULLARRAY_RL('XG',XG,1,0,myThid)
368  c     CALL WRITE_FULLARRAY_RL('YG',YG,1,0,myThid)  c     CALL WRITE_FULLARRAY_RL('YG',YG,1,0,myThid)
369    
370    C--   Require that 0 <= longitude < 360 if using exf package
371    #ifdef ALLOW_EXF
372          DO bj = 1,nSy
373           DO bi = 1,nSx
374            DO J=1-Oly,sNy+Oly
375             DO I=1-Olx,sNx+Olx
376              IF (XC(i,j,bi,bj).lt.0.) XC(i,j,bi,bj)=XC(i,j,bi,bj)+360.
377              IF (XG(i,j,bi,bj).lt.0.) XG(i,j,bi,bj)=XG(i,j,bi,bj)+360.
378             ENDDO
379            ENDDO
380           ENDDO
381          ENDDO
382    #endif /* ALLOW_EXF */
383    
384  C--   Now let's look at all these beasts  C--   Now let's look at all these beasts
385        IF ( debugLevel .GE. debLevB ) THEN        IF ( debugLevel .GE. debLevB ) THEN
386           myiter = 1           myiter = 1
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22