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

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

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

revision 1.1 by adcroft, Tue Jan 30 21:03:00 2001 UTC revision 1.2 by adcroft, Fri Feb 2 21:04:48 2001 UTC
# Line 0  Line 1 
1    C $Header$
2    
3    #include "CPP_OPTIONS.h"
4    
5          SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
6    C     /==========================================================\
7    C     | SUBROUTINE PACKAGES_INIT_VARIABLES                       |
8    C     | o Does initialisation of package-related variable data   |
9    C     |==========================================================|
10    C     \==========================================================/
11          IMPLICIT NONE
12    
13    C     === Global variables ===
14    #include "SIZE.h"
15    #include "EEPARAMS.h"
16    #include "PARAMS.h"
17    
18    C     === Routine arguments ===
19    C     myThid -  Number of this instances
20          INTEGER myThid
21    
22    #ifdef ALLOW_GMREDI
23    C--   Initialize GM/Redi parameterization
24          IF (useGMRedi) CALL GMREDI_INIT( myThid )
25    #endif
26    
27    #ifdef ALLOW_KPP
28    C--   Initialize KPP vertical mixing scheme.
29          IF (useKPP) THEN
30           CALL KPP_INIT( myThid )
31           CALL KPP_OPEN_DIAGS( myThid )
32          ENDIF
33    #endif
34    
35    #ifdef ALLOW_OBCS
36    C--   Open boundaries data
37          IF (useOBCS) THEN
38            CALL OBCS_INIT_VARIABLES( myThid )
39          ENDIF
40    #endif
41    
42    #ifdef INCLUDE_ECCO_PACKAGE
43          IF (useECCO) THEN
44           CALL ECCO_INIT( myThid )
45          ENDIF
46    #else
47          CALL INI_FORCING( myThid )
48    #endif
49    
50    
51          RETURN
52          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22