/[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.9 by heimbach, Thu Mar 2 02:53:23 2006 UTC revision 1.10 by gforget, Wed Mar 29 22:07:34 2006 UTC
# Line 107  c--   Now, read the control vector. Line 107  c--   Now, read the control vector.
107       &       xx_gen_file(1:ilgen), '.', optimcycle       &       xx_gen_file(1:ilgen), '.', optimcycle
108        endif        endif
109    
110    # ifdef ALLOW_CAL
111             if ( xx_genperiod .EQ. 0 ) then
112    c     record numbers are assumed 1 to 12 corresponding to
113    c     Jan. through Dec.
114                call cal_GetMonthsRec(
115         O           genfac, genfirst, genchanged,
116         O           gencount0, gencount1,
117         I           mytime, myiter, mythid
118         &           )
119             else
120  c--   Get the counters, flags, and the interpolation factor.  c--   Get the counters, flags, and the interpolation factor.
121        call ctrl_get_gen_rec(        call ctrl_get_gen_rec(
122       I                   xx_genstartdate, xx_genperiod,       I                   xx_genstartdate, xx_genperiod,
123       O                   genfac, genfirst, genchanged,       O                   genfac, genfirst, genchanged,
124       O                   gencount0,gencount1,       O                   gencount0,gencount1,
125       I                   mytime, myiter, mythid )       I                   mytime, myiter, mythid )
126            endif
127    # else
128    c--   Get the counters, flags, and the interpolation factor.
129          call ctrl_get_gen_rec(
130         I                   xx_genstartdate, xx_genperiod,
131         O                   genfac, genfirst, genchanged,
132         O                   gencount0,gencount1,
133         I                   mytime, myiter, mythid )
134    # endif
135    
136        if ( genfirst ) then        if ( genfirst ) then
137          call active_read_xy_loc( fnamegen, xx_gen1, gencount0,          call active_read_xy_loc( fnamegen, xx_gen1, gencount0,
# Line 144  cph this flag ported from the SIO code Line 163  cph this flag ported from the SIO code
163  cph Initial wind stress adjustments are too vigorous.  cph Initial wind stress adjustments are too vigorous.
164        if ( gencount0 .LE. 2 .AND.        if ( gencount0 .LE. 2 .AND.
165       &     ( xx_gen_file .EQ. xx_tauu_file .OR.       &     ( xx_gen_file .EQ. xx_tauu_file .OR.
166       &       xx_gen_file .EQ. xx_tauv_file ) ) then       &       xx_gen_file .EQ. xx_tauv_file ) .AND.
167         &     ( xx_genperiod .NE. 0 ) ) then
168           doCtrlUpdate = .FALSE.           doCtrlUpdate = .FALSE.
169        else        else
170           doCtrlUpdate = .TRUE.           doCtrlUpdate = .TRUE.
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22