/[MITgcm]/MITgcm/pkg/ecco/ecco_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_init.F

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

revision 1.1 by heimbach, Mon May 14 22:10:37 2001 UTC revision 1.2 by heimbach, Fri Jan 11 19:24:24 2002 UTC
# Line 3  C $Header$ Line 3  C $Header$
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
5    
6        subroutine ecco_Init(        subroutine ecco_init(
7       I                      mythid       I                      mythid
8       &                    )       &                    )
9    
10  c     ==================================================================  c     ==================================================================
11  c     SUBROUTINE ecco_Init  c     SUBROUTINE ecco_init
12  c     ==================================================================  c     ==================================================================
13  c  c
14  c     o Initialize the ECCO release of the MITgcmUV.  c     o Initialize the ECCO release of the MITgcmUV.
# Line 20  c Line 20  c
20  c     changed: Christian Eckert eckert@mit.edu  c     changed: Christian Eckert eckert@mit.edu
21  c  c
22  c     ==================================================================  c     ==================================================================
23  c     SUBROUTINE ecco_Init  c     SUBROUTINE ecco_init
24  c     ==================================================================  c     ==================================================================
25    
26        implicit none        implicit none
# Line 55  c--   Initialise the time averages. Line 55  c--   Initialise the time averages.
55        call cost_AveragesInit( mythid )        call cost_AveragesInit( mythid )
56  #endif  #endif
57    
 #ifndef INCLUDE_EXTERNAL_FORCING_PACKAGE  
       call ini_forcing( mythid )  
 #endif  
   
58  #endif  #endif
59    
60  c--   Everyone else must wait for the parameters to be loaded and  c--   Everyone else must wait for the parameters to be loaded and
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22