/[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.15 by heimbach, Mon Jul 30 20:39:18 2001 UTC revision 1.18 by heimbach, Mon Sep 10 16:35:27 2001 UTC
# Line 50  C--   Set laplace operators for use in 3 Line 50  C--   Set laplace operators for use in 3
50  #endif  #endif
51    
52  #endif /* ALLOW_TAMC_CHECKPOINTING */  #endif /* ALLOW_TAMC_CHECKPOINTING */
53          _BARRIER
54    
55    C--   Initialise 3-dim. diffusivities
56          CALL INI_MIXING( myThid )
57        _BARRIER        _BARRIER
58    
59  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]
60        CALL INI_DYNVARS( myThid )        CALL INI_DYNVARS( myThid )
61    
# Line 68  C--   Initialise passive tracer(s) Line 72  C--   Initialise passive tracer(s)
72        _BARRIER        _BARRIER
73  #endif  #endif
74    
75    #ifndef ALLOW_AUTODIFF_TAMC
76        IF ( usePickupBeforeC35 ) THEN        IF ( usePickupBeforeC35 ) THEN
77  C-- IMPORTANT : Need to activate the following call to restart from  C-- IMPORTANT : Need to activate the following call to restart from
78  C     a pickup file written by MITgcmUV_checkpoint34 or earlier.  C     a pickup file written by MITgcmUV_checkpoint34 or earlier.
# Line 75  C     a pickup file written by MITgcmUV_ Line 80  C     a pickup file written by MITgcmUV_
80         CALL THE_CORRECTION_STEP(startTime, nIter0, myThid)         CALL THE_CORRECTION_STEP(startTime, nIter0, myThid)
81        ENDIF        ENDIF
82        ENDIF        ENDIF
83    #endif
84    
85  C--   Initial conditions are convectively adjusted (for historical reasons)  C--   Initial conditions are convectively adjusted (for historical reasons)
86        IF ( startTime .EQ. 0. ) THEN        IF ( startTime .EQ. 0. ) THEN
# Line 97  CADJ loop = parallel Line 103  CADJ loop = parallel
103  C--   Initialize variable data for packages  C--   Initialize variable data for packages
104        CALL PACKAGES_INIT_VARIABLES( myThid )        CALL PACKAGES_INIT_VARIABLES( myThid )
105    
106    #ifdef NONLIN_FRSURF
107    C--   Compute the surface level thickness, function of eta_n-1
108    C     and modify hFac(C,W,S) accordingly :
109          IF (nonlinFreeSurf.GT.0) THEN
110            CALL CALC_SURF_DR(etaNm1, startTime, nIter0, myThid )
111            CALL UPDATE_SURF_DR( startTime, nIter0, myThid )
112          ENDIF
113    C-    update also CG2D matrix (and preconditioner)
114          IF ( nonlinFreeSurf.GT.2) THEN
115            CALL UPDATE_CG2D( startTime, nIter0, myThid )
116          ENDIF
117    #endif
118    
119  C--   Finally summarise the model state  C--   Finally summarise the model state
120        CALL STATE_SUMMARY( myThid )        CALL STATE_SUMMARY( myThid )
121    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22