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

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

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

revision 1.105 by jmc, Wed Oct 14 22:29:22 2009 UTC revision 1.106 by jmc, Thu Oct 15 00:38:21 2009 UTC
# Line 494  c--   set default: Line 494  c--   set default:
494        lastdiva = .TRUE.        lastdiva = .TRUE.
495    
496  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
497        IF (debugMode) CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)  C-    cannot test for debugMode which has not yet been set
498          CALL DEBUG_ENTER('THE_MODEL_MAIN',myThid)
499  #endif  #endif
500    
501  #if defined(USE_PAPI) || defined(USE_PCL_FLOPS_SFP) || defined(USE_PCL_FLOPS) || defined(USE_PCL)  #if defined(USE_PAPI) || defined(USE_PCL_FLOPS_SFP) || defined(USE_PCL_FLOPS) || defined(USE_PCL)
# Line 504  C--   This timer encompasses the whole c Line 505  C--   This timer encompasses the whole c
505        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)        CALL TIMER_START('ALL                    [THE_MODEL_MAIN]',myThid)
506    
507  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
508        IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid)  C-    cannot test for debugMode which has not yet been set
509          CALL DEBUG_CALL('INITIALISE_FIXED',myThid)
510  #endif  #endif
511    
512  C--   Set model configuration (fixed arrays)  C--   Set model configuration (fixed arrays)
Legend:
Removed from v.1.105  
changed lines
  Added in v.1.106
  ViewVC Help
Powered by ViewVC 1.1.22