/[MITgcm]/MITgcm/pkg/seaice/seaice_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_mnc_init.F

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

revision 1.1 by edhill, Sun Apr 3 05:16:44 2005 UTC revision 1.2 by edhill, Wed Aug 10 19:18:52 2005 UTC
# Line 27  CEOP Line 27  CEOP
27  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
28        IF (useMNC) THEN        IF (useMNC) THEN
29    
30          CALL MNC_CW_ADD_VNAME('UWIND', 'U_xy_Hn__-__t', 3,4, myThid)          CALL MNC_CW_ADD_VNAME('si_UWIND','U_xy_Hn__-__t',3,4,myThid)
31          CALL MNC_CW_ADD_VATTR_TEXT('UWIND','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','units','m/s', myThid)
32                  CALL MNC_CW_ADD_VATTR_TEXT('UWIND','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_UWIND','description',
33       &       'Surface (10m) zonal wind velocity', myThid)       &       'Surface (10m) zonal wind velocity', myThid)
34    
35          CALL MNC_CW_ADD_VNAME('VWIND', 'V_xy_Hn__-__t', 3,4, myThid)          CALL MNC_CW_ADD_VNAME('si_VWIND','V_xy_Hn__-__t',3,4,myThid)
36          CALL MNC_CW_ADD_VATTR_TEXT('VWIND','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_VWIND','units','m/s', myThid)
37          CALL MNC_CW_ADD_VATTR_TEXT('VWIND','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_VWIND','description',
38       &       'Surface (10m) meridional wind velocity', myThid)       &       'Surface (10m) meridional wind velocity', myThid)
39    
40          CALL MNC_CW_ADD_VNAME('EVAP', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_EVAP','Cen_xy_Hn__-__t',3,4,myThid)
41          CALL MNC_CW_ADD_VATTR_TEXT('EVAP','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_EVAP','units','m/s', myThid)
42          CALL MNC_CW_ADD_VATTR_TEXT('EVAP','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_EVAP','description',
43       &       'Evaporation', myThid)       &       'Evaporation', myThid)
44    
45          CALL MNC_CW_ADD_VNAME('PRECIP', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_PRECIP','Cen_xy_Hn__-__t',3,4,myThid)
46          CALL MNC_CW_ADD_VATTR_TEXT('PRECIP','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_PRECIP','units','m/s', myThid)
47          CALL MNC_CW_ADD_VATTR_TEXT('PRECIP','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_PRECIP','description',
48       &       'Precipitation', myThid)       &       'Precipitation', myThid)
49    
50          CALL MNC_CW_ADD_VNAME('RUNOFF', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_RUNOFF','Cen_xy_Hn__-__t',3,4,myThid)
51          CALL MNC_CW_ADD_VATTR_TEXT('RUNOFF','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_RUNOFF','units','m/s', myThid)
52          CALL MNC_CW_ADD_VATTR_TEXT('RUNOFF','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_RUNOFF','description',
53       &       'River and glacier runoff', myThid)       &       'River and glacier runoff', myThid)
54    
55          CALL MNC_CW_ADD_VNAME('ATEMP', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_ATEMP','Cen_xy_Hn__-__t',3,4,myThid)
56          CALL MNC_CW_ADD_VATTR_TEXT('ATEMP','units','deg K', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_ATEMP','units','deg K', myThid)
57          CALL MNC_CW_ADD_VATTR_TEXT('ATEMP','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_ATEMP','description',
58       &       'Surface (2m) air temperature', myThid)       &       'Surface (2m) air temperature', myThid)
59    
60          CALL MNC_CW_ADD_VNAME('AQH', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_AQH','Cen_xy_Hn__-__t',3,4,myThid)
61          CALL MNC_CW_ADD_VATTR_TEXT('AQH','units','kg/kg', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_AQH','units','kg/kg', myThid)
62          CALL MNC_CW_ADD_VATTR_TEXT('AQH','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_AQH','description',
63       &       'Surface (2m) specific humidity', myThid)       &       'Surface (2m) specific humidity', myThid)
64    
65          CALL MNC_CW_ADD_VNAME('SWDOWN', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_SWDOWN','Cen_xy_Hn__-__t',3,4,myThid)
66          CALL MNC_CW_ADD_VATTR_TEXT('SWDOWN','units','W/m^2', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_SWDOWN','units','W/m^2', myThid)
67          CALL MNC_CW_ADD_VATTR_TEXT('SWDOWN','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_SWDOWN','description',
68       &       'Downward shortwave radiation', myThid)       &       'Downward shortwave radiation', myThid)
69    
70          CALL MNC_CW_ADD_VNAME('LWDOWN', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_LWDOWN','Cen_xy_Hn__-__t',3,4,myThid)
71          CALL MNC_CW_ADD_VATTR_TEXT('LWDOWN','units','W/m^2', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_LWDOWN','units','W/m^2', myThid)
72          CALL MNC_CW_ADD_VATTR_TEXT('LWDOWN','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_LWDOWN','description',
73       &       'Downward longwave radiation', myThid)       &       'Downward longwave radiation', myThid)
74    
75  C       Time averages  C       Time averages
76          CALL MNC_CW_ADD_VNAME('UICEtave', 'U_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_UICEtave','U_xy_Hn__-__t',3,4,myThid)
77          CALL MNC_CW_ADD_VATTR_TEXT('UICEtave','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_UICEtave','units','m/s', myThid)
78          CALL MNC_CW_ADD_VATTR_TEXT('UICEtave','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_UICEtave','description',
79       &       'Time-averaged ', myThid)       &       'Time-averaged ', myThid)
80    
81          CALL MNC_CW_ADD_VNAME('VICEtave', 'V_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_VICEtave','V_xy_Hn__-__t',3,4,myThid)
82          CALL MNC_CW_ADD_VATTR_TEXT('VICEtave','units','m/s', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_VICEtave','units','m/s', myThid)
83          CALL MNC_CW_ADD_VATTR_TEXT('VICEtave','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_VICEtave','description',
84       &       'Time-averaged ', myThid)       &       'Time-averaged ', myThid)
85    
86          CALL MNC_CW_ADD_VNAME('FUtave', 'U_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_FUtave','U_xy_Hn__-__t',3,4,myThid)
87          CALL MNC_CW_ADD_VATTR_TEXT('FUtave','units','N/m^2', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_FUtave','units','N/m^2', myThid)
88          CALL MNC_CW_ADD_VATTR_TEXT('FUtave','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_FUtave','description',
89       &       'Time-averaged zonal surface wind stress', myThid)       &       'Time-averaged zonal surface wind stress', myThid)
90    
91          CALL MNC_CW_ADD_VNAME('FVtave', 'V_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME('si_FVtave','V_xy_Hn__-__t',3,4,myThid)
92          CALL MNC_CW_ADD_VATTR_TEXT('FVtave','units','N/m^2', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_FVtave','units','N/m^2',myThid)
93          CALL MNC_CW_ADD_VATTR_TEXT('FVtave','description',          CALL MNC_CW_ADD_VATTR_TEXT('si_FVtave','description',
94       &       'Time-averaged Meridional surface wind stress', myThid)       &       'Time-averaged Meridional surface wind stress', myThid)
95    
96          CALL MNC_CW_ADD_VNAME('EmPmRtave','Cen_xy_Hn__-__t',3,4,myThid)          CALL MNC_CW_ADD_VNAME(
97          CALL MNC_CW_ADD_VATTR_TEXT('EmPmRtave','units','m/s', myThid)       &       'si_EmPmRtave','Cen_xy_Hn__-__t',3,4,myThid)
98          CALL MNC_CW_ADD_VATTR_TEXT('EmPmRtave','description',          CALL MNC_CW_ADD_VATTR_TEXT(
99         &       'si_EmPmRtave','units','m/s',myThid)
100            CALL MNC_CW_ADD_VATTR_TEXT('si_EmPmRtave','description',
101       &       'Time-averaged net upward freshwater flux', myThid)       &       'Time-averaged net upward freshwater flux', myThid)
102    
103          CALL MNC_CW_ADD_VNAME('QNETtave','Cen_xy_Hn__-__t',3,4,myThid)          CALL MNC_CW_ADD_VNAME(
104          CALL MNC_CW_ADD_VATTR_TEXT('QNETtave','units','W/m^2', myThid)       &       'si_QNETtave','Cen_xy_Hn__-__t',3,4,myThid)
105          CALL MNC_CW_ADD_VATTR_TEXT('QNETtave','description',          CALL MNC_CW_ADD_VATTR_TEXT(
106         &       'si_QNETtave','units','W/m^2', myThid)
107            CALL MNC_CW_ADD_VATTR_TEXT('si_QNETtave','description',
108       &       'Time-averaged net upward surface heat flux', myThid)       &       'Time-averaged net upward surface heat flux', myThid)
109    
110          CALL MNC_CW_ADD_VNAME('QSWtave', 'Cen_xy_Hn__-__t', 3,4,myThid)          CALL MNC_CW_ADD_VNAME(
111          CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','units','W/m^2', myThid)       &       'si_QSWtave','Cen_xy_Hn__-__t',3,4,myThid)
112          CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','description',          CALL MNC_CW_ADD_VATTR_TEXT(
113       &       'Time-averaged net upward shortwave radiation', myThid)       &       'si_QSWtave','units','W/m^2',myThid)
114            CALL MNC_CW_ADD_VATTR_TEXT('si_QSWtave','description',
115          CALL MNC_CW_ADD_VNAME('HEFFtave', 'Cen_xy_Hn__-__t', 3,4,myThid)       &       'Time-averaged net upward shortwave radiation',myThid)
116          CALL MNC_CW_ADD_VATTR_TEXT('HEFFtave','units','m', myThid)  
117          CALL MNC_CW_ADD_VATTR_TEXT('HEFFtave','description',          CALL MNC_CW_ADD_VNAME(
118       &       'Time-averaged effective ice thickness', myThid)       &       'si_HEFFtave','Cen_xy_Hn__-__t',3,4,myThid)
119            CALL MNC_CW_ADD_VATTR_TEXT(
120          CALL MNC_CW_ADD_VNAME('AREAtave', 'Cen_xy_Hn__-__t', 3,4,myThid)       &       'si_HEFFtave','units','m', myThid)
121          CALL MNC_CW_ADD_VATTR_TEXT('AREAtave','units','m^2/m^2', myThid)          CALL MNC_CW_ADD_VATTR_TEXT('si_HEFFtave','description',
122          CALL MNC_CW_ADD_VATTR_TEXT('AREAtave','description',       &       'Time-averaged effective ice thickness',myThid)
123       &       'Time-averaged fractional ice-covered area', myThid)  
124            CALL MNC_CW_ADD_VNAME(
125         &       'si_AREAtave','Cen_xy_Hn__-__t',3,4,myThid)
126            CALL MNC_CW_ADD_VATTR_TEXT(
127         &       'si_AREAtave','units','m^2/m^2',myThid)
128            CALL MNC_CW_ADD_VATTR_TEXT('si_AREAtave','description',
129         &       'Time-averaged fractional ice-covered area',myThid)
130    
131        ENDIF        ENDIF
132  #endif /*  ALLOW_MNC     */  #endif /*  ALLOW_MNC     */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22