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

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

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

Revision 1.1 - (hide annotations) (download)
Sun Apr 3 05:16:44 2005 UTC (19 years, 1 month ago) by edhill
Branch: MAIN
CVS Tags: checkpoint57o_post, checkpoint57m_post, checkpoint57k_post, checkpoint57g_post, checkpoint57i_post, checkpoint57g_pre, checkpoint57f_pre, checkpoint57h_done, checkpoint57n_post, checkpoint57p_post, checkpoint57f_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post 
 o mnc-ifying the seaice package
1 edhill 1.1 C $Header: $
2     C $Name: $
3    
4     #include "SEAICE_OPTIONS.h"
5    
6     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7     CBOP
8     C !ROUTINE: SEAICE_MNC_INIT
9    
10     C !INTERFACE:
11     SUBROUTINE SEAICE_MNC_INIT( myThid )
12    
13     C !DESCRIPTION:
14     C Initialize SEAICE variables within MNC
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_SEAICE
27     #ifdef ALLOW_MNC
28     IF (useMNC) THEN
29    
30     CALL MNC_CW_ADD_VNAME('UWIND', 'U_xy_Hn__-__t', 3,4, myThid)
31     CALL MNC_CW_ADD_VATTR_TEXT('UWIND','units','m/s', myThid)
32     CALL MNC_CW_ADD_VATTR_TEXT('UWIND','description',
33     & 'Surface (10m) zonal wind velocity', myThid)
34    
35     CALL MNC_CW_ADD_VNAME('VWIND', 'V_xy_Hn__-__t', 3,4, myThid)
36     CALL MNC_CW_ADD_VATTR_TEXT('VWIND','units','m/s', myThid)
37     CALL MNC_CW_ADD_VATTR_TEXT('VWIND','description',
38     & 'Surface (10m) meridional wind velocity', myThid)
39    
40     CALL MNC_CW_ADD_VNAME('EVAP', 'Cen_xy_Hn__-__t', 3,4,myThid)
41     CALL MNC_CW_ADD_VATTR_TEXT('EVAP','units','m/s', myThid)
42     CALL MNC_CW_ADD_VATTR_TEXT('EVAP','description',
43     & 'Evaporation', myThid)
44    
45     CALL MNC_CW_ADD_VNAME('PRECIP', 'Cen_xy_Hn__-__t', 3,4,myThid)
46     CALL MNC_CW_ADD_VATTR_TEXT('PRECIP','units','m/s', myThid)
47     CALL MNC_CW_ADD_VATTR_TEXT('PRECIP','description',
48     & 'Precipitation', myThid)
49    
50     CALL MNC_CW_ADD_VNAME('RUNOFF', 'Cen_xy_Hn__-__t', 3,4,myThid)
51     CALL MNC_CW_ADD_VATTR_TEXT('RUNOFF','units','m/s', myThid)
52     CALL MNC_CW_ADD_VATTR_TEXT('RUNOFF','description',
53     & 'River and glacier runoff', myThid)
54    
55     CALL MNC_CW_ADD_VNAME('ATEMP', 'Cen_xy_Hn__-__t', 3,4,myThid)
56     CALL MNC_CW_ADD_VATTR_TEXT('ATEMP','units','deg K', myThid)
57     CALL MNC_CW_ADD_VATTR_TEXT('ATEMP','description',
58     & 'Surface (2m) air temperature', myThid)
59    
60     CALL MNC_CW_ADD_VNAME('AQH', 'Cen_xy_Hn__-__t', 3,4,myThid)
61     CALL MNC_CW_ADD_VATTR_TEXT('AQH','units','kg/kg', myThid)
62     CALL MNC_CW_ADD_VATTR_TEXT('AQH','description',
63     & 'Surface (2m) specific humidity', myThid)
64    
65     CALL MNC_CW_ADD_VNAME('SWDOWN', 'Cen_xy_Hn__-__t', 3,4,myThid)
66     CALL MNC_CW_ADD_VATTR_TEXT('SWDOWN','units','W/m^2', myThid)
67     CALL MNC_CW_ADD_VATTR_TEXT('SWDOWN','description',
68     & 'Downward shortwave radiation', myThid)
69    
70     CALL MNC_CW_ADD_VNAME('LWDOWN', 'Cen_xy_Hn__-__t', 3,4,myThid)
71     CALL MNC_CW_ADD_VATTR_TEXT('LWDOWN','units','W/m^2', myThid)
72     CALL MNC_CW_ADD_VATTR_TEXT('LWDOWN','description',
73     & 'Downward longwave radiation', myThid)
74    
75     C Time averages
76     CALL MNC_CW_ADD_VNAME('UICEtave', 'U_xy_Hn__-__t', 3,4,myThid)
77     CALL MNC_CW_ADD_VATTR_TEXT('UICEtave','units','m/s', myThid)
78     CALL MNC_CW_ADD_VATTR_TEXT('UICEtave','description',
79     & 'Time-averaged ', myThid)
80    
81     CALL MNC_CW_ADD_VNAME('VICEtave', 'V_xy_Hn__-__t', 3,4,myThid)
82     CALL MNC_CW_ADD_VATTR_TEXT('VICEtave','units','m/s', myThid)
83     CALL MNC_CW_ADD_VATTR_TEXT('VICEtave','description',
84     & 'Time-averaged ', myThid)
85    
86     CALL MNC_CW_ADD_VNAME('FUtave', 'U_xy_Hn__-__t', 3,4,myThid)
87     CALL MNC_CW_ADD_VATTR_TEXT('FUtave','units','N/m^2', myThid)
88     CALL MNC_CW_ADD_VATTR_TEXT('FUtave','description',
89     & 'Time-averaged zonal surface wind stress', myThid)
90    
91     CALL MNC_CW_ADD_VNAME('FVtave', 'V_xy_Hn__-__t', 3,4,myThid)
92     CALL MNC_CW_ADD_VATTR_TEXT('FVtave','units','N/m^2', myThid)
93     CALL MNC_CW_ADD_VATTR_TEXT('FVtave','description',
94     & 'Time-averaged Meridional surface wind stress', myThid)
95    
96     CALL MNC_CW_ADD_VNAME('EmPmRtave','Cen_xy_Hn__-__t',3,4,myThid)
97     CALL MNC_CW_ADD_VATTR_TEXT('EmPmRtave','units','m/s', myThid)
98     CALL MNC_CW_ADD_VATTR_TEXT('EmPmRtave','description',
99     & 'Time-averaged net upward freshwater flux', myThid)
100    
101     CALL MNC_CW_ADD_VNAME('QNETtave','Cen_xy_Hn__-__t',3,4,myThid)
102     CALL MNC_CW_ADD_VATTR_TEXT('QNETtave','units','W/m^2', myThid)
103     CALL MNC_CW_ADD_VATTR_TEXT('QNETtave','description',
104     & 'Time-averaged net upward surface heat flux', myThid)
105    
106     CALL MNC_CW_ADD_VNAME('QSWtave', 'Cen_xy_Hn__-__t', 3,4,myThid)
107     CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','units','W/m^2', myThid)
108     CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','description',
109     & 'Time-averaged net upward shortwave radiation', myThid)
110    
111     CALL MNC_CW_ADD_VNAME('HEFFtave', 'Cen_xy_Hn__-__t', 3,4,myThid)
112     CALL MNC_CW_ADD_VATTR_TEXT('HEFFtave','units','m', myThid)
113     CALL MNC_CW_ADD_VATTR_TEXT('HEFFtave','description',
114     & 'Time-averaged effective ice thickness', myThid)
115    
116     CALL MNC_CW_ADD_VNAME('AREAtave', 'Cen_xy_Hn__-__t', 3,4,myThid)
117     CALL MNC_CW_ADD_VATTR_TEXT('AREAtave','units','m^2/m^2', myThid)
118     CALL MNC_CW_ADD_VATTR_TEXT('AREAtave','description',
119     & 'Time-averaged fractional ice-covered area', myThid)
120    
121     ENDIF
122     #endif /* ALLOW_MNC */
123     #endif /* ALLOW_SEAICE */
124    
125     RETURN
126     END
127    
  ViewVC Help
Powered by ViewVC 1.1.22