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

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

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

revision 1.66 by jmc, Sun Jan 4 01:00:19 2009 UTC revision 1.67 by jmc, Sat Jan 31 22:22:25 2009 UTC
# Line 46  C       |-- OPPS_INIT Line 46  C       |-- OPPS_INIT
46  C       |  C       |
47  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
48  C       |  C       |
 C       |-- FLT_INIT  
 C       |  
49  C       |-- TIMEAVE_INIT_FIXED  C       |-- TIMEAVE_INIT_FIXED
50  C       |  C       |
51  C       |-- SHAP_FILT_INIT_FIZED  C       |-- SHAP_FILT_INIT_FIZED
# Line 66  C       |-- SEAICE_COST_INIT_FIXED Line 64  C       |-- SEAICE_COST_INIT_FIXED
64  C       |  C       |
65  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
66  C       |  C       |
67    C       |-- PROFILES_INIT_FIXED
68    C       |
69  C       |-- CTRL_INIT  C       |-- CTRL_INIT
70  C       |  C       |
71    C       |-- FLT_INIT_FIXED
72    C       |
73  C       |-- PTRACERS_INIT_FIXED  C       |-- PTRACERS_INIT_FIXED
74  C       |  C       |
75  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
# Line 186  C--   Initialize fixed arrays for OBCS Line 188  C--   Initialize fixed arrays for OBCS
188        ENDIF        ENDIF
189  #endif  #endif
190    
 #ifdef ALLOW_FLT  
 C--   Initialise Float positions  
       IF (useFLT) THEN  
        CALL FLT_INIT( myThid )  
       ENDIF  
 #endif  
   
191  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
192  C     IF (useTIMEAVE) THEN  C     IF (useTIMEAVE) THEN
193        IF ( taveFreq.GT.0. ) THEN        IF ( taveFreq.GT.0. ) THEN
# Line 211  C--   Shapiro filter initialisation Line 206  C--   Shapiro filter initialisation
206  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
207        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
208         CALL ZONAL_FILT_INIT(myThid)         CALL ZONAL_FILT_INIT(myThid)
       _BARRIER  
209        ENDIF        ENDIF
210  #endif  #endif
211    
# Line 263  C--   in order to provide the weight fil Line 257  C--   in order to provide the weight fil
257  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
258  C--   Initialise the control variables  C--   Initialise the control variables
259        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
       _BARRIER  
260  #endif  #endif
261    
262  #ifdef ALLOW_ADMTLM  #ifdef ALLOW_ADMTLM
263  C--   Initialise ADMTLM  C--   Initialise ADMTLM
264        CALL CTRL_ADMTLM( myThid )        CALL CTRL_ADMTLM( myThid )
265        _BARRIER  #endif
266    
267    #ifdef ALLOW_FLT
268    C--   Initialise fixed array for Float pkg
269          IF ( useFLT ) CALL FLT_INIT_FIXED( myThid )
270  #endif  #endif
271    
272  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22