/[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.2 by jmc, Fri Dec 25 19:43:43 2009 UTC revision 1.3 by jmc, Mon Dec 2 21:41:59 2013 UTC
# Line 28  C     == Global variables == Line 28  C     == Global variables ==
28  #include "ATMIDS.h"  #include "ATMIDS.h"
29    
30  C !INPUT/OUTPUT PARAMETERS:  C !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==  
31  C     myThid :: Thread number for this instance of the routine  C     myThid :: Thread number for this instance of the routine
32  c     INTEGER myThid  c     INTEGER myThid
33  CEOP  CEOP
34    
35    #ifdef COMPONENT_MODULE
36  C !LOCAL VARIABLES:  C !LOCAL VARIABLES:
37  C     == Local variables ==  C     msgUnit  :: log-file I/O unit
38          INTEGER msgUnit
39    
40  C--   Initialise connection with coupler  C--   Initialise connection with coupler
41  #ifdef COMPONENT_MODULE        CALL MITCOMPONENT_INIT(
42        CALL MITCOMPONENT_INIT( atmCompName, MPI_COMM_MODEL )       I                  atmCompName,
43         O                  MPI_COMM_MODEL, msgUnit )
44  #endif  #endif
45    
46        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22