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

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

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

Revision 1.5 - (show annotations) (download)
Sat Nov 1 04:50:02 2003 UTC (20 years, 6 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 C $Header: $
2 C $Name: $
3
4 #include "AUTODIFF_OPTIONS.h"
5
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 C | o Initialise to zero some active arrays
14 C | These ini
15 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 #ifdef EXACT_CONSERV
25 # include "SURFACE.h"
26 #endif
27 #ifdef ALLOW_EXF
28 # include "FFIELDS.h"
29 #endif
30
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 #endif
58 #ifdef ALLOW_EXF
59 EmPmR(I,J,bi,bj) = 0. _d 0
60 #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