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

Contents of /MITgcm/pkg/ocn_compon_interf/ocn_import_atmconfig.F

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


Revision 1.3 - (show annotations) (download)
Mon Dec 2 22:16:19 2013 UTC (10 years, 7 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint65, checkpoint65p, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e
Changes since 1.2: +3 -3 lines
- Send to coupler the number of coupler time-steps to do for this run
- change the config check to test the agreement of Ocean Depth
  with ATM land/sea mask (instead of ATM orography);
   rename: atmDepthName --> atmLandName and Hatm --> landMask
- write to file the "config field" received from the other-component

1 C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/ocn_import_atmconfig.F,v 1.2 2009/12/24 16:48:30 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP 0
7 C !ROUTINE: OCN_IMPORT_ATMCONFIG
8
9 C !INTERFACE:
10 SUBROUTINE OCN_IMPORT_ATMCONFIG( myThid )
11
12 C !DESCRIPTION:
13 C *==========================================================*
14 C | SUBROUTINE OCN_IMPORT_ATMCONFIG
15 C | o Routine for importing atmos. config into ocean
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 "OCNCPL.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 C Receive atmos. model configuration info.
37 C o Import atmosphere model orography
38 _BARRIER
39 _BEGIN_MASTER( myThid )
40 CALL COMPRECV_R8TILES(
41 I atmLandName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
42 O landMask )
43 _END_MASTER( myThid )
44 _BARRIER
45
46 RETURN
47 END

  ViewVC Help
Powered by ViewVC 1.1.22