/[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.5 by mlosch, Thu May 10 10:25:14 2012 UTC revision 1.6 by mlosch, Mon Jun 4 12:23:34 2012 UTC
# Line 193  c     simul_rc,euclid,ctonbe,ctcabe are Line 193  c     simul_rc,euclid,ctonbe,ctcabe are
193  c     are provided within m1qn3. euclid, ctonbe, ctcabe can be replaced  c     are provided within m1qn3. euclid, ctonbe, ctcabe can be replaced
194  c     by something more efficient, simul_rc is a dummy routine for  c     by something more efficient, simul_rc is a dummy routine for
195  c     the reverse communication mode and should not be changed.  c     the reverse communication mode and should not be changed.
196        print *, ' OPTIM_SUB: call m1qn3_offline'        print *, ' OPTIM_SUB: call m1qn3_offline ........'
197        call m1qn3_offline (simul_rc,euclid,ctonbe,ctcabe,        call m1qn3_offline (simul_rc,euclid,ctonbe,ctcabe,
198       &     nn,xx,objf,adxx,dxmin,df1,       &     nn,xx,objf,adxx,dxmin,df1,
199       &     epsg,normtype,impres,io,imode,omode,niter,nsim,       &     epsg,normtype,impres,io,imode,omode,niter,nsim,
200       &     iz,dz,ndz,reverse,indic,izs,rzs,dzs)       &     iz,dz,ndz,reverse,indic,izs,rzs,dzs)
201        close(io)        close(io)
202          print *, ' OPTIM_SUB: ...........................'
203        print *, ' OPTIM_SUB: returned from m1qn3_offline'        print *, ' OPTIM_SUB: returned from m1qn3_offline'
204          print *, ' OPTIM_SUB:      nn = ', nn
205          print *, ' OPTIM_SUB:   xx(1) = ', xx(1), xx(2)
206          print *, ' OPTIM_SUB: adxx(1) = ', adxx(1), adxx(2)
207          print *, ' OPTIM_SUB: omode   = ', omode
208          print *, ' OPTIM_SUB: niter   = ', niter
209          print *, ' OPTIM_SUB: nsim    = ', nsim
210          print *, ' OPTIM_SUB: reverse = ', reverse
211    
212  c     write state of m1qn3 into pickup file for warm restart  c     write state of m1qn3 into pickup file for warm restart
213        call optim_store_m1qn3(ndz,iz,dz,niter,nsim,epsg,df1,        call optim_store_m1qn3(ndz,iz,dz,niter,nsim,epsg,df1,

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22