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

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

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

revision 1.3 by jmc, Fri Apr 23 20:21:06 2010 UTC revision 1.4 by jmc, Fri Mar 30 18:23:13 2012 UTC
# Line 65  C-    Default: take global dimension fro Line 65  C-    Default: take global dimension fro
65       &     ' unvalid 1rst 2 dimensions:', facet_dims(1), facet_dims(2)       &     ' unvalid 1rst 2 dimensions:', facet_dims(1), facet_dims(2)
66           CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )           CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )
67           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
68           CALL ALL_PROC_DIE( myThid )           CALL ALL_PROC_DIE( 0 )
69           STOP 'ABNORMAL END: S/R W2_SET_SINGLE_FACET: unvalid dims'           STOP 'ABNORMAL END: S/R W2_SET_SINGLE_FACET: unvalid dims'
70        ENDIF        ENDIF
71        DO j=3,W2_maxNbFacets*2        DO j=3,W2_maxNbFacets*2
# Line 74  C-    Default: take global dimension fro Line 74  C-    Default: take global dimension fro
74       &     ' no more than 2 dims (X,Y) expected for single facet'       &     ' no more than 2 dims (X,Y) expected for single facet'
75           CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )           CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid )
76           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
77           CALL ALL_PROC_DIE( myThid )           CALL ALL_PROC_DIE( 0 )
78           STOP 'ABNORMAL END: S/R W2_SET_SINGLE_FACET: unexpected dims'           STOP 'ABNORMAL END: S/R W2_SET_SINGLE_FACET: unexpected dims'
79         ENDIF         ENDIF
80        ENDDO        ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22