/[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.17 by cheisey, Thu Nov 21 19:11:42 2002 UTC revision 1.18 by dimitri, Sat Dec 28 10:11:10 2002 UTC
# Line 22  C       |-- KPP_INIT Line 22  C       |-- KPP_INIT
22  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
23  C       |  C       |
24  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
25  C       |  C       |
26  C       |-- OBCS_INIT_VARIABLES  C       |-- OBCS_INIT_VARIABLES
27  C       |  C       |
28    C       |-- PTRACERS_INIT
29    C       |
30  C       |-- CTRL_MAP_INI  C       |-- CTRL_MAP_INI
31  C       |  C       |
32  C       |-- COST_INIT  C       |-- EXF_INIT
33    C       |
34    C       |-- INI_FORCING
35  C       |  C       |
36  C       |-- ECCO_INIT  C       |-- ECCO_INIT
37  C       |  C       |
38  C       |-- INI_FORCING  C       |-- COST_INIT
39    C       |
40    C       |-- BULKF_INIT
41    C       |
42    C       |-- ICE_INIT
43    
44  C     !USES:  C     !USES:
45        IMPLICIT NONE        IMPLICIT NONE
# Line 81  c--   Map the control variables onto the Line 89  c--   Map the control variables onto the
89        _BARRIER        _BARRIER
90  #endif  #endif
91    
92    #ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
93          CALL EXF_INIT( mythid )
94    #else
95          CALL INI_FORCING( mythid )
96    #endif
97    
98  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef INCLUDE_ECCO_PACKAGE
99        IF (useECCO) THEN        IF (useECCO) THEN
100         CALL ECCO_INIT( myThid )         CALL ECCO_INIT( myThid )
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22