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

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

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

revision 1.102 by edhill, Tue Oct 28 22:57:59 2003 UTC revision 1.104 by edhill, Tue Nov 4 18:40:57 2003 UTC
# Line 73  C     == Global variables === Line 73  C     == Global variables ===
73  #include "EEPARAMS.h"  #include "EEPARAMS.h"
74  #include "PARAMS.h"  #include "PARAMS.h"
75  #include "DYNVARS.h"  #include "DYNVARS.h"
76    #ifdef ALLOW_CD_CODE
77    #include "CD_CODE_VARS.h"
78    #endif
79  #include "GRID.h"  #include "GRID.h"
80  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
81  #include "TR1.h"  #include "TR1.h"
# Line 471  C      CALL REMOVE_MEAN_RL( 1, phiHydLow Line 474  C      CALL REMOVE_MEAN_RL( 1, phiHydLow
474  C     &                'phiHydLow', myThid )  C     &                'phiHydLow', myThid )
475  Cml)  Cml)
476    
477  #ifndef DISABLE_DEBUGMODE  #ifdef ALLOW_DEBUG
478        If ( debugLevel .GE. debLevB ) THEN        If ( debugLevel .GE. debLevB ) THEN
479         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)
480         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,uVel,'Uvel (DYNAMICS)',myThid)
Legend:
Removed from v.1.102  
changed lines
  Added in v.1.104
  ViewVC Help
Powered by ViewVC 1.1.22