/[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.3 by mlosch, Fri Apr 27 12:02:25 2012 UTC revision 1.5 by mlosch, Wed May 2 20:16:26 2012 UTC
# Line 436  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 1133  c Line 1132  c
1132  c --- variables locales  c --- variables locales
1133  c  c
1134  #include "mlis3_common.h"        #include "mlis3_common.h"      
1135        logical t_increased        integer i
       integer i,indica,indicd  
1136        double precision taa,ps        double precision taa,ps
1137  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,
1138  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,
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22