/[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.5 by heimbach, Thu Mar 4 19:49:47 2004 UTC revision 1.6 by heimbach, Tue May 4 22:13:08 2004 UTC
# Line 65  c     == local variables == Line 65  c     == local variables ==
65        integer ilgen        integer ilgen
66    
67        _RL     genfac        _RL     genfac
68          logical doCtrlUpdate
69        logical genfirst        logical genfirst
70        logical genchanged        logical genchanged
71        integer gencount0        integer gencount0
# Line 136  c--   Get the counters, flags, and the i Line 137  c--   Get the counters, flags, and the i
137  c--   Add control to model variable.  c--   Add control to model variable.
138  cph(  cph(
139  cph this flag ported from the SIO code (dont know why its here)  cph this flag ported from the SIO code (dont know why its here)
140        if ( gencount0 .GT. 2 .AND.        if ( gencount0 .LE. 2 .AND.
141       &     ( xx_gen_file .EQ. xx_tauu_file .OR.       &     ( xx_gen_file .EQ. xx_tauu_file .OR.
142       &       xx_gen_file .EQ. xx_tauv_file ) ) then       &       xx_gen_file .EQ. xx_tauv_file ) ) then
143             doCtrlUpdate = .FALSE.
144          else
145             doCtrlUpdate = .TRUE.
146          endif
147    c
148    cph since the above is ECCO specific, we undo it here:
149          doCtrlUpdate = .TRUE.
150    c
151          if ( doCtrlUpdate ) then
152  cph)  cph)
153        do bj = jtlo,jthi        do bj = jtlo,jthi
154          do bi = itlo,ithi          do bi = itlo,ithi
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22