/[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.5 by mlosch, Wed May 2 20:16:26 2012 UTC revision 1.7 by mlosch, Wed Mar 20 16:05:00 2019 UTC
# Line 429  c Line 429  c
429       &    reverse,reentry,izs(*)       &    reverse,reentry,izs(*)
430        real rzs(*)        real rzs(*)
431        double precision x(n),f,g(n),dxmin,df1,epsg,d(n),gg(n),diag(n),        double precision x(n),f,g(n),dxmin,df1,epsg,d(n),gg(n),diag(n),
432       &    aux(n),alpha(m),ybar(n,1),sbar(n,1),dzs(*)       &    aux(n),alpha(m),ybar(n,*),sbar(n,*),dzs(*)
433    CML     &    aux(n),alpha(m),ybar(n,1),sbar(n,1),dzs(*)
434        external simul,prosca,ctonb,ctcab        external simul,prosca,ctonb,ctcab
435  c  c
436  c         variables locales  c         variables locales
437  c  c
438        logical skip_update        logical skip_update
439        integer i,moderl        integer i
440  #include "m1qn3a_common.h"  #include "m1qn3a_common.h"
441  CML      logical sscale,cold,warm,skip_update  CML      logical sscale,cold,warm,skip_update
442  CML      integer i,itmax,moderl,isim,jcour  CML      integer i,itmax,moderl,isim,jcour
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22