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 program that are called alternatingly from a (shell-)script. |
7 |
|
C This requires that the "state" of m1qn3 is saved at 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, |
1135 |
#include "mlis3_common.h" |
#include "mlis3_common.h" |
1136 |
logical t_increased |
logical t_increased |
1137 |
integer i,indica,indicd |
integer i,indica,indicd |
1138 |
double precision tg,fg,fpg,td,ta,d2,fp,ffn,fd, |
double precision taa,ps |
|
& fpd,z,test,gauche,droite,taa,ps |
|
1139 |
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, |
1140 |
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, |
1141 |
CML & gauche,droite,taa,ps |
CML & gauche,droite,taa,ps |