/[MITgcm]/MITgcm/pkg/aim_compon_interf/atm_import_fields.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_compon_interf/atm_import_fields.F

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

revision 1.1 by jmc, Fri May 21 19:59:38 2004 UTC revision 1.2 by jmc, Mon Jun 18 21:28:52 2007 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
7    C     !ROUTINE: ATM_IMPORT_FIELDS
8    C     !INTERFACE:
9        SUBROUTINE ATM_IMPORT_FIELDS( myThid )        SUBROUTINE ATM_IMPORT_FIELDS( myThid )
10  C     /==========================================================\  
11  C     | SUBROUTINE ATM_IMPORT_SST                                |  C     !DESCRIPTION: \bv
12  C     | o Routine for importing ocean surface coupling fields    |  C     *==========================================================*
13  C     |   from coupling layer.                                   |  C     | SUBROUTINE ATM_IMPORT_FIELDS
14  C     |==========================================================|  C     | o Routine for importing ocean surface coupling fields
15  C     | This version talks to the MIT Coupler. It uses the MIT   |  C     |   from coupling layer.
16  C     | Coupler "checkpoint1" library calls.                     |  C     *==========================================================*
17  C     \==========================================================/  C     | This version talks to the MIT Coupler. It uses the MIT
18    C     | Coupler "checkpoint1" library calls.
19    C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23        IMPLICIT NONE        IMPLICIT NONE
24    
25  C     == Global variables ==  C     == Global variables ==
# Line 21  C     == Global variables == Line 28  C     == Global variables ==
28  #include "ATMCPL.h"  #include "ATMCPL.h"
29  #include "ATMIDS.h"  #include "ATMIDS.h"
30    
31    C     !INPUT/OUTPUT PARAMETERS:
32  C     == Routine arguments ==  C     == Routine arguments ==
33  C     myThid - Thread number for this instance of the routine  C     myThid :: my Thread Id number
34        INTEGER myThid        INTEGER myThid
35  CEndOfInterface  CEOP
36    
37  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
38  C     == Local variables ==  C     == Local variables ==
# Line 49  C-    Receive ocean surface velocity squ Line 57  C-    Receive ocean surface velocity squ
57        CALL COMPRECV_R8TILES( atmSSVsqName,        CALL COMPRECV_R8TILES( atmSSVsqName,
58       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn )       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, vSqocn )
59    
60    C-    Receive air-sea flux of CO2
61          IF ( atmCpl_exchange_DIC ) THEN
62            CALL COMPRECV_R8TILES( atmFCO2Name,
63         I       sNx, OLx, sNy, OLy, 1, nSx, nSy, flxCO2ocn )
64          ENDIF
65    
66  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
67    
68        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22