/[MITgcm]/MITgcm/model/src/initialise_varia.F
ViewVC logotype

Diff of /MITgcm/model/src/initialise_varia.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.14 by heimbach, Fri Jul 13 20:14:08 2001 UTC revision 1.15 by heimbach, Mon Jul 30 20:39:18 2001 UTC
# Line 32  C     == Local variables == Line 32  C     == Local variables ==
32        INTEGER bi,bj,K,iMin,iMax,jMin,jMax        INTEGER bi,bj,K,iMin,iMax,jMin,jMax
33    
34  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
35         nIter0 = INT( startTime/deltaTClock )  
36          nIter0 = INT( startTime/deltaTClock )
37    
38    C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
39          CALL INI_LINEAR_PHISURF( myThid )
40    
41    C--   Set coriolis operators
42          CALL INI_CORI( myThid )
43    
44    C--   Set laplace operators for use in 2D conjugate gradient solver.
45          CALL INI_CG2D( myThid )
46    
47    #ifdef ALLOW_NONHYDROSTATIC
48    C--   Set laplace operators for use in 3D conjugate gradient solver.
49          CALL INI_CG3D( myThid )
50  #endif  #endif
51    
52    #endif /* ALLOW_TAMC_CHECKPOINTING */
53    
54        _BARRIER        _BARRIER
55  C--   Initialize DYNVARS arrays (state fields + G terms: Gu,Gv,...) to zero [always]  C--   Initialize DYNVARS arrays (state fields + G terms: Gu,Gv,...) to zero [always]
56        CALL INI_DYNVARS( myThid )        CALL INI_DYNVARS( myThid )
# Line 46  C     stored files. Line 62  C     stored files.
62        CALL INI_FIELDS( myThid )        CALL INI_FIELDS( myThid )
63        _BARRIER        _BARRIER
64    
65    #ifdef ALLOW_PASSIVE_TRACER
66  C--   Initialise passive tracer(s)  C--   Initialise passive tracer(s)
67        CALL INI_TR1( myThid )        CALL INI_TR1( myThid )
68        _BARRIER        _BARRIER
69    #endif
70    
71        IF ( usePickupBeforeC35 ) THEN        IF ( usePickupBeforeC35 ) THEN
72  C-- IMPORTANT : Need to activate the following call to restart from  C-- IMPORTANT : Need to activate the following call to restart from
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22