/[MITgcm]/MITgcm/pkg/autodiff/autodiff_check.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_check.F

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

revision 1.9 by heimbach, Thu Aug 18 09:13:35 2011 UTC revision 1.10 by heimbach, Thu Aug 18 09:35:31 2011 UTC
# Line 33  CEOP Line 33  CEOP
33    
34  #if (defined (AUTODIFF_2_LEVEL_CHECKPOINT))  #if (defined (AUTODIFF_2_LEVEL_CHECKPOINT))
35        if (nchklev_1*nchklev_2 .lt. nTimeSteps) then        if (nchklev_1*nchklev_2 .lt. nTimeSteps) then
36          print*, ' the_main_loop: TAMC checkpointing parameters'          WRITE(msgBuf,'(A)')
37          print*, '     nchklev_1*nchklev_2 = ',       &       'THE_MAIN_LOOP: TAMC checkpointing parameters'
38            CALL PRINT_ERROR( msgBuf , myThid )
39            WRITE(msgBuf,'(A,I10)')
40         &       '            nchklev_1*nchklev_2 = ',
41       &       nchklev_1*nchklev_2       &       nchklev_1*nchklev_2
42          print*, '            are not consistent with nTimeSteps = ',          CALL PRINT_ERROR( msgBuf , myThid )
43            WRITE(msgBuf,'(A,I10)')
44         &       '            are not consistent with nTimeSteps = ',
45       &       nTimeSteps       &       nTimeSteps
46          stop    ' ... stopped in autodiff_check'          CALL PRINT_ERROR( msgBuf , myThid )
47            STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'
48        endif        endif
49  #elif (defined (AUTODIFF_4_LEVEL_CHECKPOINT))  #elif (defined (AUTODIFF_4_LEVEL_CHECKPOINT))
50        if (nchklev_1*nchklev_2*nchklev_3*nchklev_4 .lt. nTimeSteps) then        if (nchklev_1*nchklev_2*nchklev_3*nchklev_4 .lt. nTimeSteps) then
51          print*, ' the_main_loop: TAMC checkpointing parameters'          WRITE(msgBuf,'(A)')
52          print*, '     nchklev_1*nchklev_2*nchklev_3*nchklev_4 = ',       &       'THE_MAIN_LOOP: TAMC checkpointing parameters'
53            CALL PRINT_ERROR( msgBuf , myThid )
54            WRITE(msgBuf,'(A,I10)')
55         &       '            nchklev_1*nchklev_2*nchklev_3*nchklev_4 = ',
56       &       nchklev_1*nchklev_2*nchklev_3*nchklev_4       &       nchklev_1*nchklev_2*nchklev_3*nchklev_4
57          print*, '            are not consistent with nTimeSteps = ',          CALL PRINT_ERROR( msgBuf , myThid )
58            WRITE(msgBuf,'(A,I10)')
59         &       '            are not consistent with nTimeSteps = ',
60       &       nTimeSteps       &       nTimeSteps
61          stop    ' ... stopped in autodiff_check'          CALL PRINT_ERROR( msgBuf , myThid )
62            STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'
63        endif        endif
64  #else  #else
65  c--   Check the choice of the checkpointing parameters in relation  c--   Check the choice of the checkpointing parameters in relation
66  c--   to nTimeSteps: (nchklev_1*nchklev_2*nchklev_3 .ge. nTimeSteps)  c--   to nTimeSteps: (nchklev_1*nchklev_2*nchklev_3 .ge. nTimeSteps)
67        if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then        if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then
68          print*, ' the_main_loop: TAMC checkpointing parameters'          WRITE(msgBuf,'(A)')
69          print*, '     nchklev_1*nchklev_2*nchklev_3 = ',       &       'THE_MAIN_LOOP: TAMC checkpointing parameters'
70            CALL PRINT_ERROR( msgBuf , myThid )
71            WRITE(msgBuf,'(A,I10)')
72         &       '            nchklev_1*nchklev_2*nchklev_3 = ',
73       &       nchklev_1*nchklev_2*nchklev_3       &       nchklev_1*nchklev_2*nchklev_3
74          print*, '            are not consistent with nTimeSteps = ',          CALL PRINT_ERROR( msgBuf , myThid )
75            WRITE(msgBuf,'(A,I10)')
76         &       '            are not consistent with nTimeSteps = ',
77       &       nTimeSteps       &       nTimeSteps
78          stop    ' ... stopped in autodiff_check'          CALL PRINT_ERROR( msgBuf , myThid )
79            STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'
80        endif        endif
81  #endif  #endif
82    
83  #ifndef ALLOW_AUTODIFF_MONITOR  #ifndef ALLOW_AUTODIFF_MONITOR
84         IF ( adjDumpFreq .NE. 0. ) THEN         IF ( adjDumpFreq .NE. 0. ) THEN
85          STOP 'adjDumpFreq <> 0, but undef ALLOW_AUTODIFF_MONITOR'          WRITE(msgBuf,'(A)')
86         &         'adjDumpFreq <> 0, but undef ALLOW_AUTODIFF_MONITOR'
87            CALL PRINT_ERROR( msgBuf , myThid )
88            STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'
89         ENDIF         ENDIF
90         IF ( adjMonitorFreq .NE. 0. ) THEN         IF ( adjMonitorFreq .NE. 0. ) THEN
91          STOP 'adjMonitorFreq <> 0, but undef ALLOW_AUTODIFF_MONITOR'          WRITE(msgBuf,'(A)')
92         &         'adjMonitorFreq <> 0, but undef ALLOW_AUTODIFF_MONITOR'
93            CALL PRINT_ERROR( msgBuf , myThid )
94            STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'
95         ENDIF         ENDIF
96  #endif  #endif
97    
# Line 76  c--   to nTimeSteps: (nchklev_1*nchklev_ Line 100  c--   to nTimeSteps: (nchklev_1*nchklev_
100          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
101       &         'Need to have useSingleCpuIO=.FALSE. with useGrdchk'       &         'Need to have useSingleCpuIO=.FALSE. with useGrdchk'
102          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
103            STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'          STOP 'ABNORMAL END: S/R AUTODIFF_CHECK'
104         ENDIF         ENDIF
105  #endif  #endif
106    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22