/[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.8 - (show annotations) (download)
Mon Feb 28 17:34:36 2005 UTC (19 years, 2 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57g_post, checkpoint57y_post, checkpoint57r_post, checkpoint57i_post, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint58y_post, checkpoint58t_post, checkpoint58m_post, checkpoint57l_post, checkpoint57h_post, checkpoint57t_post, checkpoint57v_post, checkpoint57f_post, checkpoint57h_pre, checkpoint57x_post, checkpoint58w_post, checkpoint57y_pre, checkpoint58o_post, checkpoint58p_post, checkpoint58q_post, checkpoint58e_post, checkpoint58r_post, checkpoint58n_post, checkpoint57e_post, checkpoint59e, checkpoint59d, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, checkpoint58k_post, checkpoint58v_post, checkpoint58l_post, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint58g_post, checkpoint58x_post, checkpoint58h_post, checkpoint58j_post, checkpoint57o_post, checkpoint57k_post, checkpoint57w_post, checkpoint58i_post, checkpoint58c_post, checkpoint58u_post, checkpoint58s_post
Changes since 1.7: +13 -5 lines 
Adding eddy stress controls a la Ferreira et al.
1 C $Header: /u/gcmpack/MITgcm/pkg/autodiff/ini_autodiff.F,v 1.7 2004/09/17 23:02:01 heimbach Exp $
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 #include "FFIELDS.h"
25 #ifdef EXACT_CONSERV
26 # include "SURFACE.h"
27 #endif
28
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 DO K=1,Nr
50 DO J=1-Oly,sNy+Oly
51 DO I=1-Olx,sNx+Olx
52 #ifdef ALLOW_EP_FLUX
53 EfluxY(i,j,k,bi,bj)=0.
54 EfluxP(i,j,k,bi,bj)=0.
55 #endif
56 ENDDO
57 ENDDO
58 ENDDO
59
60 C- 2D arrays
61 DO J=1-Oly,sNy+Oly
62 DO I=1-Olx,sNx+Olx
63 #ifdef EXACT_CONSERV
64 dEtaHdt(i,j,bi,bj) = 0. _d 0
65 PmEpR(i,j,bi,bj) = 0. _d 0
66 cph hDivFlow(I,J,bi,bj)=0. _d 0
67 #endif
68 #ifdef ALLOW_EXF
69 EmPmR(I,J,bi,bj) = 0. _d 0
70 #endif
71 ENDDO
72 ENDDO
73
74 ENDDO
75 ENDDO
76
77 #endif /* ALLOW_AUTODIFF_TAMC */
78
79 END
  ViewVC Help
Powered by ViewVC 1.1.22