/[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.9 by mlosch, Wed May 2 10:06:42 2018 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
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22