/[MITgcm]/MITgcm/pkg/opps/opps_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/opps/opps_calc.F

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

revision 1.4 by jmc, Wed Apr 6 18:44:50 2005 UTC revision 1.5 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 68  C !USES: =============================== Line 68  C !USES: ===============================
68  #include "FFIELDS.h"  #include "FFIELDS.h"
69  #include "GRID.h"  #include "GRID.h"
70    
71        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
72        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
73    
74  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
75  c Routine arguments  c Routine arguments
# Line 115  CEOP Line 115  CEOP
115    
116    
117  C--   Check to see if should convect now  C--   Check to see if should convect now
118  C      IF ( DIFF_BASE_MULTIPLE(baseTime,cAdjFreq,myTime,deltaTClock) ) THEN  C      IF ( DIFFERENT_MULTIPLE(cAdjFreq,myTime,deltaTClock) ) THEN
119        IF ( .true. ) THEN        IF ( .true. ) THEN
120  C     local initialization  C     local initialization
121    
# Line 434  C     end  of k-loop Line 434  C     end  of k-loop
434  C  C
435        ENDDO        ENDDO
436    
437  C--   End IF (DIFF_BASE_MULTIPLE)  C--   End IF (DIFFERENT_MULTIPLE)
438        ENDIF        ENDIF
439    
440        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22