/[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.12 by heimbach, Mon May 14 22:02:33 2007 UTC revision 1.13 by gforget, Tue Jun 19 03:42:30 2007 UTC
# Line 40  c     == global variables == Line 40  c     == global variables ==
40    
41  c     == routine arguments ==  c     == routine arguments ==
42    
43          character*(80) fnamegeneric
44        character*(MAX_LEN_FNAM) xx_gen_file        character*(MAX_LEN_FNAM) xx_gen_file
45        integer xx_genstartdate(4)        integer xx_genstartdate(4)
46        _RL     xx_genperiod        _RL     xx_genperiod
# Line 142  c--   Get the counters, flags, and the i Line 143  c--   Get the counters, flags, and the i
143       &       xx_gen_file .EQ. xx_tauv_file )       &       xx_gen_file .EQ. xx_tauv_file )
144       &     call ctrl_smooth(xx_gen1,genmask)       &     call ctrl_smooth(xx_gen1,genmask)
145  #endif  #endif
146    #ifdef ALLOW_SMOOTH_CORREL2D
147          call smooth_correl2D(xx_gen1,genmask,1,mythid)
148          call smooth_correl2Dw(xx_gen1,genmask,xx_gen_file,mythid)
149          write(fnamegeneric(1:80),'(2a,i10.10)')
150         & xx_gen_file(1:ilgen),'.effective.',optimcycle
151          call mdswritefield(fnamegeneric,ctrlprec,.FALSE.,'RL',
152         & 1, xx_gen1, gencount0, optimcycle, mythid)
153    #endif
154        endif        endif
155    
156        if (( genfirst ) .or. ( genchanged )) then        if (( genfirst ) .or. ( genchanged )) then
# Line 155  c--   Get the counters, flags, and the i Line 164  c--   Get the counters, flags, and the i
164       &       xx_gen_file .EQ. xx_tauv_file )       &       xx_gen_file .EQ. xx_tauv_file )
165       &     call ctrl_smooth(xx_gen1,genmask)       &     call ctrl_smooth(xx_gen1,genmask)
166  #endif  #endif
167    #ifdef ALLOW_SMOOTH_CORREL2D
168          call smooth_correl2D(xx_gen1,genmask,1,mythid)
169          call smooth_correl2Dw(xx_gen1,genmask,xx_gen_file,mythid)
170          write(fnamegeneric(1:80),'(2a,i10.10)')
171         & xx_gen_file(1:ilgen),'.effective.',optimcycle
172          call mdswritefield(fnamegeneric,ctrlprec,.FALSE.,'RL',
173         & 1, xx_gen1, gencount1, optimcycle, mythid)
174    #endif
175        endif        endif
176    
177  c--   Add control to model variable.  c--   Add control to model variable.
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22