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

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

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

revision 1.13 by heimbach, Fri May 28 16:04:42 2004 UTC revision 1.14 by heimbach, Tue Nov 16 05:42:12 2004 UTC
# Line 44  c     == global variables == Line 44  c     == global variables ==
44    
45  #include "ctrl.h"  #include "ctrl.h"
46  #include "cost.h"  #include "cost.h"
47    #include "optim.h"
48    
49  #ifdef ALLOW_ECCO  #ifdef ALLOW_ECCO
50  # include "ecco_cost.h"  # include "ecco_cost.h"
# Line 51  c     == global variables == Line 52  c     == global variables ==
52  # include "ctrl_weights.h"  # include "ctrl_weights.h"
53  #endif  #endif
54    
 #ifdef ALLOW_ECCO_OPTIMIZATION  
 # include "optim.h"  
 #endif  
   
55  c     == routine arguments ==  c     == routine arguments ==
56    
57        logical first        logical first
# Line 63  c     == routine arguments == Line 60  c     == routine arguments ==
60  #ifndef EXCLUDE_CTRL_PACK  #ifndef EXCLUDE_CTRL_PACK
61  c     == local variables ==  c     == local variables ==
62    
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       integer optimcycle  
       _RL    fmin  
 #endif  
   
63        _RL    fcloc        _RL    fcloc
64    
65        integer i, j, k        integer i, j, k
# Line 97  c     == external == Line 89  c     == external ==
89  c     == end of interface ==  c     == end of interface ==
90    
91  #ifndef ALLOW_ECCO_OPTIMIZATION  #ifndef ALLOW_ECCO_OPTIMIZATION
       optimcycle = 0  
92        fmin       = 0. _d 0        fmin       = 0. _d 0
93  #endif  #endif
94    
# Line 107  c--   Tiled files are used. Line 98  c--   Tiled files are used.
98  c--   Initialise adjoint variables on active files.  c--   Initialise adjoint variables on active files.
99        ladinit = .false.        ladinit = .false.
100    
101    c--   Initialise global buffer index
102          nbuffglobal = 0
103    
104  c--   Assign file names.  c--   Assign file names.
105    
106        call ctrl_set_fname(xx_theta_file, fname_theta, mythid)        call ctrl_set_fname(xx_theta_file, fname_theta, mythid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22