/[MITgcm]/MITgcm/pkg/atm_compon_interf/atm_import_ocnconfig.F
ViewVC logotype

Contents of /MITgcm/pkg/atm_compon_interf/atm_import_ocnconfig.F

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

Revision 1.3 - (show annotations) (download)
Thu Dec 24 16:49:08 2009 UTC (14 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint65, checkpoint63, checkpoint65p, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.2: +27 -16 lines 
multi-threaded: can now reach the end of initialisation before stopping
1 C $Header: /u/gcmpack/MITgcm/pkg/aim_compon_interf/atm_import_ocnconfig.F,v 1.2 2004/05/21 20:00:48 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP 0
7 C !ROUTINE: ATM_IMPORT_OCNCONFIG
8
9 C !INTERFACE:
10 SUBROUTINE ATM_IMPORT_OCNCONFIG( myThid )
11
12 C !DESCRIPTION:
13 C *==========================================================*
14 C | SUBROUTINE ATM_IMPORT_OCNCONFIG
15 C | o Routine for importing ocean config into atmos.
16 C | component.
17 C *==========================================================*
18 C | This version talks to the MIT Coupler. It uses the
19 C | MIT Coupler "checkpoint 1" library calls.
20 C *==========================================================*
21
22 C !USES:
23 IMPLICIT NONE
24 C == Global variables ==
25 #include "SIZE.h"
26 #include "EEPARAMS.h"
27 #include "ATMIDS.h"
28 #include "ATMCPL.h"
29
30 C !INPUT/OUTPUT PARAMETERS:
31 C == Routine arguments ==
32 C myThid :: Thread number for this instance of the routine
33 INTEGER myThid
34 CEOP
35
36 #ifdef COMPONENT_MODULE
37 C == Local variables ==
38 C i,j,bi,bj - Loop counters
39 INTEGER i,j,bi,bj
40
41 C- Initialise mixed-layer depth
42 DO bj=myByLo(myThid),myByHi(myThid)
43 DO bi=myBxLo(myThid),myByLo(myThid)
44 DO j=1-Oly,sNy+Oly
45 DO i=1-Olx,sNx+Olx
46 ocMxlD (i,j,bi,bj) = 0.
47 ENDDO
48 ENDDO
49 ENDDO
50 ENDDO
51
52 C Receive ocean model configuration info.
53 C o Import ocean model mixed-layer depth
54 _BARRIER
55 _BEGIN_MASTER( myThid )
56 CALL COMPRECV_R8TILES(
57 I atmMxlDName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
58 O ocMxlD )
59 _END_MASTER( myThid )
60 _BARRIER
61
62 #endif /* COMPONENT_MODULE */
63
64 RETURN
65 END
  ViewVC Help
Powered by ViewVC 1.1.22