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	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