/[MITgcm]/MITgcm/pkg/aim_v23/aim_mnc_init.F
ViewVC logotype

Annotation of /MITgcm/pkg/aim_v23/aim_mnc_init.F

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

Revision 1.2 - (hide annotations) (download)
Wed Jul 6 04:32:24 2005 UTC (18 years, 11 months ago) by enderton
Branch: MAIN
Changes since 1.1: +42 -21 lines 
-- fixed tave SLRtave typo bug
-- put in tave 'units' attributes
-- put in mnc tave 'long_name' attributes

Daniel
1 enderton 1.2 C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/aim_mnc_init.F,v 1.1 2005/06/23 20:02:50 edhill Exp $
2 edhill 1.1 C $Name: $
3    
4     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
5    
6     #include "AIM_OPTIONS.h"
7    
8     CBOP
9     C !ROUTINE: AIM_MNC_INIT
10    
11     C !INTERFACE:
12     SUBROUTINE AIM_MNC_INIT( myThid )
13    
14     C !DESCRIPTION:
15     C Initialize MNC variables for AIM.
16    
17     C !USES:
18     IMPLICIT NONE
19     #include "AIM_SIZE.h"
20     #include "EEPARAMS.h"
21     #include "PARAMS.h"
22     #include "AIM_PARAMS.h"
23    
24     C !INPUT/OUTPUT PARAMETERS:
25     INTEGER myThid
26     CEOP
27    
28     #ifdef ALLOW_MNC
29    
30     CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid)
31 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','long_name','u-stress',myThid)
32     CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','Pa',myThid)
33 edhill 1.1
34     CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid)
35 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','long_name','v-stress', myThid)
36     CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','Pa', myThid)
37 edhill 1.1
38     CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
39 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','long_name','top-of-atm. shortwave radiation', myThid)
40     CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','units','W/m2', myThid)
41 edhill 1.1
42     CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
43 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','long_name','outgoing longwave radiation', myThid)
44     CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','units','W/m2', myThid)
45 edhill 1.1
46     CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
47 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','long_name','surface shortwave radiation', myThid)
48     CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','units','W/m2', myThid)
49 edhill 1.1
50 enderton 1.2 CALL MNC_CW_ADD_VNAME('SLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
51     CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','long_name','surface longwave radiation', myThid)
52     CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','units','W/m2', myThid)
53    
54     CALL MNC_CW_ADD_VNAME('SHFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
55     CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','long_name','sensible heat flux', myThid)
56     CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','units','W/m2', myThid)
57 edhill 1.1
58     CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
59 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','long_name','evaporation', myThid)
60     CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','units','g/(m2 s)', myThid)
61 edhill 1.1
62     CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid)
63 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','long_name','convective precipitation', myThid)
64     CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','units','g/(m2 s)', myThid)
65 edhill 1.1
66     CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid)
67 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','long_name','large-scale precipitation', myThid)
68     CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','units','g/(m2 s)', myThid)
69 edhill 1.1
70     CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid)
71 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','long_name','total cloud cover', myThid)
72     CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','units','fraction', myThid)
73 edhill 1.1
74     CALL MNC_CW_ADD_VNAME('CLTOPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
75 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','long_name','normalized pressure at cloud top', myThid)
76 edhill 1.1 CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','units','---', myThid)
77    
78     CALL MNC_CW_ADD_VNAME('CBMFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
79 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','long_name','cloud-base mass flux', myThid)
80 edhill 1.1 CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','units','---', myThid)
81    
82     CALL MNC_CW_ADD_VNAME('DRAGtave', 'Cen_xy_Hn__-__t',3,4,myThid)
83 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','long_name','surface Drag term (= Cd*Rho*|V|) (land+sea combined)', myThid)
84 edhill 1.1 CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','units','---', myThid)
85    
86     CALL MNC_CW_ADD_VNAME('aimV0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
87 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','long_name','surface wind speed', myThid)
88 edhill 1.1 CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---', myThid)
89    
90     CALL MNC_CW_ADD_VNAME('aimT0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
91 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','long_name','surface air absolute temp.', myThid)
92     CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','units','K', myThid)
93 edhill 1.1
94     CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
95 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','long_name','surface air spec. humidity', myThid)
96     CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','units','g/kg', myThid)
97 edhill 1.1
98     CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid)
99 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','long_name','energy flux associated with precip. (snow, rain temp)', myThid)
100     CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','units','W/m2', myThid)
101 edhill 1.1
102     CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid)
103 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('albedotave','long_name','surface albedo', myThid)
104     CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','fraction', myThid)
105 edhill 1.1
106     CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid)
107 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','long_name','surf. Temp change from 1 iter to the next one (>0)', myThid)
108     CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','units','K', myThid)
109 edhill 1.1
110     CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid)
111 enderton 1.2 CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name','Relative Humidity', myThid)
112     CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction', myThid)
113 edhill 1.1
114     #endif
115    
116     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
117    
118     RETURN
119     END
  ViewVC Help
Powered by ViewVC 1.1.22