ECCO_v4/code/autodiff_inadmode_set_ad.F

C $Header: /u/gcmpack/MITgcm_contrib/gael/verification/global_oce_llc90/code/autodiff_inadmode_set_ad.F_itXX,v 1.1 2013/04/09 17:23:18 gforget Exp $
C $Name:  $

#include "AUTODIFF_OPTIONS.h"

      SUBROUTINE ADAUTODIFF_INADMODE_SET( myThid )
C     *==========================================================*
C     | SUBROUTINE ADAUTODIFF_INADMODE_SET
C     *==========================================================*

      IMPLICIT NONE
C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "AUTODIFF_PARAMS.h"
#ifdef ALLOW_SEAICE
#include "SEAICE_SIZE.h"
#include "SEAICE_PARAMS.h"
#endif

C     == Routine arguments ==
C     myThid :: my Thread Id number
      INTEGER myThid
      CHARACTER*(MAX_LEN_MBUF) msgBuf

      inAdMode  = inAdTrue

      useKPP    = useKPPinAdMode
      useGMRedi = useGMRediInAdMode
      useSEAICE = useSEAICEinAdMode
      useGGL90  = useGGL90inAdMode
      useSALT_PLUME = useSALT_PLUMEinAdMode
      SEAICEadjMODE=-1
#ifdef ALLOW_SEAICE
      IF ( SEAICEuseFREEDRIFTswitchInAd ) THEN
        SEAICEuseFREEDRIFT = .NOT.SEAICEuseFREEDRIFTinFwdMode
      ENDIF
      IF ( SEAICEuseDYNAMICSswitchInAd ) THEN
        SEAICEuseDYNAMICS  = .NOT.SEAICEuseDYNAMICSinFwdMode
      ENDIF
#endif /* ALLOW_SEAICE */

      viscFacAdj=2. _d 0

      IF ( debugLevel.GE.debLevC ) THEN
       WRITE(msgBuf,'(A,L5)')
     &      'S/R ADAUTODIFF_INADMODE_SET: useKPP    =', useKPP
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT, myThid )
       WRITE(msgBuf,'(A,L5)')
     &      'S/R ADAUTODIFF_INADMODE_SET: useGMRedi =', useGMRedi
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT, myThid )
       WRITE(msgBuf,'(A,L5)')
     &      'S/R ADAUTODIFF_INADMODE_SET: useSEAICE =', useSEAICE
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT, myThid )
       WRITE(msgBuf,'(A,L5)')
     &      'S/R ADAUTODIFF_INADMODE_SET: useGGL90    =', useGGL90
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT, myThid )
       WRITE(msgBuf,'(A,L5)')
     &      'S/R ADAUTODIFF_INADMODE_SET: useSALT_PLUME    =',
     &      useSALT_PLUME
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT, myThid )

#ifdef ALLOW_SEAICE
       IF ( SEAICEuseFREEDRIFTswitchInAd ) THEN
         WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ',
     &        'SEAICEuseFREEDRIFT =', SEAICEuseFREEDRIFT
         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                       SQUEEZE_RIGHT, myThid )
       ENDIF
       IF ( SEAICEuseDYNAMICSswitchInAd ) THEN
         WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ',
     &        'SEAICEuseDYNAMICS =', SEAICEuseDYNAMICS
         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                       SQUEEZE_RIGHT, myThid )
       ENDIF
#endif /* ALLOW_SEAICE */

      ENDIF

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm_contrib/gael/verification/global_oce_llc90/code/autodiff_inadmode_set_ad.F_itXX,v 1.1 2013/04/09 17:23:18 gforget Exp $
2	C $Name: $
3
4	#include "AUTODIFF_OPTIONS.h"
5
6	SUBROUTINE ADAUTODIFF_INADMODE_SET( myThid )
7	C ==========================================================
8	C \| SUBROUTINE ADAUTODIFF_INADMODE_SET
9	C ==========================================================
10
11	IMPLICIT NONE
12	C == Global variables ===
13	#include "SIZE.h"
14	#include "EEPARAMS.h"
15	#include "PARAMS.h"
16	#include "AUTODIFF_PARAMS.h"
17	#ifdef ALLOW_SEAICE
18	#include "SEAICE_SIZE.h"
19	#include "SEAICE_PARAMS.h"
20	#endif
21
22	C == Routine arguments ==
23	C myThid :: my Thread Id number
24	INTEGER myThid
25	CHARACTER*(MAX_LEN_MBUF) msgBuf
26
27	inAdMode = inAdTrue
28
29	useKPP = useKPPinAdMode
30	useGMRedi = useGMRediInAdMode
31	useSEAICE = useSEAICEinAdMode
32	useGGL90 = useGGL90inAdMode
33	useSALT_PLUME = useSALT_PLUMEinAdMode
34	SEAICEadjMODE=-1
35	#ifdef ALLOW_SEAICE
36	IF ( SEAICEuseFREEDRIFTswitchInAd ) THEN
37	SEAICEuseFREEDRIFT = .NOT.SEAICEuseFREEDRIFTinFwdMode
38	ENDIF
39	IF ( SEAICEuseDYNAMICSswitchInAd ) THEN
40	SEAICEuseDYNAMICS = .NOT.SEAICEuseDYNAMICSinFwdMode
41	ENDIF
42	#endif /* ALLOW_SEAICE */
43
44	viscFacAdj=2. _d 0
45
46	IF ( debugLevel.GE.debLevC ) THEN
47	WRITE(msgBuf,'(A,L5)')
48	& 'S/R ADAUTODIFF_INADMODE_SET: useKPP =', useKPP
49	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50	& SQUEEZE_RIGHT, myThid )
51	WRITE(msgBuf,'(A,L5)')
52	& 'S/R ADAUTODIFF_INADMODE_SET: useGMRedi =', useGMRedi
53	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
54	& SQUEEZE_RIGHT, myThid )
55	WRITE(msgBuf,'(A,L5)')
56	& 'S/R ADAUTODIFF_INADMODE_SET: useSEAICE =', useSEAICE
57	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
58	& SQUEEZE_RIGHT, myThid )
59	WRITE(msgBuf,'(A,L5)')
60	& 'S/R ADAUTODIFF_INADMODE_SET: useGGL90 =', useGGL90
61	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
62	& SQUEEZE_RIGHT, myThid )
63	WRITE(msgBuf,'(A,L5)')
64	& 'S/R ADAUTODIFF_INADMODE_SET: useSALT_PLUME =',
65	& useSALT_PLUME
66	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
67	& SQUEEZE_RIGHT, myThid )
68
69	#ifdef ALLOW_SEAICE
70	IF ( SEAICEuseFREEDRIFTswitchInAd ) THEN
71	WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ',
72	& 'SEAICEuseFREEDRIFT =', SEAICEuseFREEDRIFT
73	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
74	& SQUEEZE_RIGHT, myThid )
75	ENDIF
76	IF ( SEAICEuseDYNAMICSswitchInAd ) THEN
77	WRITE(msgBuf,'(2A,L5)') 'S/R ADAUTODIFF_INADMODE_SET: ',
78	& 'SEAICEuseDYNAMICS =', SEAICEuseDYNAMICS
79	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
80	& SQUEEZE_RIGHT, myThid )
81	ENDIF
82	#endif /* ALLOW_SEAICE */
83
84	ENDIF
85
86	RETURN
87	END