/[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.2 by jmc, Wed Apr 27 14:10:05 2005 UTC revision 1.3 by heimbach, Wed Aug 10 03:34:48 2005 UTC
# Line 29  CEOP Line 29  CEOP
29    
30  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
31    
32  #ifdef AUTODIFF_2_LEVEL_CHECKPOINT  #if (defined (AUTODIFF_2_LEVEL_CHECKPOINT))
33        if (nchklev_1*nchklev_2 .lt. nTimeSteps) then        if (nchklev_1*nchklev_2 .lt. nTimeSteps) then
34          print*, ' the_main_loop: TAMC checkpointing parameters'          print*, ' the_main_loop: TAMC checkpointing parameters'
35          print*, '            nchklev_1*nchklev_2 = ',          print*, '     nchklev_1*nchklev_2 = ',
36       &       nchklev_1*nchklev_2       &       nchklev_1*nchklev_2
37          print*, '            are not consistent with nTimeSteps = ',          print*, '            are not consistent with nTimeSteps = ',
38       &       nTimeSteps       &       nTimeSteps
39          stop    ' ... stopped in autodiff_check'          stop    ' ... stopped in autodiff_check'
40        endif        endif
41    #elif (defined (AUTODIFF_4_LEVEL_CHECKPOINT))
42          if (nchklev_1*nchklev_2*nchklev_3*nchklev_4 .lt. nTimeSteps) then
43            print*, ' the_main_loop: TAMC checkpointing parameters'
44            print*, '     nchklev_1*nchklev_2*nchklev_3*nchklev_4 = ',
45         &       nchklev_1*nchklev_2*nchklev_3*nchklev_4
46            print*, '            are not consistent with nTimeSteps = ',
47         &       nTimeSteps
48            stop    ' ... stopped in autodiff_check'
49          endif
50  #else  #else
51  c--   Check the choice of the checkpointing parameters in relation  c--   Check the choice of the checkpointing parameters in relation
52  c--   to nTimeSteps: (nchklev_1*nchklev_2*nchklev_3 .ge. nTimeSteps)  c--   to nTimeSteps: (nchklev_1*nchklev_2*nchklev_3 .ge. nTimeSteps)
53        if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then        if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then
54          print*, ' the_main_loop: TAMC checkpointing parameters'          print*, ' the_main_loop: TAMC checkpointing parameters'
55          print*, '            nchklev_1*nchklev_2*nchklev_3 = ',          print*, '     nchklev_1*nchklev_2*nchklev_3 = ',
56       &       nchklev_1*nchklev_2*nchklev_3       &       nchklev_1*nchklev_2*nchklev_3
57          print*, '            are not consistent with nTimeSteps = ',          print*, '            are not consistent with nTimeSteps = ',
58       &       nTimeSteps       &       nTimeSteps
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22