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

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

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

revision 1.7 by heimbach, Wed Aug 31 00:03:30 2005 UTC revision 1.8 by heimbach, Fri Oct 27 05:16:54 2006 UTC
# Line 195  c     == end of interface == Line 195  c     == end of interface ==
195        enddo        enddo
196  #endif  #endif
197    
198    #ifdef ALLOW_LWFLUX_CONTROL
199          do bj = jtlo,jthi
200            do bi = itlo,ithi
201              do j = jmin,jmax
202                do i = imin,imax
203                  xx_lwflux0(i,j,bi,bj) = 0. _d 0
204                  xx_lwflux1(i,j,bi,bj) = 0. _d 0
205                enddo
206              enddo
207            enddo
208          enddo
209    #endif
210    
211    #ifdef ALLOW_LWDOWN_CONTROL
212          do bj = jtlo,jthi
213            do bi = itlo,ithi
214              do j = jmin,jmax
215                do i = imin,imax
216                  xx_lwdown0(i,j,bi,bj) = 0. _d 0
217                  xx_lwdown1(i,j,bi,bj) = 0. _d 0
218                enddo
219              enddo
220            enddo
221          enddo
222    #endif
223    
224    #ifdef ALLOW_EVAP_CONTROL
225          do bj = jtlo,jthi
226            do bi = itlo,ithi
227              do j = jmin,jmax
228                do i = imin,imax
229                  xx_evap0(i,j,bi,bj) = 0. _d 0
230                  xx_evap1(i,j,bi,bj) = 0. _d 0
231                enddo
232              enddo
233            enddo
234          enddo
235    #endif
236    
237    #ifdef ALLOW_SNOWPRECIP_CONTROL
238          do bj = jtlo,jthi
239            do bi = itlo,ithi
240              do j = jmin,jmax
241                do i = imin,imax
242                  xx_snowprecip0(i,j,bi,bj) = 0. _d 0
243                  xx_snowprecip1(i,j,bi,bj) = 0. _d 0
244                enddo
245              enddo
246            enddo
247          enddo
248    #endif
249    
250    #ifdef ALLOW_APRESSURE_CONTROL
251          do bj = jtlo,jthi
252            do bi = itlo,ithi
253              do j = jmin,jmax
254                do i = imin,imax
255                  xx_apressure0(i,j,bi,bj) = 0. _d 0
256                  xx_apressure1(i,j,bi,bj) = 0. _d 0
257                enddo
258              enddo
259            enddo
260          enddo
261    #endif
262    
263    #ifdef ALLOW_RUNOFF_CONTROL
264          do bj = jtlo,jthi
265            do bi = itlo,ithi
266              do j = jmin,jmax
267                do i = imin,imax
268                  xx_runoff0(i,j,bi,bj) = 0. _d 0
269                  xx_runoff1(i,j,bi,bj) = 0. _d 0
270                enddo
271              enddo
272            enddo
273          enddo
274    #endif
275    
276  #ifdef ALLOW_SST_CONTROL  #ifdef ALLOW_SST_CONTROL
277        do bj = jtlo,jthi        do bj = jtlo,jthi
278          do bi = itlo,ithi          do bi = itlo,ithi
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22