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

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

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

revision 1.17 by jmc, Wed Apr 6 18:29:52 2005 UTC revision 1.18 by jmc, Sun May 15 03:02:08 2005 UTC
# Line 36  C     == Global data == Line 36  C     == Global data ==
36  #include "tamc.h"  #include "tamc.h"
37  #include "tamc_keys.h"  #include "tamc_keys.h"
38  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
39        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
40        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
41    
42  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
43  C     == Routine arguments ==  C     == Routine arguments ==
# Line 66  C     ConvectCount :: Convection freq. c Line 66  C     ConvectCount :: Convection freq. c
66  CEOP  CEOP
67    
68  C--   Check to see if should convect now  C--   Check to see if should convect now
69        IF ( DIFF_BASE_MULTIPLE(baseTime,cAdjFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(cAdjFreq,myTime,deltaTClock)
70       &   ) THEN       &   ) THEN
71    
72  C--   Initialise counters  C--   Initialise counters
# Line 180  C-          Convectively mix passive tra Line 180  C-          Convectively mix passive tra
180  C--       End DO K=1,Nr  C--       End DO K=1,Nr
181            ENDDO            ENDDO
182                
183  C--   End IF (DIFF_BASE_MULTIPLE)  C--   End IF (DIFFERENT_MULTIPLE)
184        ENDIF        ENDIF
185    
186  #endif /* INCLUDE_CONVECT_CALL */  #endif /* INCLUDE_CONVECT_CALL */
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22