/[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.3 by adcroft, Thu Sep 13 17:43:55 2001 UTC revision 1.76 by mlosch, Wed Oct 26 09:30:17 2011 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7    CBOP
8    C     !ROUTINE: PACKAGES_INIT_FIXED
9    C     !INTERFACE:
10        SUBROUTINE PACKAGES_INIT_FIXED( myThid )        SUBROUTINE PACKAGES_INIT_FIXED( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_INIT_FIXED                           |  
 C     | o Does initialisation of package-related fixed fields    |  
 C     |==========================================================|  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C     !DESCRIPTION: \bv
13    C     *==========================================================*
14    C     | SUBROUTINE PACKAGES_INIT_FIXED
15    C     | o Does initialisation of package-related fixed fields
16    C     *==========================================================*
17    C     \ev
18    
19    C     !CALLING SEQUENCE:
20    C     PACKAGES_INIT_FIXED
21    C       |
22    C       |-- RUNCLOCK_INIT
23    C       |
24    C       |-- DIAGNOSTICS_INIT_EARLY
25    C       |-- DIAGNOSTICS_MAIN_INIT
26    C       |
27    C       |-- GAD_INIT_FIXED
28    C       |
29    C       |-- MOM_INIT_FIXED
30    C       |
31    C       |-- CD_CODE_INIT_FIXED
32    C       |
33    C       |-- EXF_INIT_FIXED
34    C       |
35    C       |-- CHEAPAML_INIT_FIXED
36    C       |
37    C       |-- GMREDI_INIT_FIXED
38    C       |
39    C       |-- DWNSLP_INIT_FIXED
40    C       |
41    C       |-- BBL_INIT_FIXED
42    C       |
43    C       |-- KPP_INIT_FIXED
44    C       |
45    C       |-- PP81_INIT_FIXED
46    C       |
47    C       |-- MY82_INIT_FIXED
48    C       |
49    C       |-- GGL90_INIT_FIXED
50    C       |
51    C       |-- OPPS_INIT
52    C       |
53    C       |-- OBCS_INIT_FIXED
54    C       |
55    C       |-- TIMEAVE_INIT_FIXED
56    C       |
57    C       |-- SHAP_FILT_INIT_FIZED
58    C       |
59    C       |-- ZONAL_FILT_INIT
60    C       |
61    C       |-- AIM_INITIALISE
62    C       |
63    C       |-- GRIDALT_INITIALISE
64    C       |
65    C       |-- FIZHI_INIT_FIXED
66    C       |
67    C       |-- LAND_INITIALISE
68    C       |
69    C       |-- SEAICE_COST_INIT_FIXED
70    C       |
71    C       |-- ECCO_COST_INIT_FIXED
72    C       |
73    C       |-- PROFILES_INIT_FIXED
74    C       |
75    C       |-- CTRL_INIT
76    C       |
77    C       |-- FLT_INIT_FIXED
78    C       |
79    C       |-- LONGSTEP_INIT_FIXED
80    C       |
81    C       |-- PTRACERS_INIT_FIXED
82    C       |
83    C       |-- GCHEM_INIT_FIXED
84    C       |
85    C       |-- THSICE_INIT_FIXED
86    C       |
87    C       |-- SHELFICE_INIT_FIXED
88    C       |
89    C       |-- ICEFRONT_INIT_FIXED
90    C       |
91    C       |-- CPL_INIT_FIXED
92    C       |
93    C       |-- ATM2D_INIT_FIXED
94    C       |
95    C       |-- REGRID_INIT_FIXED
96    C       |
97    C       |-- LAYERS_INIT_FIXED
98    C       |
99    C       |-- SALT_PLUME_INIT_FIXED
100    C       |
101    C       |-- MYPACKAGE_INIT_FIXED
102    C       |
103    C       |-- DIAGNOSTICS_INIT_FIXED
104    
105    
106    C     !USES:
107          IMPLICIT NONE
108  C     === Global variables ===  C     === Global variables ===
109  #include "SIZE.h"  #include "SIZE.h"
110  #include "EEPARAMS.h"  #include "EEPARAMS.h"
111  #include "PARAMS.h"  #include "PARAMS.h"
112    
113    C     !INPUT/OUTPUT PARAMETERS:
114  C     === Routine arguments ===  C     === Routine arguments ===
115  C     myThid -  Number of this instances  C     myThid :: my Thread Id Number
116        INTEGER myThid        INTEGER myThid
117    CEOP
118    
119    #ifdef ALLOW_DEBUG
120          IF (debugMode) CALL DEBUG_ENTER('PACKAGES_INIT_FIXED',myThid)
121    #endif
122    
123    #ifdef ALLOW_RUNCLOCK
124          IF ( useRunClock ) THEN
125    # ifdef ALLOW_DEBUG
126            IF (debugMode) CALL DEBUG_CALL('RUNCLOCK_INIT',myThid)
127    # endif
128            CALL RUNCLOCK_INIT( myThid )
129          ENDIF
130    #endif
131    
132    #ifdef ALLOW_DIAGNOSTICS
133          IF ( useDiagnostics ) THEN
134    C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
135    # ifdef ALLOW_DEBUG
136            IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_EARLY',myThid)
137    # endif
138            CALL DIAGNOSTICS_INIT_EARLY( myThid )
139    # ifdef ALLOW_DEBUG
140            IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_MAIN_INIT',myThid)
141    # endif
142            CALL DIAGNOSTICS_MAIN_INIT( myThid )
143          ENDIF
144    #endif
145    
146    #ifdef ALLOW_GENERIC_ADVDIFF
147    C--   Initialize fixed params for GAD
148    # ifdef ALLOW_DEBUG
149            IF (debugMode) CALL DEBUG_CALL('GAD_INIT_FIXED',myThid)
150    # endif
151          CALL GAD_INIT_FIXED( myThid )
152    #endif
153    
154    #ifdef ALLOW_MOM_COMMON
155    C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
156          IF ( momStepping ) THEN
157    # ifdef ALLOW_DEBUG
158            IF (debugMode) CALL DEBUG_CALL('MOM_INIT_FIXED',myThid)
159    # endif
160            CALL MOM_INIT_FIXED( myThid )
161          ENDIF
162    #endif
163    
164    #ifdef ALLOW_CD_CODE
165          IF (useCDscheme) THEN
166    # ifdef ALLOW_DEBUG
167            IF (debugMode) CALL DEBUG_CALL('CD_CODE_INIT_FIXED',myThid)
168    # endif
169            CALL CD_CODE_INIT_FIXED(myThid)
170          ENDIF
171    #endif
172    
173    #ifdef ALLOW_EXF
174    C--   Initialize fixed arrays for EXF
175          IF ( useEXF ) THEN
176    # ifdef ALLOW_DEBUG
177            IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
178    # endif
179            CALL EXF_INIT_FIXED( myThid )
180          ENDIF
181    #endif
182    
183    #ifdef ALLOW_CHEAPAML
184          IF ( useCheapAML ) THEN
185    # ifdef ALLOW_DEBUG
186            IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
187    # endif
188            CALL CHEAPAML_INIT_FIXED( myThid )
189          ENDIF
190    #endif
191    
192    #ifdef ALLOW_GMREDI
193    C--   Initialize fixed arrays for GM-Redi
194          IF ( useGMRedi ) THEN
195    # ifdef ALLOW_DEBUG
196            IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
197    # endif
198            CALL GMREDI_INIT_FIXED( myThid )
199          ENDIF
200    #endif
201    
202    #ifdef ALLOW_DOWN_SLOPE
203    C--   Initialize fixed arrays for Down-Slope pkg
204          IF ( useDOWN_SLOPE ) THEN
205    # ifdef ALLOW_DEBUG
206            IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
207    # endif
208            CALL DWNSLP_INIT_FIXED( myThid )
209          ENDIF
210    #endif
211    
212    #ifdef ALLOW_BBL
213    C--   Initialize fixed arrays for BBL pkg
214          IF ( useBBL ) THEN
215    # ifdef ALLOW_DEBUG
216            IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
217    # endif
218            CALL BBL_INIT_FIXED( myThid )
219          ENDIF
220    #endif
221    
222    #ifdef ALLOW_KPP
223    C--   Initialize fixed arrays for KPP
224          IF ( useKPP ) THEN
225    # ifdef ALLOW_DEBUG
226            IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
227    # endif
228            CALL KPP_INIT_FIXED( myThid )
229          ENDIF
230    #endif
231    
232    #ifdef ALLOW_PP81
233    C--   Initialize fixed arrays for PP81
234          IF ( usePP81 ) THEN
235    # ifdef ALLOW_DEBUG
236            IF (debugMode) CALL DEBUG_CALL('PP81_INIT_FIXED',myThid)
237    # endif
238            CALL PP81_INIT_FIXED( myThid )
239          ENDIF
240    #endif
241    
242    #ifdef ALLOW_MY82
243    C--   Initialize fixed arrays for MY82
244          IF ( useMY82 ) THEN
245    # ifdef ALLOW_DEBUG
246            IF (debugMode) CALL DEBUG_CALL('MY82_INIT_FIXED',myThid)
247    # endif
248            CALL MY82_INIT_FIXED( myThid )
249          ENDIF
250    #endif
251    
252    #ifdef ALLOW_GGL90
253    C--   Initialize fixed arrays for GGL90
254          IF ( useGGL90 ) THEN
255    # ifdef ALLOW_DEBUG
256            IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_FIXED',myThid)
257    # endif
258            CALL GGL90_INIT_FIXED( myThid )
259          ENDIF
260    #endif
261    
262    #ifdef ALLOW_OPPS
263          IF (useOPPS) THEN
264    # ifdef ALLOW_DEBUG
265            IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
266    # endif
267            CALL OPPS_INIT( myThid )
268          ENDIF
269    #endif /* ALLOW_OPPS */
270    
271  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
272  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
273        IF (useOBCS) THEN        IF (useOBCS) THEN
274         CALL OBCS_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
275            IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
276    # endif
277            CALL OBCS_INIT_FIXED( myThid )
278          ENDIF
279    #endif
280    
281    #ifdef ALLOW_TIMEAVE
282    C     IF (useTIMEAVE) THEN
283          IF ( taveFreq.GT.0. ) THEN
284    # ifdef ALLOW_DEBUG
285            IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
286    # endif
287            CALL TIMEAVE_INIT_FIXED( myThid )
288          ENDIF
289    #endif
290    
291    #ifdef ALLOW_SHAP_FILT
292    C--   Shapiro filter initialisation
293          IF (useSHAP_FILT) THEN
294    # ifdef ALLOW_DEBUG
295            IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
296    # endif
297            CALL SHAP_FILT_INIT_FIXED( myThid )
298          ENDIF
299    #endif
300    
301    #ifdef ALLOW_ZONAL_FILT
302    C--   Latitude circle filter initialisation
303          IF (useZONAL_FILT) THEN
304    # ifdef ALLOW_DEBUG
305            IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
306    # endif
307            CALL ZONAL_FILT_INIT(myThid)
308          ENDIF
309    #endif
310    
311    #ifdef ALLOW_AIM
312    C--   Initialise & Read AIM physical parameters
313          IF (useAIM) THEN
314    # ifdef ALLOW_DEBUG
315            IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
316    # endif
317            CALL AIM_INITIALISE( myThid )
318          ENDIF
319    #endif
320    
321    #ifdef ALLOW_GRIDALT
322    C--   Initialise GRIDALT parameters - the alternative grid
323          IF (useGRIDALT) then
324    # ifdef ALLOW_DEBUG
325            IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
326    # endif
327            CALL GRIDALT_INITIALISE( myThid )
328          ENDIF
329    #endif
330    
331    #ifdef ALLOW_FIZHI
332    C--   Initialise & Read FIZHI physical parameters
333          IF (useFIZHI) THEN
334    # ifdef ALLOW_DEBUG
335            IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
336    # endif
337            CALL FIZHI_INIT_FIXED( myThid )
338        ENDIF        ENDIF
339  #endif  #endif
340    
341    #ifdef ALLOW_LAND
342    C--   Initialise & Read Land package parameters
343          IF (useLand) THEN
344    # ifdef ALLOW_DEBUG
345            IF (debugMode) CALL DEBUG_CALL('LAND_INITIALISE',myThid)
346    # endif
347            CALL LAND_INITIALISE( myThid )
348          ENDIF
349    #endif
350    
351    #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
352    C--   Initialise ecco-specific cost function.
353    C--   This needs to preceed the call ctrl_init
354    C--   in order to provide the weight files
355          IF (useSEAICE) THEN
356    # ifdef ALLOW_DEBUG
357            IF (debugMode) CALL DEBUG_CALL('SEAICE_COST_INIT_FIXED',myThid)
358    # endif
359            CALL SEAICE_COST_INIT_FIXED( myThid )
360          ENDIF
361    #endif
362    
363    #ifdef ALLOW_SMOOTH
364    # ifdef ALLOW_DEBUG
365            IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid)
366    # endif
367          CALL SMOOTH_INIT_FIXED(myThid)
368    #endif /* ALLOW_SMOOTH */
369    
370    #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
371    C--   Initialise ecco-specific cost function.
372    C--   This needs to preceed the call ctrl_init
373    C--   in order to provide the weight files
374    # ifdef ALLOW_DEBUG
375            IF (debugMode) CALL DEBUG_CALL('ECCO_COST_INIT_FIXED',myThid)
376    # endif
377          CALL ECCO_COST_INIT_FIXED( myThid )
378    #endif
379    
380    #ifdef ALLOW_PROFILES
381    # ifdef ALLOW_DEBUG
382            IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
383    # endif
384          CALL PROFILES_INIT_FIXED( myThid )
385    #endif
386    
387    #ifdef ALLOW_AUTODIFF
388    C--   Initialise the control variables
389    # ifdef ALLOW_DEBUG
390            IF (debugMode) CALL DEBUG_CALL('CTRL_INIT',myThid)
391    # endif
392          CALL CTRL_INIT( myThid )
393    #endif
394    
395    #ifdef ALLOW_ADMTLM
396    C--   Initialise ADMTLM
397    # ifdef ALLOW_DEBUG
398            IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid)
399    # endif
400          CALL CTRL_ADMTLM( myThid )
401    #endif
402    
403  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
404  C--   Initialise Float positions  C--   Initialise fixed array for Float pkg
405        IF (useFLT) then        IF ( useFLT ) THEN
406         CALL FLT_INIT(nIter0,startTime,myThid )  # ifdef ALLOW_DEBUG
407        _BARRIER          IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid)
408    # endif
409            CALL FLT_INIT_FIXED( myThid )
410        ENDIF        ENDIF
411  #endif  #endif
412    
413    #ifdef ALLOW_LONGSTEP
414          IF (usePTRACERS) THEN
415    # ifdef ALLOW_DEBUG
416            IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid)
417    # endif
418            CALL LONGSTEP_INIT_FIXED(myThid)
419          ENDIF
420    #endif
421    
422    #ifdef ALLOW_PTRACERS
423          IF (usePTRACERS) THEN
424    # ifdef ALLOW_DEBUG
425            IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid)
426    # endif
427            CALL PTRACERS_INIT_FIXED(myThid)
428          ENDIF
429    #endif
430    
431    #ifdef ALLOW_GCHEM
432          IF (useGCHEM) THEN
433    # ifdef ALLOW_DEBUG
434            IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid)
435    # endif
436            CALL GCHEM_INIT_FIXED(myThid)
437          ENDIF
438    #endif
439    
440    #ifdef ALLOW_RBCS
441          IF (useRBCS) THEN
442    # ifdef ALLOW_DEBUG
443            IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid)
444    # endif
445            CALL RBCS_INIT_FIXED(myThid)
446          ENDIF
447    #endif
448    
449    #ifdef ALLOW_THSICE
450          IF (useThSIce) THEN
451    # ifdef ALLOW_DEBUG
452            IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
453    # endif
454            CALL THSICE_INIT_FIXED(myThid)
455          ENDIF
456    #endif
457    
458    #ifdef ALLOW_SEAICE
459          IF (useSEAICE) THEN
460    # ifdef ALLOW_DEBUG
461            IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
462    # endif
463            CALL SEAICE_INIT_FIXED(myThid)
464          ENDIF
465    #endif
466    
467    #ifdef ALLOW_SHELFICE
468          IF (useShelfIce) THEN
469    # ifdef ALLOW_DEBUG
470            IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid)
471    # endif
472            CALL SHELFICE_INIT_FIXED( myThid )
473          ENDIF
474    #endif /* ALLOW_SHELFICE */
475    
476    #ifdef ALLOW_ICEFRONT
477          IF (useICEFRONT) THEN
478    # ifdef ALLOW_DEBUG
479            IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid)
480    # endif
481            CALL ICEFRONT_INIT_FIXED( myThid )
482          ENDIF
483    #endif /* ALLOW_ICEFRONT */
484    
485    #ifdef ALLOW_EMBED_FILES
486          IF ( useEMBED_FILES ) THEN
487    # ifdef ALLOW_DEBUG
488            IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
489    # endif
490            CALL EMBED_FILES_INIT( myThid )
491          ENDIF
492    #endif
493    
494    #ifdef ALLOW_REGRID
495          IF ( useREGRID ) THEN
496    # ifdef ALLOW_DEBUG
497            IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid)
498    # endif
499            CALL REGRID_INIT_FIXED( myThid )
500          ENDIF
501    #endif
502    
503    #ifdef ALLOW_LAYERS
504          IF ( useLayers ) THEN
505    # ifdef ALLOW_DEBUG
506            IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid)
507    # endif
508            CALL LAYERS_INIT_FIXED( myThid )
509          ENDIF
510    #endif /* ALLOW_LAYERS */
511    
512    #ifdef COMPONENT_MODULE
513          IF ( useCoupler ) THEN
514    # ifdef ALLOW_DEBUG
515            IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid)
516    # endif
517            CALL CPL_INIT_FIXED( myThid )
518          ENDIF
519    #endif
520    
521    #ifdef ALLOW_ATM2D
522          IF ( useAtm2d ) THEN
523    # ifdef ALLOW_DEBUG
524            IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
525    # endif
526            CALL ATM2D_INIT_FIXED( myThid )
527          ENDIF
528    #endif
529    
530    #ifdef ALLOW_SALT_PLUME
531          IF (useSALT_PLUME) THEN
532    # ifdef ALLOW_DEBUG
533            IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
534    # endif
535            CALL SALT_PLUME_INIT_FIXED(myThid)
536          ENDIF
537    #endif
538    
539    #ifdef ALLOW_OASIS
540    C--   needs to be called after the OASIS_INIT
541          IF (useOASIS) THEN
542    # ifdef ALLOW_DEBUG
543            IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
544    # endif
545            CALL OASIS_INIT_FIXED(myThid)
546          ENDIF
547    #endif
548    
549    #ifdef ALLOW_MYPACKAGE
550          IF (useMYPACKAGE) THEN
551    # ifdef ALLOW_DEBUG
552            IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid)
553    # endif
554            CALL MYPACKAGE_INIT_FIXED(myThid)
555          ENDIF
556    #endif
557    
558    #ifdef ALLOW_DIAGNOSTICS
559    C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
560          IF ( useDiagnostics ) THEN
561    # ifdef ALLOW_DEBUG
562            IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid)
563    # endif
564            CALL DIAGNOSTICS_INIT_FIXED( myThid )
565          ENDIF
566    #endif
567    
568    #ifdef ALLOW_DEBUG
569          IF (debugMode) CALL DEBUG_LEAVE('PACKAGES_INIT_FIXED',myThid)
570    #endif
571    
572        RETURN        RETURN
573        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.76
  ViewVC Help
Powered by ViewVC 1.1.22