/[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.4 by edhill, Sat Nov 1 04:50:02 2003 UTC revision 1.5 by heimbach, Thu Mar 4 19:49:47 2004 UTC
# Line 114  c--   Get the counters, flags, and the i Line 114  c--   Get the counters, flags, and the i
114       &                       doglobalread, ladinit, optimcycle,       &                       doglobalread, ladinit, optimcycle,
115       &                       mythid, xx_gen_dummy )       &                       mythid, xx_gen_dummy )
116  #ifdef ALLOW_CTRL_SMOOTH  #ifdef ALLOW_CTRL_SMOOTH
117            call ctrl_smooth(xx_gen1,genmask)          if ( xx_gen_file .EQ. xx_tauu_file .OR.
118         &       xx_gen_file .EQ. xx_tauv_file )
119         &     call ctrl_smooth(xx_gen1,genmask)
120  #endif  #endif
121        endif        endif
122    
# Line 125  c--   Get the counters, flags, and the i Line 127  c--   Get the counters, flags, and the i
127       &                       doglobalread, ladinit, optimcycle,       &                       doglobalread, ladinit, optimcycle,
128       &                       mythid, xx_gen_dummy )       &                       mythid, xx_gen_dummy )
129  #ifdef ALLOW_CTRL_SMOOTH  #ifdef ALLOW_CTRL_SMOOTH
130            call ctrl_smooth(xx_gen1,genmask)          if ( xx_gen_file .EQ. xx_tauu_file .OR.
131         &       xx_gen_file .EQ. xx_tauv_file )
132         &     call ctrl_smooth(xx_gen1,genmask)
133  #endif  #endif
134        endif        endif
135    
136  c--   Add control to model variable.  c--   Add control to model variable.
137    cph(
138    cph this flag ported from the SIO code (dont know why its here)
139          if ( gencount0 .GT. 2 .AND.
140         &     ( xx_gen_file .EQ. xx_tauu_file .OR.
141         &       xx_gen_file .EQ. xx_tauv_file ) ) then
142    cph)
143        do bj = jtlo,jthi        do bj = jtlo,jthi
144          do bi = itlo,ithi          do bi = itlo,ithi
145  c--       Calculate mask for tracer cells (0 => land, 1 => water).  c--       Calculate mask for tracer cells (0 => land, 1 => water).
# Line 144  c--       Calculate mask for tracer cell Line 154  c--       Calculate mask for tracer cell
154            enddo            enddo
155          enddo          enddo
156        enddo        enddo
157    cph(
158          endif
159    cph)
160    
161  #endif /* ALLOW_EXF */  #endif /* ALLOW_EXF */
162    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22