/[MITgcm]/MITgcm/pkg/exch2/w2_set_cs6_facets.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_set_cs6_facets.F

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

revision 1.1 by jmc, Tue May 12 19:40:32 2009 UTC revision 1.2 by jmc, Tue May 26 23:08:25 2009 UTC
# Line 53  CEOP Line 53  CEOP
53    
54  C--   Number of facets:  C--   Number of facets:
55        nFacets = 6        nFacets = 6
56        IF ( nfacets.GT.W2_maxNbFacets )        IF ( nfacets.GT.W2_maxNbFacets ) THEN
57       & STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS (nFacets>maxNbFacets)'         CALL ALL_PROC_DIE( myThid )
58           STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS (nFacets>maxNbFacets)'
59          ENDIF
60    
61  C--   Facet Edge connections ( edges order: N,S,E,W <==> 1,2,3,4 )  C--   Facet Edge connections ( edges order: N,S,E,W <==> 1,2,3,4 )
62        DO j=1,nFacets        DO j=1,nFacets
# Line 89  C--   facet dimension: take the 1rst 3 n Line 91  C--   facet dimension: take the 1rst 3 n
91       &     ' no more than 3 dims (nRd,nGr,nBl) expected for CS-6 Topol'       &     ' no more than 3 dims (nRd,nGr,nBl) expected for CS-6 Topol'
92           CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )           CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )
93           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
94             CALL ALL_PROC_DIE( myThid )
95           STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS: allows 3 dims only'           STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS: allows 3 dims only'
96          ENDIF          ENDIF
97        ENDDO        ENDDO
# Line 121  C-    try to get cube size from number o Line 124  C-    try to get cube size from number o
124            CALL PRINT_ERROR( msgBuf, myThid )            CALL PRINT_ERROR( msgBuf, myThid )
125          ENDIF          ENDIF
126        ENDIF        ENDIF
127        IF ( nRd*nGr*nBl.EQ.0 )        IF ( nRd*nGr*nBl.EQ.0 ) THEN
128       & STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS (Dims are missing)'         CALL ALL_PROC_DIE( myThid )
129           STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS (Dims are missing)'
130          ENDIF
131    
132    
133  C--   Set facet dimension : 1rst 3 are known:  C--   Set facet dimension : 1rst 3 are known:
# Line 175  C-    Corresponding Edge length Line 180  C-    Corresponding Edge length
180            CALL PRINT_ERROR( msgBuf, myThid )            CALL PRINT_ERROR( msgBuf, myThid )
181           ENDIF           ENDIF
182          ENDDO          ENDDO
183            CALL ALL_PROC_DIE( myThid )
184          STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS (unset facet dims)'          STOP 'ABNORMAL END: S/R W2_SET_CS6_FACETS (unset facet dims)'
185        ENDIF        ENDIF
186    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22