/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/optim_sub.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/optim_sub.F

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

revision 1.7 by mlosch, Tue Jun 2 16:17:24 2015 UTC revision 1.10 by mlosch, Tue Feb 12 15:50:49 2019 UTC
# Line 37  c     == global variables == Line 37  c     == global variables ==
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  #include "SIZE.h"  #include "SIZE.h"
39    
40    #if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))
41    # include "CTRL_SIZE.h"
42    #endif
43  #include "ctrl.h"  #include "ctrl.h"
44  #include "optim.h"  #include "optim.h"
45  #include "m1qn3_common.h"  #include "m1qn3_common.h"
# Line 125  c Line 128  c
128        imode=(/0,1,0/)        imode=(/0,1,0/)
129        omode=-1        omode=-1
130  c     initialise work array  c     initialise work array
131        ndz = 3*nn+nupdate*(3*nn+1)        ndz = 4*nn+nupdate*(2*nn+1)
132        do i=1,5        do i=1,5
133         iz(i)=0         iz(i)=0
134        enddo        enddo
# Line 230  c     write model control vector Line 233  c     write model control vector
233       &     ctrlname       &     ctrlname
234  c     give the cost function a funny value to make sure that nobody  c     give the cost function a funny value to make sure that nobody
235  c     mistakes it for the real one  c     mistakes it for the real one
236        call optim_writedata( nn, ctrlname, .false., -9999., xx )        call optim_writedata( nn, ctrlname, .false., -9999. _d 0, xx )
237    
238  c     clean up  c     clean up
239  #ifdef DYNAMIC  #ifdef DYNAMIC
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22