/[MITgcm]/MITgcm/pkg/ocn_compon_interf/ocn_import_fields.F
ViewVC logotype

Diff of /MITgcm/pkg/ocn_compon_interf/ocn_import_fields.F

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

revision 1.2 by jscott, Thu May 10 21:15:52 2007 UTC revision 1.3 by jmc, Fri Dec 25 19:45:13 2009 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CStartOfInterface  CBOP 0
8    C !ROUTINE: OCN_IMPORT_FIELDS
9    
10    C !INTERFACE:
11        SUBROUTINE OCN_IMPORT_FIELDS( myThid )        SUBROUTINE OCN_IMPORT_FIELDS( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE OCN_IMPORT_FIELDS                             |  
 C     | o Routine for importing fields (e.g. surface fluxes)     |  
 C     |   from coupling layer.                                   |  
 C     |==========================================================|  
 C     | This version talks to the MIT Coupler. It uses the       |  
 C     | MIT Coupler "checkpoint 1" library calls.                |  
 C     \==========================================================/  
       IMPLICIT NONE  
12    
13    C !DESCRIPTION:
14    C     *==========================================================*
15    C     | SUBROUTINE OCN_IMPORT_FIELDS
16    C     | o Routine for importing fields (e.g. surface fluxes)
17    C     |   from coupling layer.
18    C     *==========================================================*
19    C     | This version talks to the MIT Coupler. It uses the
20    C     | MIT Coupler "checkpoint 1" library calls.
21    C     *==========================================================*
22    
23    C !USES:
24          IMPLICIT NONE
25  C     == Global variables ==  C     == Global variables ==
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "OCNIDS.h"  #include "OCNIDS.h"
29  #include "OCNCPL.h"  #include "OCNCPL.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 :: Thread number for this instance of the routine
34        INTEGER myThid        INTEGER myThid
35  CEndOfInterface  CEOP
36    
37    #ifdef COMPONENT_MODULE
38    C !LOCAL VARIABLES:
39    
40  C  Note: 1) all fields will have been gridded onto ocean grid.  C  Note: 1) all fields will have been gridded onto ocean grid.
41  C        2) MIT Coupler checkpoint1 does not allow asynchronous posting of  C        2) MIT Coupler checkpoint1 does not allow asynchronous posting of
42  C          data, so ordering has to be consistent with coupling layer ordering  C          data, so ordering has to be consistent with coupling layer ordering
43    
44          _BARRIER
45          _BEGIN_MASTER( myThid )
46    
47  C-    Receive Atmospheric Sea-Level pressure from coupling layer.  C-    Receive Atmospheric Sea-Level pressure from coupling layer.
48        CALL COMPRECV_R8TILES( ocnSLPrName,        CALL COMPRECV_R8TILES( ocnSLPrName,
49       I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,       I                       sNx, OLx, sNy, OLy, 1, nSx, nSy,
# Line 88  C-      Receive seaice fraction from cou Line 101  C-      Receive seaice fraction from cou
101       O                       fracIce )       O                       fracIce )
102        ENDIF        ENDIF
103    
104          _END_MASTER( myThid )
105          _BARRIER
106    
107    #endif /* COMPONENT_MODULE */
108    
109        RETURN        RETURN
110        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22