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

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

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

Revision 1.3 - (hide annotations) (download)
Mon Dec 2 23:54:43 2013 UTC (10 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint65, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, HEAD
Changes since 1.2: +31 -16 lines 
make similar modifs as in pkg/atm_ocn_coupler to account for changes
in pkg/compon_communic and pkg/ocn_compon_interf.
1 jmc 1.3 C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_ocnconfig.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
2 jmc 1.2 C $Name: $
3    
4 jscott 1.1 #include "ATM2D_OPTIONS.h"
5    
6 jmc 1.3 CBOP 0
7     C !ROUTINE: CPL_RECV_OCN_OCNCONFIG
8    
9     C !INTERFACE:
10 jscott 1.1 SUBROUTINE CPL_RECV_OCN_OCNCONFIG
11 jmc 1.3
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 jscott 1.1 IMPLICIT NONE
24     C == Global variables ==
25     #include "OCNSIZE.h"
26     #include "OCNVARS.h"
27     #include "OCNIDS.h"
28 jmc 1.3 c#include "CPL_PARAMS.h"
29 jscott 1.1
30 jmc 1.3 C !INPUT/OUTPUT PARAMETERS:
31 jscott 1.1
32 jmc 1.3 C !LOCAL VARIABLES:
33     INTEGER tmpFld(1)
34     CEOP
35 jscott 1.1
36 jmc 1.3 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 jscott 1.1
43 jmc 1.3 C o receive Ocean Mixed-Layer Depth
44 jmc 1.2 CALL COUPRECV_R8TILES( ocnCompName,
45     I ocnMxlDName, Nx_ocn, Ny_ocn,
46 jscott 1.1 O OcMxlD_ocn )
47    
48 jmc 1.3 #endif /* ATM2D_MPI_ON */
49    
50 jscott 1.1 RETURN
51     END
  ViewVC Help
Powered by ViewVC 1.1.22