/[MITgcm]/MITgcm/pkg/ecco/the_main_loop.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/the_main_loop.F

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

revision 1.37 by ce107, Wed Jun 14 15:30:14 2006 UTC revision 1.38 by heimbach, Thu Jun 15 17:00:59 2006 UTC
# Line 132  c They provide the fields to be stored. Line 132  c They provide the fields to be stored.
132  # endif /* ALLOW_EXF */  # endif /* ALLOW_EXF */
133  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
134  #  include "SEAICE.h"  #  include "SEAICE.h"
135    #  include "SEAICE_COST.h"
136  # endif  # endif
137  # ifdef ALLOW_KPP  # ifdef ALLOW_KPP
138  #  include "KPP.h"  #  include "KPP.h"
# Line 542  c************************************** Line 543  c**************************************
543  c**************************************  c**************************************
544  #endif  #endif
545    
546  #ifndef DISABLE_DEBUGMODE  C--   Call driver to load external forcing fields from file
547        IF ( debugLevel .GE. debLevB )  #ifdef ALLOW_DEBUG
548       &    CALL DEBUG_CALL('EXF_GETFORCING',myThid)        IF ( debugLevel .GE. debLevB )
549         &    CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid)
550  #endif  #endif
551        CALL TIMER_START('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_START('LOAD_FIELDS_DRIVER  [FORWARD_STEP]',myThid)
552        CALL EXF_GETFORCING( mytime, myiter, mythid )        CALL LOAD_FIELDS_DRIVER( myTime, myIter, myThid )
553        CALL TIMER_STOP ('EXF_GETFORCING     [FORWARD_STEP]',mythid)        CALL TIMER_STOP ('LOAD_FIELDS_DRIVER  [FORWARD_STEP]',myThid)
554  # ifdef NONLIN_FRSURF  
 CADJ STORE hFacC  = comlev1, key = ikey_dynamics  
 CADJ STORE SST    = comlev1, key = ikey_dynamics  
 CADJ STORE SSS    = comlev1, key = ikey_dynamics  
 #  ifdef SHORTWAVE_HEATING  
 CADJ STORE Qsw    = comlev1, key = ikey_dynamics  
 #  endif  
 # endif  
555    
556  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
557  # if (defined (ALLOW_AUTODIFF_MONITOR))  # if (defined (ALLOW_AUTODIFF_MONITOR))
# Line 564  CADJ STORE Qsw    = comlev1, key = ikey_ Line 559  CADJ STORE Qsw    = comlev1, key = ikey_
559  # endif  # endif
560  #endif  #endif
561    
 #ifdef ALLOW_SEAICE  
 cph this simple runtime flag causes a lot of recomp.  
       IF ( useSEAICE ) THEN  
 #ifndef DISABLE_DEBUGMODE  
          IF ( debugLevel .GE. debLevB )  
      &    CALL DEBUG_CALL('SEAICE_MODEL',myThid)  
 #endif  
          CALL TIMER_START('SEAICE_MODEL       [FORWARD_STEP]',myThid)  
          CALL SEAICE_MODEL( myTime, myIter, myThid )  
          CALL TIMER_STOP ('SEAICE_MODEL       [FORWARD_STEP]',myThid)  
 #ifdef ALLOW_COST_ICE  
          CALL COST_ICE_TEST ( myTime, myIter, myThid )  
 #endif  
       ENDIF  
 #endif /* ALLOW_SEAICE */  
   
562  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
563  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
564  cph this replaces _bibj storing of ptracer within thermodynamics  cph this replaces _bibj storing of ptracer within thermodynamics
# Line 599  CADJ STORE ptracer  = comlev1, key = ike Line 578  CADJ STORE ptracer  = comlev1, key = ike
578          ENDIF          ENDIF
579  #endif  #endif
580    
 #ifdef ALLOW_PTRACERS  
 # ifdef ALLOW_GCHEM  
         IF ( useGCHEM ) THEN  
 #ifdef ALLOW_DEBUG  
          IF ( debugLevel .GE. debLevB )  
      &        CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid)  
 #endif /* ALLOW_DEBUG */  
          CALL GCHEM_FIELDS_LOAD( mytime, myiter, mythid )  
         ENDIF  
 # endif  
 #endif  
   
581  C--     Step forward fields and calculate time tendency terms.  C--     Step forward fields and calculate time tendency terms.
582    
583  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22