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

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

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

revision 1.10 by gforget, Thu Oct 9 00:49:27 2014 UTC revision 1.11 by gforget, Mon Mar 23 21:07:37 2015 UTC
# Line 120  c--               West mask for U Line 120  c--               West mask for U
120          enddo          enddo
121        enddo        enddo
122    
123    #ifdef ALLOW_AUTODIFF
124        il=ilnblnk( ymaskobcs )        il=ilnblnk( ymaskobcs )
125        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
126        write(fname(1:80),'(a)') ymaskobcs        write(fname(1:80),'(a)') ymaskobcs
# Line 135  c--               West mask for U Line 136  c--               West mask for U
136            enddo            enddo
137          enddo          enddo
138          call active_write_xz( fname, gg, iobcs, 0, mythid, dummy )          call active_write_xz( fname, gg, iobcs, 0, mythid, dummy )
   
139        enddo        enddo
140    #endif
141    
142        _END_MASTER( mythid )        _END_MASTER( mythid )
143    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22