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

Contents 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 - (show 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 C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/aim_mnc_init.F,v 1.1 2005/06/23 20:02:50 edhill Exp $
2 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 CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','long_name','u-stress',myThid)
32 CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','Pa',myThid)
33
34 CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid)
35 CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','long_name','v-stress', myThid)
36 CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','Pa', myThid)
37
38 CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
39 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
42 CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
43 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
46 CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
47 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
50 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
58 CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
59 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
62 CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid)
63 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
66 CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid)
67 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
70 CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid)
71 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
74 CALL MNC_CW_ADD_VNAME('CLTOPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
75 CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','long_name','normalized pressure at cloud top', myThid)
76 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 CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','long_name','cloud-base mass flux', myThid)
80 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 CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','long_name','surface Drag term (= Cd*Rho*|V|) (land+sea combined)', myThid)
84 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 CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','long_name','surface wind speed', myThid)
88 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 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
94 CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
95 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
98 CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid)
99 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
102 CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid)
103 CALL MNC_CW_ADD_VATTR_TEXT('albedotave','long_name','surface albedo', myThid)
104 CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','fraction', myThid)
105
106 CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid)
107 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
110 CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid)
111 CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name','Relative Humidity', myThid)
112 CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction', myThid)
113
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