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

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/m1qn3_offline.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.4 by mlosch, Wed May 2 10:10:57 2012 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$    
3    C    
4    C     The original m1qn3 has been modified to work "offline", i.e.
5    C     the simulator and the driver of m1qn3_offline are separate
6    C     programs that are called alternatingly from a (shell-)script.
7    C     This requires that the "state" of m1qn3 is saved before
8    C     this program terminates. Communication with the routine
9    C     writing and restoring the state of m1qn3 is achieved via
10    C     3 new common-blocks that are contained in 3 header files.
11    C
12    C     Apr27, 2012, Martin.Losch@awi.de
13    C    
14        subroutine m1qn3_offline        subroutine m1qn3_offline
15       &     (simul,prosca,ctonb,ctcab,n,x,f,g,dxmin,df1,       &     (simul,prosca,ctonb,ctcab,n,x,f,g,dxmin,df1,
16       &     epsg,normtype,impres,io,imode,omode,niter,nsim,       &     epsg,normtype,impres,io,imode,omode,niter,nsim,
# Line 423  c         variables locales Line 436  c         variables locales
436  c  c
437        logical skip_update        logical skip_update
438        integer i,moderl        integer i,moderl
       double precision preco,precos,ys,den,dk1,ps,ps2,hp0  
439  #include "m1qn3a_common.h"  #include "m1qn3a_common.h"
440  CML      logical sscale,cold,warm,skip_update  CML      logical sscale,cold,warm,skip_update
441  CML      integer i,itmax,moderl,isim,jcour  CML      integer i,itmax,moderl,isim,jcour
# Line 1122  c Line 1134  c
1134  #include "mlis3_common.h"        #include "mlis3_common.h"      
1135        logical t_increased        logical t_increased
1136        integer i,indica,indicd        integer i,indica,indicd
1137        double precision tg,fg,fpg,td,ta,d2,fp,ffn,fd,        double precision taa,ps
      &     fpd,z,test,gauche,droite,taa,ps  
1138  CML      save t_increased,i,indica,indicd,tesf,tesd,tg,fg,fpg,td,ta,fa,  CML      save t_increased,i,indica,indicd,tesf,tesd,tg,fg,fpg,td,ta,fa,
1139  CML     &    fpa,d2,fn,fp,ffn,fd,fpd,z,test,barmin,barmul,barmax,barr,  CML     &    fpa,d2,fn,fp,ffn,fd,fpd,z,test,barmin,barmul,barmax,barr,
1140  CML     &    gauche,droite,taa,ps  CML     &    gauche,droite,taa,ps
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22