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

Contents 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 - (show annotations) (download)
Wed Jan 6 00:32:11 2016 UTC (8 years, 4 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 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 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
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 IMPLICIT NONE
24
25 C == Global variables ==
26 #include "CPL_PARAMS.h"
27 #include "OCNSIZE.h"
28 #include "OCNVARS.h"
29 #include "OCNIDS.h"
30
31 C !INPUT/OUTPUT PARAMETERS:
32 C msgUnit :: log-file I/O unit
33 C iter :: current iteration number
34 INTEGER msgUnit, iter
35
36 C !LOCAL VARIABLES:
37 CEOP
38
39 C Receive Ocean mixed-layer depths from ocean component
40 CALL COUPRECV_R8TILES( ocnCompName, ocnMxlDName,
41 I Nx_ocn, Ny_ocn,
42 O OcMxlD_ocn )
43
44 C Receive sea surface temperature from ocean component
45 CALL COUPRECV_R8TILES( ocnCompName, ocnSSTName,
46 I Nx_ocn, Ny_ocn,
47 O SST_ocn )
48
49 C Receive sea surface salinity from ocean component
50 CALL COUPRECV_R8TILES( ocnCompName, ocnSSSName,
51 I Nx_ocn, Ny_ocn,
52 O SSS_ocn )
53
54 C Receive sea surface velocity square from ocean component
55 CALL COUPRECV_R8TILES( ocnCompName, ocnSSVsqName,
56 I Nx_ocn, Ny_ocn,
57 O vSq_ocn )
58
59 IF ( MOD(cpl_exchange_DIC,2).EQ.1 ) THEN
60 C Receive ocn->atm flux of CO2 from ocean component
61 CALL COUPRECV_R8TILES( ocnCompName, ocnCO2FluxName,
62 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 ENDIF
88
89 RETURN
90 END
  ViewVC Help
Powered by ViewVC 1.1.22