36 |
C | |
C | |
37 |
C |-- TIMEAVE_INIT_FIXED |
C |-- TIMEAVE_INIT_FIXED |
38 |
C | |
C | |
39 |
|
C |-- SHAP_FILT_INIT_FIZED |
40 |
|
C | |
41 |
C |-- ZONAL_FILT_INIT |
C |-- ZONAL_FILT_INIT |
42 |
C | |
C | |
43 |
C |-- ATM_DIAGNOSTICS_INIT |
C |-- ATM_DIAGNOSTICS_INIT |
123 |
|
|
124 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
125 |
C IF (useTIMEAVE) THEN |
C IF (useTIMEAVE) THEN |
126 |
CALL TIMEAVE_INIT_FIXED( myThid ) |
IF ( taveFreq.GT.0. ) THEN |
127 |
C ENDIF |
CALL TIMEAVE_INIT_FIXED( myThid ) |
128 |
|
ENDIF |
129 |
|
#endif |
130 |
|
|
131 |
|
#ifdef ALLOW_SHAP_FILT |
132 |
|
C-- Shapiro filter initialisation |
133 |
|
IF (useSHAP_FILT) THEN |
134 |
|
CALL SHAP_FILT_INIT_FIXED( myThid ) |
135 |
|
ENDIF |
136 |
#endif |
#endif |
137 |
|
|
138 |
#ifdef ALLOW_ZONAL_FILT |
#ifdef ALLOW_ZONAL_FILT |