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

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

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

Revision 1.6 - (show annotations) (download)
Wed Jan 6 00:36:34 2016 UTC (10 years 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: +7 -1 lines 
- add diagnostics for all imported fields from coupler (in both OCN & ATM);
  this is entended to replace the OCN cplFldtave.* output files (not updated
  to contain new additional exchanged fields).
1 C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/cpl_init_fixed.F,v 1.5 2015/11/12 00:53:46 jmc Exp $
2 C $Name: $
3
4 #include "OCN_CPL_OPTIONS.h"
5
6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 CBOP
8 C !ROUTINE: CPL_INIT_FIXED
9
10 C !INTERFACE:
11 SUBROUTINE CPL_INIT_FIXED( myThid )
12
13 C !DESCRIPTION:
14 C Define MNC variables for use by the coupler.
15
16 C !USES:
17 IMPLICIT NONE
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21
22 C !INPUT PARAMETERS:
23 INTEGER myThid
24 CEOP
25
26 #ifdef ALLOW_MNC
27 IF (useMNC) THEN
28
29 CALL MNC_CW_ADD_VNAME('SLPtave','Cen_xy_Hn__-__t',3,4,myThid)
30 CALL MNC_CW_ADD_VATTR_TEXT('SLPtave','long_name',
31 & 'Atmospheric Sea-Level pressure', myThid)
32 CALL MNC_CW_ADD_VATTR_TEXT('SLPtave','units','N/m2', myThid)
33
34 CALL MNC_CW_ADD_VNAME('HFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
35 CALL MNC_CW_ADD_VATTR_TEXT('HFtave','long_name',
36 & 'Net surface heat-flux', myThid)
37 CALL MNC_CW_ADD_VATTR_TEXT('HFtave','units','W/m2', myThid)
38
39 CALL MNC_CW_ADD_VNAME('QSWtave','Cen_xy_Hn__-__t',3,4,myThid)
40 CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','long_name',
41 & '', myThid)
42 CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','units','W/m2', myThid)
43
44 CALL MNC_CW_ADD_VNAME('TXtave', 'Cen_xy_Hn__-__t',3,4,myThid)
45 CALL MNC_CW_ADD_VATTR_TEXT('TXtave','long_name',
46 & 'surface stress in X', myThid)
47 CALL MNC_CW_ADD_VATTR_TEXT('TXtave','units','N/m2', myThid)
48
49 CALL MNC_CW_ADD_VNAME('TYtave', 'Cen_xy_Hn__-__t',3,4,myThid)
50 CALL MNC_CW_ADD_VATTR_TEXT('TYtave','long_name',
51 & 'surface stress in Y', myThid)
52 CALL MNC_CW_ADD_VATTR_TEXT('TYtave','units','N/m2', myThid)
53
54 CALL MNC_CW_ADD_VNAME('FWtave', 'Cen_xy_Hn__-__t',3,4,myThid)
55 CALL MNC_CW_ADD_VATTR_TEXT('FWtave','long_name',
56 & 'Net fresh water flux', myThid)
57 CALL MNC_CW_ADD_VATTR_TEXT('FWtave','note',
58 & 'equals E-P-R', myThid)
59 CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid)
60
61 CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid)
62 CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','long_name',
63 & 'salt flux from sea-ice', myThid)
64 CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','psu.kg/m^2/s',
65 & myThid)
66
67 CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid)
68 CALL MNC_CW_ADD_VATTR_TEXT('SICtave','long_name',
69 & 'sea-ice mass', myThid)
70 CALL MNC_CW_ADD_VATTR_TEXT('SICtave','units','kg/m^2',myThid)
71
72 CALL MNC_CW_ADD_VNAME('MXLtave','Cen_xy_Hn__-__t',3,4,myThid)
73 CALL MNC_CW_ADD_VATTR_TEXT('MXLtave','long_name',
74 & 'Ocean mixed-layer depth', myThid)
75 CALL MNC_CW_ADD_VATTR_TEXT('MXLtave','units','m', myThid)
76
77 CALL MNC_CW_ADD_VNAME('SSTtave','Cen_xy_Hn__-__t',3,4,myThid)
78 CALL MNC_CW_ADD_VATTR_TEXT('SSTtave','long_name',
79 & 'ocean surface temperature', myThid)
80 CALL MNC_CW_ADD_VATTR_TEXT('SSTtave','units','degC', myThid)
81
82 CALL MNC_CW_ADD_VNAME('SSStave','Cen_xy_Hn__-__t',3,4,myThid)
83 CALL MNC_CW_ADD_VATTR_TEXT('SSStave','long_name',
84 & 'ocean surface salinity', myThid)
85 CALL MNC_CW_ADD_VATTR_TEXT('SSStave','units','psu', myThid)
86
87 CALL MNC_CW_ADD_VNAME('vSqtave','Cen_xy_Hn__-__t',3,4,myThid)
88 CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','long_name',
89 & 'ocean surface velocity square', myThid)
90 CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','units','m^2/s^2',myThid)
91
92 CALL MNC_CW_ADD_VNAME('aCO2tave','Cen_xy_Hn__-__t',3,4,myThid)
93 CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','long_name',
94 & 'atm CO2 level', myThid)
95 CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','units','parts',myThid)
96
97 CALL MNC_CW_ADD_VNAME('sWSpdtave','Cen_xy_Hn__-__t',3,4,myThid)
98 CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','long_name',
99 & 'surface wind speed', myThid)
100 CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','units','m/s',myThid)
101
102 CALL MNC_CW_ADD_VNAME('iceftave','Cen_xy_Hn__-__t',3,4,myThid)
103 CALL MNC_CW_ADD_VATTR_TEXT('iceftave','long_name',
104 & 'ocean seaice fraction', myThid)
105 CALL MNC_CW_ADD_VATTR_TEXT('iceftave','units','non-dim',myThid)
106
107 CALL MNC_CW_ADD_VNAME('fCO2tave','Cen_xy_Hn__-__t',3,4,myThid)
108 CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','long_name',
109 & 'ocean CO2 flux -> atm', myThid)
110 CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid)
111
112 ENDIF
113 #endif /* ALLOW_MNC */
114
115 #ifdef ALLOW_DIAGNOSTICS
116 IF ( useDiagnostics ) THEN
117 CALL CPL_DIAGNOSTICS_INIT( myThid )
118 ENDIF
119 #endif
120
121 RETURN
122 END
  ViewVC Help
Powered by ViewVC 1.1.22