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 |
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 |
|
|
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 |