/[MITgcm]/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F
ViewVC logotype

Annotation of /MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F

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

Revision 1.6 - (hide annotations) (download)
Wed Jan 6 00:32:11 2016 UTC (8 years, 8 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65s, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, HEAD
Changes since 1.5: +49 -17 lines 
- add argument msgUnit and iter number to CPL_SEND/RECV_ATM/OCN_FIELDS
  routines (useful for debug).
- only export/import optionally exchanged fields (RunOff, seaice, Salt-Plume
   flux, DIC fields) if corresponding switch is ON.
- add option to export RunOff to OCN (to use for DIC river input)
- add 2-way thSIce vars exchange to allow to use seaice dynamics in OCN
1 jmc 1.6 C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F,v 1.5 2015/11/12 00:43:34 jmc Exp $
2 jmc 1.1 C $Name: $
3    
4     #include "CPP_OPTIONS.h"
5    
6 jmc 1.6 CBOP
7     C !ROUTINE: CPL_RECV_OCN_FIELDS
8     C !INTERFACE:
9     SUBROUTINE CPL_RECV_OCN_FIELDS( msgUnit, iter )
10    
11     C !DESCRIPTION: \bv
12     C *==========================================================*
13     C | SUBROUTINE CPL_RECV_OCN_FIELDS
14     C | o Routine for receiving surface fields from ocean
15     C | component.
16     C *==========================================================*
17     C | This version talks to the MITgcm general circulation
18     C | model.
19     C *==========================================================*
20     C \ev
21    
22     C !USES:
23 jmc 1.1 IMPLICIT NONE
24    
25     C == Global variables ==
26 jmc 1.5 #include "CPL_PARAMS.h"
27 jmc 1.1 #include "OCNSIZE.h"
28     #include "OCNVARS.h"
29     #include "OCNIDS.h"
30    
31 jmc 1.6 C !INPUT/OUTPUT PARAMETERS:
32     C msgUnit :: log-file I/O unit
33     C iter :: current iteration number
34     INTEGER msgUnit, iter
35 jmc 1.1
36 jmc 1.6 C !LOCAL VARIABLES:
37     CEOP
38 jmc 1.1
39     C Receive Ocean mixed-layer depths from ocean component
40 jmc 1.5 CALL COUPRECV_R8TILES( ocnCompName, ocnMxlDName,
41     I Nx_ocn, Ny_ocn,
42 jmc 1.1 O OcMxlD_ocn )
43    
44     C Receive sea surface temperature from ocean component
45 jmc 1.5 CALL COUPRECV_R8TILES( ocnCompName, ocnSSTName,
46     I Nx_ocn, Ny_ocn,
47 jmc 1.1 O SST_ocn )
48    
49     C Receive sea surface salinity from ocean component
50 jmc 1.5 CALL COUPRECV_R8TILES( ocnCompName, ocnSSSName,
51     I Nx_ocn, Ny_ocn,
52 jmc 1.1 O SSS_ocn )
53    
54     C Receive sea surface velocity square from ocean component
55 jmc 1.5 CALL COUPRECV_R8TILES( ocnCompName, ocnSSVsqName,
56     I Nx_ocn, Ny_ocn,
57 jmc 1.1 O vSq_ocn )
58    
59 jmc 1.5 IF ( MOD(cpl_exchange_DIC,2).EQ.1 ) THEN
60 jscott 1.4 C Receive ocn->atm flux of CO2 from ocean component
61 jmc 1.5 CALL COUPRECV_R8TILES( ocnCompName, ocnCO2FluxName,
62 jmc 1.6 I Nx_ocn, Ny_ocn,
63     O fluxCO2_ocn )
64     ENDIF
65    
66     IF ( MOD(cpl_exchange2W_sIce,2).EQ.1 ) THEN
67     C- Receive seaice fraction from ocean component
68     CALL COUPRECV_R8TILES( ocnCompName, ocnSIceFracName,
69     I Nx_ocn, Ny_ocn,
70     O sIceFrac_ocn )
71     C- Receive seaice thickness from ocean component
72     CALL COUPRECV_R8TILES( ocnCompName, ocnSIceThickName,
73     I Nx_ocn, Ny_ocn,
74     O sIceThick_ocn )
75     C- Receive snow thickness from ocean component
76     CALL COUPRECV_R8TILES( ocnCompName, ocnSIceSnowName,
77     I Nx_ocn, Ny_ocn,
78     O sIceSnowH_ocn )
79     C- Receive seaice enthalpy (layer 1) from ocean component
80     CALL COUPRECV_R8TILES( ocnCompName, ocnSIceQ1Name,
81     I Nx_ocn, Ny_ocn,
82     O sIceQ1_ocn )
83     C- Receive seaice enthalpy (layer 2) from ocean component
84     CALL COUPRECV_R8TILES( ocnCompName, ocnSIceQ2Name,
85     I Nx_ocn, Ny_ocn,
86     O sIceQ2_ocn )
87 jscott 1.4 ENDIF
88    
89 jmc 1.1 RETURN
90     END
  ViewVC Help
Powered by ViewVC 1.1.22