/[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.33 by jmc, Mon Dec 13 22:01:50 2004 UTC revision 1.34 by jmc, Sun Dec 19 00:14:56 2004 UTC
# Line 19  C     \ev Line 19  C     \ev
19  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
20  C     PACKAGES_INIT_FIXED  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22    C       |-- DIAGNOSTICS_INIT_EARLY
23    C       |-- DIAGNOSTICS_MAIN_INIT
24    C       |
25  C       |-- GAD_INIT  C       |-- GAD_INIT
26  C       |  C       |
27  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
28  C       |  C       |
29  C       |-- FLT_INIT  C       |-- FLT_INIT
30  C       |  C       |
31    C       |-- TIMEAVE_INIT_FIXED
32    C       |
33  C       |-- ZONAL_FILT_INIT  C       |-- ZONAL_FILT_INIT
34  C       |  C       |
35    C       |-- ATM_DIAGNOSTICS_INIT
36    C       |
37  C       |-- AIM_INITIALISE  C       |-- AIM_INITIALISE
38  C       |  C       |
39  C       |-- GRIDALT_INITIALISE  C       |-- GRIDALT_INITIALISE
# Line 39  C       |-- ECCO_COST_INIT_FIXED Line 46  C       |-- ECCO_COST_INIT_FIXED
46  C       |  C       |
47  C       |-- CTRL_INIT  C       |-- CTRL_INIT
48  C       |  C       |
49    C       |-- PTRACERS_INITIALISE
50    C       |
51  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
52  C       |  C       |
53    C       |-- CD_CODE_INIT_FIXED
54    C       |
55  C       |-- OPPS_INIT  C       |-- OPPS_INIT
56  C       |  C       |
57  C       |-- DIAGNOSTICS_INITIALISE  C       |-- CPL_INIT_FIXED
58    C       |
59    C       |-- DIAGNOSTICS_INIT_FIXED
60    
61  C     !USES:  C     !USES:
62        IMPLICIT NONE        IMPLICIT NONE
# Line 99  C--   Latitude circle filter initialisat Line 112  C--   Latitude circle filter initialisat
112        ENDIF        ENDIF
113  #endif  #endif
114    
115    #ifdef ALLOW_ATM_COMMON
116    C--   Initialise parameters shared by atmospheric physics packages
117          IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN
118            CALL ATM_DIAGNOSTICS_INIT( myThid )
119          ENDIF
120    #endif
121    
122  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
123  C--   Initialise & Read AIM physical parameters  C--   Initialise & Read AIM physical parameters
124        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) CALL AIM_INITIALISE( myThid )
# Line 150  C--   Initialise the control variables Line 170  C--   Initialise the control variables
170  #endif  #endif
171    
172  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
173        IF (useCDscheme) then        IF (useCDscheme) THEN
174         call CD_CODE_INIT_FIXED(mythid)         CALL CD_CODE_INIT_FIXED(mythid)
175        ENDIF        ENDIF
176  #endif  #endif
177    
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22