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

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

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

revision 1.2 by jmc, Fri May 21 20:00:48 2004 UTC revision 1.3 by jmc, Thu Dec 24 16:49:08 2009 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP 0
7    C !ROUTINE: ATM_IMPORT_OCNCONFIG
8    
9    C !INTERFACE:
10        SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )        SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE ATM_IMPORT_OCNCONFIG                          |  
 C     | o Routine for importing ocean config into atmos.         |  
 C     |   component.                                             |  
 C     |==========================================================|  
 C     | This version talks to the MIT Coupler. It uses the       |  
 C     | MIT Coupler "checkpoint 1" library calls.                |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C !DESCRIPTION:
13    C     *==========================================================*
14    C     | SUBROUTINE ATM_IMPORT_OCNCONFIG
15    C     | o Routine for importing ocean config into atmos.
16    C     |   component.
17    C     *==========================================================*
18    C     | This version talks to the MIT Coupler. It uses the
19    C     | MIT Coupler "checkpoint 1" library calls.
20    C     *==========================================================*
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 "ATMIDS.h"  #include "ATMIDS.h"
28  #include "ATMCPL.h"  #include "ATMCPL.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        INTEGER myThid
34  CEndOfInterface  CEOP
35    
36  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
37  C     == Local variables ==  C     == Local variables ==
# Line 44  C-    Initialise mixed-layer depth Line 51  C-    Initialise mixed-layer depth
51    
52  C     Receive ocean model configuration info.  C     Receive ocean model configuration info.
53  C     o Import ocean model mixed-layer depth  C     o Import ocean model mixed-layer depth
54        CALL COMPRECV_R8TILES( atmMxlDName,        _BARRIER
55       I     sNx, OLx, sNy, OLy, 1, nSx, nSy,        _BEGIN_MASTER( myThid )
56       O     ocMxlD )        CALL COMPRECV_R8TILES(
57         I              atmMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
58         O              ocMxlD )
59          _END_MASTER( myThid )
60          _BARRIER
61    
62  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
63    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22