/[MITgcm]/MITgcm/pkg/opps/opps_check.F
ViewVC logotype

Diff of /MITgcm/pkg/opps/opps_check.F

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

revision 1.1 by mlosch, Thu Sep 16 11:28:16 2004 UTC revision 1.2 by mlosch, Thu Sep 23 12:02:54 2004 UTC
# Line 29  C     msgBuf      - Informational/error Line 29  C     msgBuf      - Informational/error
29        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
30       &     SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , 1)
31    
32    C     So far, OPPS works only with oceanic z-coordinates
33          IF ( buoyancyRelation .NE. 'OCEANIC' ) THEN
34             WRITE(msgBuf,'(A)')
35         &      'OPPS works only with buoyancyRelation = ''OCEANIC'''
36             CALL PRINT_ERROR( msgBuf , 1)
37             STOP 'ABNORMAL END: S/R OPPS_CHECK'
38          ENDIF
39    
40  C     OPPS needs convection turned off (will be packaged later)  C     OPPS needs convection turned off (will be packaged later)
41        IF (cAdjFreq.NE.0. .OR.        IF (cAdjFreq.NE.0. .OR.
42       &     ivdc_kappa.NE.0. ) THEN       &     ivdc_kappa.NE.0. ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22