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

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

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

revision 1.6 by heimbach, Sat Jul 13 02:47:32 2002 UTC revision 1.7 by heimbach, Fri Nov 29 13:38:37 2002 UTC
# Line 56  c     == local variables == Line 56  c     == local variables ==
56        character*( 80)   fnamekapgm        character*( 80)   fnamekapgm
57        character*( 80)   fnameefluxy        character*( 80)   fnameefluxy
58        character*( 80)   fnameefluxp        character*( 80)   fnameefluxp
59          character*( 80)   fnamebottomdrag
60    
61        _RL     fac        _RL     fac
62    
# Line 261  cph     & Line 262  cph     &
262        enddo        enddo
263  #endif  #endif
264    
265    #ifdef ALLOW_BOTTOMDRAG_CONTROL
266    c--   bottom drag
267          il=ilnblnk( xx_bottomdrag_file )
268          write(fnamebottomdrag(1:80),'(2a,i10.10)')
269         &     xx_bottomdrag_file(1:il),'.',optimcycle
270          call active_read_xy ( fnamebottomdrag, tmpfld2d, 1,
271         &                      doglobalread, ladinit, optimcycle,
272         &                      mythid, xx_bottomdrag_dummy )
273          do bj = jtlo,jthi
274            do bi = itlo,ithi
275              do j = jmin,jmax
276                do i = imin,imax
277                  bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
278         &                                   + tmpfld2d(i,j,bi,bj)
279                enddo
280              enddo
281            enddo
282          enddo
283    #endif
284    
285    
286  c--   Update the tile edges.  c--   Update the tile edges.
287    
# Line 288  cph      _EXCH_XYZ_R8( gTr1Nm1, mythid ) Line 309  cph      _EXCH_XYZ_R8( gTr1Nm1, mythid )
309  #ifdef ALLOW_EFLUXP0_CONTROL  #ifdef ALLOW_EFLUXP0_CONTROL
310        _EXCH_XYZ_R8( EfluxP, mythid )        _EXCH_XYZ_R8( EfluxP, mythid )
311  #endif  #endif
312    #ifdef ALLOW_BOTTOMDRAG_CONTROL
313          _EXCH_XY_R8( bottomdragfld, mythid )
314    #endif
315    
316    
317        return        return
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22