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

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

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

revision 1.11 by jmc, Mon Apr 16 23:34:33 2007 UTC revision 1.12 by heimbach, Mon May 14 22:02:33 2007 UTC
# Line 134  c--   Get the counters, flags, and the i Line 134  c--   Get the counters, flags, and the i
134  # endif  # endif
135    
136        if ( genfirst ) then        if ( genfirst ) then
137          call active_read_xy_loc( fnamegen, xx_gen1, gencount0,          call active_read_xy( fnamegen, xx_gen1, gencount0,
138       &                       doglobalread, ladinit, optimcycle,       &                       doglobalread, ladinit, optimcycle,
139       &                       mythid, xx_gen_dummy )       &                       mythid, xx_gen_dummy )
140  #ifdef ALLOW_CTRL_SMOOTH  #ifdef ALLOW_CTRL_SMOOTH
# Line 147  c--   Get the counters, flags, and the i Line 147  c--   Get the counters, flags, and the i
147        if (( genfirst ) .or. ( genchanged )) then        if (( genfirst ) .or. ( genchanged )) then
148          call exf_SwapFFields( xx_gen0, xx_gen1, mythid )          call exf_SwapFFields( xx_gen0, xx_gen1, mythid )
149    
150          call active_read_xy_loc( fnamegen, xx_gen1 , gencount1,          call active_read_xy( fnamegen, xx_gen1 , gencount1,
151       &                       doglobalread, ladinit, optimcycle,       &                       doglobalread, ladinit, optimcycle,
152       &                       mythid, xx_gen_dummy )       &                       mythid, xx_gen_dummy )
153  #ifdef ALLOW_CTRL_SMOOTH  #ifdef ALLOW_CTRL_SMOOTH
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22