/[MITgcm]/MITgcm/pkg/atm_compon_interf/cpl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/cpl_init.F

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

revision 1.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.2 by jmc, Fri Dec 25 19:43:43 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP 0
7        SUBROUTINE CPL_INIT        C !ROUTINE: CPL_INIT
8    
9    C !INTERFACE:
10          SUBROUTINE CPL_INIT
11    
12    C !DESCRIPTION:
13  C     *==========================================================*  C     *==========================================================*
14  C     | SUBROUTINE CPL_INIT                                      |  C     | SUBROUTINE CPL_INIT
15  C     | o Routine controlling coupler layer initialisation.      |  C     | o Routine controlling coupler layer initialisation.
16  C     | - Atmospheric version -                                  |  C     | - Atmospheric version -
17  C     *==========================================================*  C     *==========================================================*
18  C     | This version talks to the MIT Coupler. It uses the MIT   |  C     | This version talks to the MIT Coupler. It uses the MIT
19  C     | Coupler "checkpoint1" library calls.                     |  C     | Coupler "checkpoint1" library calls.
20  C     *==========================================================*  C     *==========================================================*
       IMPLICIT NONE  
21    
22    C !USES:
23          IMPLICIT NONE
24  C     == Global variables ==  C     == Global variables ==
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "EESUPPORT.h"  #include "EESUPPORT.h"
28  #include "ATMIDS.h"  #include "ATMIDS.h"
29    
30    C !INPUT/OUTPUT PARAMETERS:
31  C     == Routine arguments ==  C     == Routine arguments ==
32  C     myThid - Thread number for this instance of the routine  C     myThid :: Thread number for this instance of the routine
33        INTEGER myThid  c     INTEGER myThid
34  CEndOfInterface  CEOP
35    
36    C !LOCAL VARIABLES:
37    C     == Local variables ==
38    
39  C--   Initialise connection with coupler  C--   Initialise connection with coupler
40  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
41        CALL MITCOMPONENT_INIT( atmCompName, MPI_COMM_MODEL )        CALL MITCOMPONENT_INIT( atmCompName, MPI_COMM_MODEL )
42  #endif  #endif
43    
   
44        RETURN        RETURN
45        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22