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

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

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

revision 1.65 by jmc, Wed Nov 9 19:54:23 2005 UTC revision 1.66 by heimbach, Thu Dec 8 15:44:34 2005 UTC
# Line 61  c They provide the fields to be stored. Line 61  c They provide the fields to be stored.
61  #  include "PTRACERS_SIZE.h"  #  include "PTRACERS_SIZE.h"
62  #  include "PTRACERS.h"  #  include "PTRACERS.h"
63  # endif  # endif
64  # ifdef EXACT_CONSERV  # if (defined (EXACT_CONSERV) || defined (NONLIN_FRSURF))
65  #  include "SURFACE.h"  #  include "SURFACE.h"
66  # endif  # endif
67  # ifdef ALLOW_OBCS  # ifdef ALLOW_OBCS
# Line 152  CADJ  INIT tapelev3 = USER Line 152  CADJ  INIT tapelev3 = USER
152        CALL TIMER_START('ADJOINT SPIN-UP', mythid)        CALL TIMER_START('ADJOINT SPIN-UP', mythid)
153  #endif  #endif
154    
155    #ifdef ALLOW_AUTODIFF_TAMC
156    # ifdef NONLIN_FRSURF
157    CADJ STORE hFacC = tapelev_init, key = 1
158    # endif
159    #endif
160    
161  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
162        IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)        IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid)
163  #endif  #endif
   
164  C--   Set initial conditions (variable arrays)  C--   Set initial conditions (variable arrays)
165        CALL TIMER_START('INITIALISE_VARIA    [THE_MAIN_LOOP]', mythid)        CALL TIMER_START('INITIALISE_VARIA    [THE_MAIN_LOOP]', mythid)
166        CALL INITIALISE_VARIA( mythid )        CALL INITIALISE_VARIA( mythid )
Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66
  ViewVC Help
Powered by ViewVC 1.1.22