pkg/autodiff/autodiff_check.F

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/autodiff_ini_model_io.F,v 1.1 2004/09/29 03:45:14 heimbach Exp $
C $Name:  $

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: AUTODIFF_CHECK
C     !INTERFACE:
      SUBROUTINE AUTODIFF_CHECK( myThid )

C     !DESCRIPTION: \bv
C     \ev

      IMPLICIT NONE
#include "SIZE.h"
#include "GRID.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_AUTODIFF
#include "tamc.h"
#endif

C     !INPUT/OUTPUT PARAMETERS:
C     myThid -  Number of this instances
      INTEGER myThid
CEOP

#ifdef ALLOW_AUTODIFF_TAMC

#ifdef AUTODIFF_2_LEVEL_CHECKPOINT
      if (nchklev_1*nchklev_2 .lt. nTimeSteps) then
        print*, ' the_main_loop: TAMC checkpointing parameters'
        print*, '            nchklev_1*nchklev_2 = ',
     &       nchklev_1*nchklev_2
        print*, '            are not consistent with nTimeSteps = ',
     &       nTimeSteps
        stop    ' ... stopped in autodiff_check'
      endif
#else
c--   Check the choice of the checkpointing parameters in relation
c--   to nTimeSteps: (nchklev_1*nchklev_2*nchklev_3 .ge. nTimeSteps)
      if (nchklev_1*nchklev_2*nchklev_3 .lt. nTimeSteps) then
        print*, ' the_main_loop: TAMC checkpointing parameters'
        print*, '            nchklev_1*nchklev_2*nchklev_3 = ',
     &       nchklev_1*nchklev_2*nchklev_3
        print*, '            are not consistent with nTimeSteps = ',
     &       nTimeSteps
        stop    ' ... stopped in autodiff_check'
      endif
#endif

#endif

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

      RETURN
      END
1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/autodiff_ini_model_io.F,v 1.1 2004/09/29 03:45:14 heimbach Exp $
2			C $Name: $
3
4			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
5
6			#include "PACKAGES_CONFIG.h"
7			#include "CPP_OPTIONS.h"
8
9			CBOP
10			C !ROUTINE: AUTODIFF_CHECK
11			C !INTERFACE:
12			SUBROUTINE AUTODIFF_CHECK( myThid )
13
14			C !DESCRIPTION: \bv
15			C \ev
16
17			IMPLICIT NONE
18			#include "SIZE.h"
19			#include "GRID.h"
20			#include "EEPARAMS.h"
21			#include "PARAMS.h"
22			#ifdef ALLOW_AUTODIFF
23			#include "tamc.h"
24			#endif
25
26			C !INPUT/OUTPUT PARAMETERS:
27			C myThid - Number of this instances
28			INTEGER myThid
29			CEOP
30
31			#ifdef ALLOW_AUTODIFF_TAMC
32
33			#ifdef AUTODIFF_2_LEVEL_CHECKPOINT
34			if (nchklev_1*nchklev_2 .lt. nTimeSteps) then
35			print*, ' the_main_loop: TAMC checkpointing parameters'
36			print, ' nchklev_1nchklev_2 = ',
37			& nchklev_1*nchklev_2
38			print*, ' are not consistent with nTimeSteps = ',
39			& nTimeSteps
40			stop ' ... stopped in autodiff_check'
41			endif
42			#else
43			c-- Check the choice of the checkpointing parameters in relation
44			c-- to nTimeSteps: (nchklev_1nchklev_2nchklev_3 .ge. nTimeSteps)
45			if (nchklev_1nchklev_2nchklev_3 .lt. nTimeSteps) then
46			print*, ' the_main_loop: TAMC checkpointing parameters'
47			print, ' nchklev_1nchklev_2*nchklev_3 = ',
48			& nchklev_1nchklev_2nchklev_3
49			print*, ' are not consistent with nTimeSteps = ',
50			& nTimeSteps
51			stop ' ... stopped in autodiff_check'
52			endif
53			#endif
54
55			#endif
56
57			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
58
59			RETURN
60			END