pkg/autodiff/autodiff_inadmode_set_g.F

C $Header: /u/gcmpack/MITgcm/pkg/autodiff/autodiff_inadmode_set_ad.F,v 1.1 2005/02/10 05:26:54 heimbach Exp $

#include "AUTODIFF_OPTIONS.h"

      subroutine g_autodiff_inadmode_set( myThid )
      IMPLICIT NONE
C     /==========================================================\
C     | SUBROUTINE adautodiff_inadmode_set                       |
C     |==========================================================|
C     == Global variables ===

#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      integer myThid

cph      inAdmode = inAdTrue
      inAdmode = .FALSE.

      end


1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/autodiff/autodiff_inadmode_set_ad.F,v 1.1 2005/02/10 05:26:54 heimbach Exp $
2
3			#include "AUTODIFF_OPTIONS.h"
4
5			subroutine g_autodiff_inadmode_set( myThid )
6			IMPLICIT NONE
7			C /==========================================================\
8			C \| SUBROUTINE adautodiff_inadmode_set \|
9			C \|==========================================================\|
10			C == Global variables ===
11
12			#include "SIZE.h"
13			#include "EEPARAMS.h"
14			#include "PARAMS.h"
15
16			C == Routine arguments ==
17			C myThid - Thread number for this instance of the routine.
18			integer myThid
19
20			cph inAdmode = inAdTrue
21			inAdmode = .FALSE.
22
23			end
24
25
26
27
28
29
30
31
32