/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init_variables.F
ViewVC logotype

Annotation of /MITgcm/pkg/ctrl/ctrl_init_variables.F

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

Revision 1.3 - (hide annotations) (download)
Thu Nov 6 22:05:08 2003 UTC (20 years, 7 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint57g_pre, checkpoint57b_post, checkpoint52d_pre, checkpoint57g_post, checkpoint56b_post, checkpoint52j_pre, checkpoint54d_post, checkpoint54e_post, checkpoint57h_post, checkpoint57d_post, checkpoint57i_post, checkpoint52l_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint54f_post, checkpoint55i_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint55c_post, checkpoint52e_pre, checkpoint57f_post, checkpoint52e_post, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint52b_pre, checkpoint54b_post, checkpoint52m_post, checkpoint55g_post, checkpoint52b_post, checkpoint52c_post, checkpoint57c_post, checkpoint52f_pre, checkpoint55d_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, eckpoint57e_pre, checkpoint52a_pre, checkpoint52i_post, checkpoint52h_pre, checkpoint56a_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint57j_post, checkpoint57f_pre, branch-netcdf, checkpoint52n_post, checkpoint53b_pre, checkpoint56c_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57k_post, checkpoint53b_post, checkpoint52a_post, ecco_c52_e35, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post, checkpoint51u_post
Branch point for: netcdf-sm0
Changes since 1.2: +0 -4 lines 
o merging from ecco-branch
o cleaned some cross-dependencies and updated CPP options
1 heimbach 1.2
2     #include "CTRL_CPPOPTIONS.h"
3    
4     subroutine ctrl_init_variables( mythid )
5    
6     c ==================================================================
7     c SUBROUTINE ctrl_init_variables
8     c ==================================================================
9     c
10     c o Set parts of the vector of control variables and initialize the
11     c rest to zero.
12     c
13     c started: heimbach@mit.edu 25-Mar-2002
14     c
15     c ==================================================================
16     c SUBROUTINE ctrl_init_variables
17     c ==================================================================
18    
19     implicit none
20    
21     c == global variables ==
22    
23     #include "EEPARAMS.h"
24     #include "SIZE.h"
25     #include "PARAMS.h"
26     #include "GRID.h"
27     #include "ctrl.h"
28    
29     c == routine arguments ==
30    
31     integer mythid
32    
33     c == local variables ==
34    
35     integer bi,bj
36     integer i,j,k
37     integer itlo,ithi
38     integer jtlo,jthi
39     integer jmin,jmax
40     integer imin,imax
41     integer ntmp
42     integer ivarindex
43    
44     c == end of interface ==
45    
46     jtlo = mybylo(mythid)
47     jthi = mybyhi(mythid)
48     itlo = mybxlo(mythid)
49     ithi = mybxhi(mythid)
50     jmin = 1-oly
51     jmax = sny+oly
52     imin = 1-olx
53     imax = snx+olx
54    
55     #ifdef ALLOW_HFLUX_CONTROL
56     do bj = jtlo,jthi
57     do bi = itlo,ithi
58     do j = jmin,jmax
59     do i = imin,imax
60     xx_hflux0(i,j,bi,bj) = 0. _d 0
61     xx_hflux1(i,j,bi,bj) = 0. _d 0
62     enddo
63     enddo
64     enddo
65     enddo
66     #endif
67    
68     #ifdef ALLOW_SFLUX_CONTROL
69     do bj = jtlo,jthi
70     do bi = itlo,ithi
71     do j = jmin,jmax
72     do i = imin,imax
73     xx_sflux0(i,j,bi,bj) = 0. _d 0
74     xx_sflux1(i,j,bi,bj) = 0. _d 0
75     enddo
76     enddo
77     enddo
78     enddo
79     #endif
80    
81     #ifdef ALLOW_USTRESS_CONTROL
82     do bj = jtlo,jthi
83     do bi = itlo,ithi
84     do j = jmin,jmax
85     do i = imin,imax
86     xx_tauu0(i,j,bi,bj) = 0. _d 0
87     xx_tauu1(i,j,bi,bj) = 0. _d 0
88     enddo
89     enddo
90     enddo
91     enddo
92     #endif
93    
94     #ifdef ALLOW_VSTRESS_CONTROL
95     do bj = jtlo,jthi
96     do bi = itlo,ithi
97     do j = jmin,jmax
98     do i = imin,imax
99     xx_tauv0(i,j,bi,bj) = 0. _d 0
100     xx_tauv1(i,j,bi,bj) = 0. _d 0
101     enddo
102     enddo
103     enddo
104     enddo
105     #endif
106    
107     #ifdef ALLOW_UWIND_CONTROL
108     do bj = jtlo,jthi
109     do bi = itlo,ithi
110     do j = jmin,jmax
111     do i = imin,imax
112     xx_uwind0(i,j,bi,bj) = 0. _d 0
113     xx_uwind1(i,j,bi,bj) = 0. _d 0
114     enddo
115     enddo
116     enddo
117     enddo
118     #endif
119    
120     #ifdef ALLOW_VWIND_CONTROL
121     do bj = jtlo,jthi
122     do bi = itlo,ithi
123     do j = jmin,jmax
124     do i = imin,imax
125     xx_vwind0(i,j,bi,bj) = 0. _d 0
126     xx_vwind1(i,j,bi,bj) = 0. _d 0
127     enddo
128     enddo
129     enddo
130     enddo
131     #endif
132    
133     #ifdef ALLOW_ATEMP_CONTROL
134     do bj = jtlo,jthi
135     do bi = itlo,ithi
136     do j = jmin,jmax
137     do i = imin,imax
138     xx_atemp0(i,j,bi,bj) = 0. _d 0
139     xx_atemp1(i,j,bi,bj) = 0. _d 0
140     enddo
141     enddo
142     enddo
143     enddo
144     #endif
145    
146     #ifdef ALLOW_AQH_CONTROL
147     do bj = jtlo,jthi
148     do bi = itlo,ithi
149     do j = jmin,jmax
150     do i = imin,imax
151     xx_aqh0(i,j,bi,bj) = 0. _d 0
152     xx_aqh1(i,j,bi,bj) = 0. _d 0
153     enddo
154     enddo
155     enddo
156     enddo
157     #endif
158    
159     #ifdef ALLOW_OBCS_CONTROL
160     IF (useOBCS) CALL CTRL_INIT_OBCS_VARIABLES( mythid )
161     #endif
162    
163     return
164     end
165    
  ViewVC Help
Powered by ViewVC 1.1.22