/[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.2 by mlosch, Fri Apr 27 12:00:50 2012 UTC revision 1.4 by mlosch, Wed May 2 10:10:57 2012 UTC
# Line 3  C $Name$ Line 3  C $Name$
3  C      C    
4  C     The original m1qn3 has been modified to work "offline", i.e.  C     The original m1qn3 has been modified to work "offline", i.e.
5  C     the simulator and the driver of m1qn3_offline are separate  C     the simulator and the driver of m1qn3_offline are separate
6  C     program that are called alternatingly from a (shell-)script.  C     programs that are called alternatingly from a (shell-)script.
7  C     This requires that the "state" of m1qn3 is saved at before  C     This requires that the "state" of m1qn3 is saved before
8  C     this program terminates. Communication with the routine  C     this program terminates. Communication with the routine
9  C     writing and restoring the state of m1qn3 is achieved via  C     writing and restoring the state of m1qn3 is achieved via
10  C     3 new common-blocks that are contained in 3 header files.  C     3 new common-blocks that are contained in 3 header files.
# 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22