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