/[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.8 by mlosch, Mon May 9 09:37:17 2016 UTC revision 1.10 by mlosch, Tue Feb 12 15:50:49 2019 UTC
# Line 128  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 233  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.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22