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

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

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

revision 1.1 by mlosch, Thu Apr 26 11:10:06 2012 UTC revision 1.2 by mlosch, Fri Apr 27 12:00:50 2012 UTC
# Line 56  c     m1qn3a_common.h Line 56  c     m1qn3a_common.h
56         write(io) cold,warm,itmax,isim,jcour,d1,t,tmin,tmax,         write(io) cold,warm,itmax,isim,jcour,d1,t,tmin,tmax,
57       &      gnorm,gnorms,eps1,ff,dk       &      gnorm,gnorms,eps1,ff,dk
58  c     mlis3_common.h  c     mlis3_common.h
59         write(io) tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr         write(io) tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr,
60         &      tg,fg,fpg,td,ta,d2,fp,ffn,fd,fpd,z,test,gauche,droite
61        else        else
62         write(fname,'(A,I4.4)') 'OPWARM.opt',optimcycle         write(fname,'(A,I4.4)') 'OPWARM.opt',optimcycle
63  c  c
# Line 77  c     m1qn3a_common.h Line 78  c     m1qn3a_common.h
78         read (io) cold,warm,itmax,isim,jcour,d1,t,tmin,tmax,         read (io) cold,warm,itmax,isim,jcour,d1,t,tmin,tmax,
79       &      gnorm,gnorms,eps1,ff,dk       &      gnorm,gnorms,eps1,ff,dk
80  c     mlis3_common.h  c     mlis3_common.h
81         read (io) tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr         read (io) tesf,tesd,fa,fpa,fn,barmin,barmul,barmax,barr,
82         &      tg,fg,fpg,td,ta,d2,fp,ffn,fd,fpd,z,test,gauche,droite
83        endif        endif
84    
85        close(io)        close(io)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22