pkg/autodiff/ini_autodiff.F


#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: INI_AUTODIFF
C     !INTERFACE:
      SUBROUTINE INI_AUTODIFF( myThid )
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE INI_AUTODIFF                                    
C     | o Initialise to zero some active arrays  
C     |   These ini                
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef EXACT_CONSERV
# include "SURFACE.h"
#endif
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
# include "FFIELDS.h"
#endif

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myThid -  Number of this instance of INI_UVEL 
      INTEGER myThid

#ifdef ALLOW_AUTODIFF_TAMC

C     !LOCAL VARIABLES:
C     == Local variables ==
C     bi,bj  - Loop counters
C     I,J,K
      INTEGER bi, bj
      INTEGER  I,  J, K
CEOP

C--   Over all tiles
      DO bj = myByLo(myThid), myByHi(myThid)
       DO bi = myBxLo(myThid), myBxHi(myThid)

C-      3D arrays

C-      2D arrays
        DO J=1-Oly,sNy+Oly
         DO I=1-Olx,sNx+Olx
#ifdef EXACT_CONSERV
          hDivFlow(I,J,bi,bj)=0. _d 0
#endif
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
          EmPmR(I,J,bi,bj) = 0. _d 0
#endif
         ENDDO
        ENDDO

       ENDDO
      ENDDO

#endif /* ALLOW_AUTODIFF_TAMC */

      END
1	heimbach	1.1
2			#include "CPP_OPTIONS.h"
3
4			CBOP
5			C !ROUTINE: INI_AUTODIFF
6			C !INTERFACE:
7			SUBROUTINE INI_AUTODIFF( myThid )
8			C !DESCRIPTION: \bv
9			C ==========================================================
10			C \| SUBROUTINE INI_AUTODIFF
11	heimbach	1.3	C \| o Initialise to zero some active arrays
12			C \| These ini
13	heimbach	1.1	C ==========================================================
14			C \ev
15
16			C !USES:
17			IMPLICIT NONE
18			C === Global variables ===
19			#include "SIZE.h"
20			#include "EEPARAMS.h"
21			#include "PARAMS.h"
22	heimbach	1.3	#ifdef EXACT_CONSERV
23			# include "SURFACE.h"
24			#endif
25			#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
26			# include "FFIELDS.h"
27			#endif
28	heimbach	1.1
29			C !INPUT/OUTPUT PARAMETERS:
30			C == Routine arguments ==
31			C myThid - Number of this instance of INI_UVEL
32			INTEGER myThid
33
34			#ifdef ALLOW_AUTODIFF_TAMC
35
36			C !LOCAL VARIABLES:
37			C == Local variables ==
38			C bi,bj - Loop counters
39			C I,J,K
40			INTEGER bi, bj
41			INTEGER I, J, K
42			CEOP
43
44			C-- Over all tiles
45			DO bj = myByLo(myThid), myByHi(myThid)
46			DO bi = myBxLo(myThid), myBxHi(myThid)
47
48			C- 3D arrays
49
50			C- 2D arrays
51			DO J=1-Oly,sNy+Oly
52			DO I=1-Olx,sNx+Olx
53			#ifdef EXACT_CONSERV
54			hDivFlow(I,J,bi,bj)=0. _d 0
55	heimbach	1.3	#endif
56			#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
57			EmPmR(I,J,bi,bj) = 0. _d 0
58	heimbach	1.1	#endif
59			ENDDO
60			ENDDO
61
62			ENDDO
63			ENDDO
64
65			#endif /* ALLOW_AUTODIFF_TAMC */
66
67			END