/[MITgcm]/MITgcm/pkg/exf/exf_check.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_check.F

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

revision 1.30 by jmc, Fri Feb 3 02:05:33 2017 UTC revision 1.31 by jmc, Sun Feb 12 00:50:58 2017 UTC
# Line 61  C     check for consistency Line 61  C     check for consistency
61         errCount = errCount + 1         errCount = errCount + 1
62        ENDIF        ENDIF
63    
64        IF (repeatPeriod.lt.0.) THEN        IF ( repeatPeriod.LT.0. ) THEN
65         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
66       &      'S/R EXF_CHECK: repeatPeriod must be positive'       &      'S/R EXF_CHECK: repeatPeriod must be positive'
67         CALL PRINT_ERROR( msgBuf, myThid )         CALL PRINT_ERROR( msgBuf, myThid )
68         errCount = errCount + 1         errCount = errCount + 1
69        ENDIF        ENDIF
70    
71        IF (useExfYearlyFields.and.repeatPeriod.ne.0.) THEN        IF ( useExfYearlyFields ) THEN
72         WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: The use of ',         IF ( .NOT.useCAL ) THEN
73       $      'useExfYearlyFields AND repeatPeriod is not implemented'          WRITE(msgBuf,'(2A)') 'S/R EXF_CHECK: ',
74         CALL PRINT_ERROR( msgBuf, myThid )       &       'useExfYearlyFields requires to use pkg/cal (useCAL=T)'
75         errCount = errCount + 1          CALL PRINT_ERROR( msgBuf, myThid )
76            errCount = errCount + 1
77           ENDIF
78           IF ( repeatPeriod.NE.0. ) THEN
79            WRITE(msgBuf,'(2A)') 'S/R EXF_CHECK: The use of ',
80         &       'useExfYearlyFields AND repeatPeriod is not implemented'
81            CALL PRINT_ERROR( msgBuf, myThid )
82            errCount = errCount + 1
83           ENDIF
84          ENDIF
85          IF ( useOBCS .AND. useOBCSYearlyFields ) THEN
86           IF ( .NOT.useCAL ) THEN
87            WRITE(msgBuf,'(2A)') 'S/R EXF_CHECK: ',
88         &       'useOBCSYearlyFields requires to use pkg/cal (useCAL=T)'
89            CALL PRINT_ERROR( msgBuf, myThid )
90            errCount = errCount + 1
91           ENDIF
92           IF ( repeatPeriod.NE.0. ) THEN
93            WRITE(msgBuf,'(2A)') 'S/R EXF_CHECK: ',
94         &       'useOBCSYearlyFields not implemented for repeatPeriod <> 0'
95            CALL PRINT_ERROR( msgBuf, myThid )
96            errCount = errCount + 1
97           ENDIF
98        ENDIF        ENDIF
99    
100        IF ( useAtmWind ) THEN        IF ( useAtmWind ) THEN
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22