/[MITgcm]/MITgcm/pkg/autodiff/ini_autodiff.F
ViewVC logotype

Annotation of /MITgcm/pkg/autodiff/ini_autodiff.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.5 - (hide annotations) (download)
Sat Nov 1 04:50:02 2003 UTC (20 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint52l_pre, hrcube4, hrcube5, checkpoint52d_pre, checkpoint52j_pre, checkpoint52k_post, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint51t_post, checkpoint52i_pre, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint52e_pre, checkpoint52e_post, checkpoint53d_post, checkpoint52b_pre, checkpoint52m_post, checkpoint52b_post, checkpoint52c_post, checkpoint52h_pre, hrcube_1, checkpoint52f_pre, checkpoint53c_post, checkpoint51r_post, checkpoint53a_post, checkpoint52d_post, checkpoint52a_pre, checkpoint52i_post, checkpoint53f_post, checkpoint53b_pre, checkpoint52j_post, branch-netcdf, checkpoint52l_post, checkpoint52n_post, checkpoint53b_post, checkpoint52a_post, ecco_c52_e35, checkpoint53d_pre, checkpoint51u_post
Branch point for: branch-nonh, netcdf-sm0
Changes since 1.4: +4 -2 lines 
 o convert all "INCLUDE_EXTERNAL_FORCING_PACKAGE" defines to the
   more consistent ALLOW_EXF
 o passed all the basic verification tests on shelley
1 edhill 1.5 C $Header: $
2     C $Name: $
3 heimbach 1.1
4 edhill 1.4 #include "AUTODIFF_OPTIONS.h"
5 heimbach 1.1
6     CBOP
7     C !ROUTINE: INI_AUTODIFF
8     C !INTERFACE:
9     SUBROUTINE INI_AUTODIFF( myThid )
10     C !DESCRIPTION: \bv
11     C *==========================================================*
12     C | SUBROUTINE INI_AUTODIFF
13 heimbach 1.3 C | o Initialise to zero some active arrays
14     C | These ini
15 heimbach 1.1 C *==========================================================*
16     C \ev
17    
18     C !USES:
19     IMPLICIT NONE
20     C === Global variables ===
21     #include "SIZE.h"
22     #include "EEPARAMS.h"
23     #include "PARAMS.h"
24 heimbach 1.3 #ifdef EXACT_CONSERV
25     # include "SURFACE.h"
26     #endif
27 edhill 1.5 #ifdef ALLOW_EXF
28 heimbach 1.3 # include "FFIELDS.h"
29     #endif
30 heimbach 1.1
31     C !INPUT/OUTPUT PARAMETERS:
32     C == Routine arguments ==
33     C myThid - Number of this instance of INI_UVEL
34     INTEGER myThid
35    
36     #ifdef ALLOW_AUTODIFF_TAMC
37    
38     C !LOCAL VARIABLES:
39     C == Local variables ==
40     C bi,bj - Loop counters
41     C I,J,K
42     INTEGER bi, bj
43     INTEGER I, J, K
44     CEOP
45    
46     C-- Over all tiles
47     DO bj = myByLo(myThid), myByHi(myThid)
48     DO bi = myBxLo(myThid), myBxHi(myThid)
49    
50     C- 3D arrays
51    
52     C- 2D arrays
53     DO J=1-Oly,sNy+Oly
54     DO I=1-Olx,sNx+Olx
55     #ifdef EXACT_CONSERV
56     hDivFlow(I,J,bi,bj)=0. _d 0
57 heimbach 1.3 #endif
58 edhill 1.5 #ifdef ALLOW_EXF
59 heimbach 1.3 EmPmR(I,J,bi,bj) = 0. _d 0
60 heimbach 1.1 #endif
61     ENDDO
62     ENDDO
63    
64     ENDDO
65     ENDDO
66    
67     #endif /* ALLOW_AUTODIFF_TAMC */
68    
69     END
  ViewVC Help
Powered by ViewVC 1.1.22