/[MITgcm]/MITgcm/pkg/atm2d/cpl_recv_ocn_ocnconfig.F
ViewVC logotype

Diff of /MITgcm/pkg/atm2d/cpl_recv_ocn_ocnconfig.F

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

revision 1.2 by jmc, Mon Oct 8 23:48:28 2007 UTC revision 1.3 by jmc, Mon Dec 2 23:54:43 2013 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "ATM2D_OPTIONS.h"  #include "ATM2D_OPTIONS.h"
 #ifdef ATM2D_MPI_ON  
5    
6  CStartOfInterface  CBOP 0
7    C !ROUTINE: CPL_RECV_OCN_OCNCONFIG
8    
9    C !INTERFACE:
10        SUBROUTINE CPL_RECV_OCN_OCNCONFIG        SUBROUTINE CPL_RECV_OCN_OCNCONFIG
 C     /==========================================================\  
 C     | SUBROUTINE CPL_RECV_OCN_OCNCONFIG                        |  
 C     | o Routine for receiving ocean config into coupling level.|  
 C     |==========================================================|  
 C     | This version talks to the MITgcm general circulation     |  
 C     | model. For now just get the models depth map.            |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12    C !DESCRIPTION:
13    C     *==========================================================*
14    C     | SUBROUTINE CPL_RECV_OCN_OCNCONFIG
15    C     | o Routine for receiving ocean config into coupling level.
16    C     *==========================================================*
17    C     | This version talks to the MITgcm general circulation
18    C     | model. For now just get the models depth map.
19    C     *==========================================================*
20    
21    #ifdef ATM2D_MPI_ON
22    C !USES:
23          IMPLICIT NONE
24  C     == Global variables ==  C     == Global variables ==
25  #include "OCNSIZE.h"  #include "OCNSIZE.h"
26  #include "OCNVARS.h"  #include "OCNVARS.h"
27  #include "OCNIDS.h"  #include "OCNIDS.h"
28    c#include "CPL_PARAMS.h"
29    
30  C     == Routine arguments ==  C !INPUT/OUTPUT PARAMETERS:
   
 C     == Local variables ==  
31    
32  CEndOfInterface  C !LOCAL VARIABLES:
33          INTEGER tmpFld(1)
34    CEOP
35    
36  C     Get config from ocean component  C     Get config from ocean component
37    C     o receive number of coupler time-steps the ocean will do
38          CALL COUPRECV_I4VEC( ocnCompName,
39         I                     'nCouplingSteps', 1,
40         O                     tmpFld )
41    c     nSteps_ocn = tmpFld(1)
42    
43    C     o receive Ocean Mixed-Layer Depth
44        CALL COUPRECV_R8TILES( ocnCompName,        CALL COUPRECV_R8TILES( ocnCompName,
45       I                       ocnMxlDName, Nx_ocn, Ny_ocn,       I                       ocnMxlDName, Nx_ocn, Ny_ocn,
46       O                       OcMxlD_ocn )       O                       OcMxlD_ocn )
47    
48    #endif /* ATM2D_MPI_ON */
49    
50        RETURN        RETURN
51        END        END
 #endif  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22