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

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

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

Revision 1.3 - (hide annotations) (download)
Fri Dec 25 19:45:13 2009 UTC (14 years, 5 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: +32 -14 lines 
fix for multi-threaded
1 jmc 1.3 C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/ocn_import_fields.F,v 1.2 2007/05/10 21:15:52 jscott Exp $
2 jmc 1.1 C $Name: $
3    
4 jscott 1.2 #include "PACKAGES_CONFIG.h"
5 jmc 1.1 #include "CPP_OPTIONS.h"
6    
7 jmc 1.3 CBOP 0
8     C !ROUTINE: OCN_IMPORT_FIELDS
9    
10     C !INTERFACE:
11 jmc 1.1 SUBROUTINE OCN_IMPORT_FIELDS( myThid )
12 jmc 1.3
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 jmc 1.1 IMPLICIT NONE
25     C == Global variables ==
26     #include "SIZE.h"
27     #include "EEPARAMS.h"
28     #include "OCNIDS.h"
29     #include "OCNCPL.h"
30    
31 jmc 1.3 C !INPUT/OUTPUT PARAMETERS:
32 jmc 1.1 C == Routine arguments ==
33 jmc 1.3 C myThid :: Thread number for this instance of the routine
34 jmc 1.1 INTEGER myThid
35 jmc 1.3 CEOP
36    
37     #ifdef COMPONENT_MODULE
38     C !LOCAL VARIABLES:
39 jmc 1.1
40     C Note: 1) all fields will have been gridded onto ocean grid.
41 jmc 1.3 C 2) MIT Coupler checkpoint1 does not allow asynchronous posting of
42 jmc 1.1 C data, so ordering has to be consistent with coupling layer ordering
43    
44 jmc 1.3 _BARRIER
45     _BEGIN_MASTER( myThid )
46    
47 jmc 1.1 C- Receive Atmospheric Sea-Level pressure from coupling layer.
48     CALL COMPRECV_R8TILES( ocnSLPrName,
49     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
50     O atmSLPr )
51    
52     C- Receive surface heatflux from coupling layer.
53     CALL COMPRECV_R8TILES( ocnHeatFluxName,
54     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
55     O HeatFlux )
56    
57     C- Receive net shortwave radiation from coupling layer.
58     CALL COMPRECV_R8TILES( ocnQshortWaveName,
59     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
60     O qShortWave )
61    
62     C- Receive Zonal surface wind-stress from coupling layer.
63     CALL COMPRECV_R8TILES( ocnTauXName,
64     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
65     O tauX )
66    
67     C- Receive Meridional surface wind-stress from coupling layer.
68     CALL COMPRECV_R8TILES( ocnTauYName,
69     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
70     O tauY )
71    
72     C- Receive fresh water flux from coupling layer.
73     CALL COMPRECV_R8TILES( ocnFWFluxName,
74     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
75     O FWFlux )
76    
77     C- Receive salt flux (sea-ice model) from coupling layer.
78     CALL COMPRECV_R8TILES( ocnSaltFxName,
79     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
80     O iceSaltFlx )
81    
82     C- Receive sea-ice mass (sea-ice model) from coupling layer.
83     CALL COMPRECV_R8TILES( ocnSeaIceName,
84     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
85     O seaIceMass )
86    
87 jscott 1.2 IF ( ocnCpl_exchange_DIC ) THEN
88     C- Receive atmos CO2 level from coupling layer.
89     CALL COMPRECV_R8TILES( ocnAirCO2Name,
90     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
91     O airCO2 )
92    
93     C- Receive ground-level windspeed from coupling layer.
94     CALL COMPRECV_R8TILES( ocnWSpdName,
95     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
96     O surfWSpeed )
97    
98     C- Receive seaice fraction from coupling layer.
99     CALL COMPRECV_R8TILES( ocnFIceName,
100     I sNx, OLx, sNy, OLy, 1, nSx, nSy,
101     O fracIce )
102     ENDIF
103    
104 jmc 1.3 _END_MASTER( myThid )
105     _BARRIER
106    
107     #endif /* COMPONENT_MODULE */
108    
109 jmc 1.1 RETURN
110     END
  ViewVC Help
Powered by ViewVC 1.1.22