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

Annotation 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 - (hide annotations) (download)
Wed Jan 6 00:36:34 2016 UTC (8 years, 5 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: +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 jmc 1.6 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 edhill 1.1 C $Name: $
3    
4 jmc 1.5 #include "OCN_CPL_OPTIONS.h"
5 edhill 1.1
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 jmc 1.4
16 edhill 1.1 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 dfer 1.3 CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid)
60 jmc 1.4
61 edhill 1.1 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 jmc 1.4 CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','psu.kg/m^2/s',
65 edhill 1.1 & 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 jscott 1.2 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 edhill 1.1 ENDIF
113     #endif /* ALLOW_MNC */
114    
115 jmc 1.6 #ifdef ALLOW_DIAGNOSTICS
116     IF ( useDiagnostics ) THEN
117     CALL CPL_DIAGNOSTICS_INIT( myThid )
118     ENDIF
119     #endif
120    
121 edhill 1.1 RETURN
122     END
  ViewVC Help
Powered by ViewVC 1.1.22