/[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.2 by jmc, Mon Jun 18 21:28:52 2007 UTC revision 1.3 by jmc, Fri Dec 25 19:44:35 2009 UTC
# Line 35  C     myThid :: my Thread Id number Line 35  C     myThid :: my Thread Id number
35  CEOP  CEOP
36    
37  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
38    C     !LOCAL VARIABLES:
39  C     == Local variables ==  C     == Local variables ==
40    
41  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1
42  C     does not allow asynchronous extraction of data, so ordering  C     does not allow asynchronous extraction of data, so ordering
43  C     has to be consistent with ordering coupling layer.  C     has to be consistent with ordering coupling layer.
44    
45          _BARRIER
46          _BEGIN_MASTER( myThid )
47    
48  C-    Receive ocean mixed-layer thickness from coupling layer.  C-    Receive ocean mixed-layer thickness from coupling layer.
49        CALL COMPRECV_R8TILES( atmMxlDName,        CALL COMPRECV_R8TILES( atmMxlDName,
50       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, ocMxlD )       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, ocMxlD )
# Line 63  C-    Receive air-sea flux of CO2 Line 67  C-    Receive air-sea flux of CO2
67       I       sNx, OLx, sNy, OLy, 1, nSx, nSy, flxCO2ocn )       I       sNx, OLx, sNy, OLy, 1, nSx, nSy, flxCO2ocn )
68        ENDIF        ENDIF
69    
70          _END_MASTER( myThid )
71          _BARRIER
72    
73  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
74    
75        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22