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

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

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

revision 1.2 by enderton, Wed Jul 6 04:32:24 2005 UTC revision 1.3 by enderton, Wed Jul 6 17:15:34 2005 UTC
# Line 25  C     !INPUT/OUTPUT PARAMETERS: Line 25  C     !INPUT/OUTPUT PARAMETERS:
25        INTEGER myThid        INTEGER myThid
26  CEOP  CEOP
27    
28    C     == Local variables ==
29          CHARACTER*55 ln_var
30    
31  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
32                
33        CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('USTRtave', 'U_xy_Hn__-__t',3,4,myThid)
34        CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','long_name','u-stress',myThid)        ln_var='u-stress'
35          CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','long_name',ln_var,myThid)
36        CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','Pa',myThid)        CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','Pa',myThid)
37    
38        CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid)
39        CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','long_name','v-stress', myThid)        ln_var='v-stress'
40          CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','long_name',ln_var, myThid)
41        CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','Pa', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','Pa', myThid)
42    
43        CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
44        CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','long_name','top-of-atm. shortwave radiation', myThid)        ln_var='top-of-atm. shortwave radiation'
45          CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','long_name',ln_var, myThid)
46        CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','units','W/m2', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','units','W/m2', myThid)
47    
48        CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
49        CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','long_name','outgoing longwave radiation', myThid)        ln_var='outgoing longwave radiation'
50          CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','long_name',ln_var, myThid)
51        CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','units','W/m2', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','units','W/m2', myThid)
52    
53        CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
54        CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','long_name','surface shortwave radiation', myThid)        ln_var='surface shortwave radiation'
55          CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','long_name',ln_var, myThid)
56        CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','units','W/m2', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','units','W/m2', myThid)
57    
58        CALL MNC_CW_ADD_VNAME('SLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('SLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
59        CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','long_name','surface longwave radiation', myThid)        ln_var='surface longwave radiation'
60          CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','long_name',ln_var,myThid)
61        CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','units','W/m2', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('SLRtave','units','W/m2', myThid)
62    
63        CALL MNC_CW_ADD_VNAME('SHFtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('SHFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
64        CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','long_name','sensible heat flux', myThid)        ln_var='sensible heat flux'
65          CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','long_name',ln_var,myThid)
66        CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','units','W/m2', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','units','W/m2', myThid)
67    
68        CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
69        CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','long_name','evaporation', myThid)        ln_var='evaporation'
70        CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','units','g/(m2 s)', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','long_name',ln_var,myThid)
71          CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','units','g/(m2 s)',myThid)
72    
73        CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid)
74        CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','long_name','convective precipitation', myThid)        ln_var='convective precipitation'
75        CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','units','g/(m2 s)', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','long_name',ln_var,myThid)
76          CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','units','g/(m2 s)',myThid)
77    
78        CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid)
79        CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','long_name','large-scale precipitation', myThid)        ln_var='large-scale precipitation'
80        CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','units','g/(m2 s)', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','long_name',ln_var,myThid)
81          CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','units','g/(m2 s)',myThid)
82    
83        CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid)
84        CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','long_name','total cloud cover', myThid)        ln_var='total cloud cover'
85        CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','units','fraction', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','long_name',ln_var,myThid)
86          CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','units','fraction',myThid)
87    
88        CALL MNC_CW_ADD_VNAME('CLTOPtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('CLTOPtave', 'Cen_xy_Hn__-__t',3,4,myThid)
89        CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','long_name','normalized pressure at cloud top', myThid)        ln_var='normalized pressure at cloud top'
90          CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','long_name',ln_var,myThid)
91        CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','units','---', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','units','---', myThid)
92    
93        CALL MNC_CW_ADD_VNAME('CBMFtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('CBMFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
94        CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','long_name','cloud-base mass flux', myThid)        ln_var='cloud-base mass flux'
95        CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','units','---', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','long_name',ln_var,myThid)
96          CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','units','---',myThid)
97    
98        CALL MNC_CW_ADD_VNAME('DRAGtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('DRAGtave', 'Cen_xy_Hn__-__t',3,4,myThid)
99        CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','long_name','surface Drag term (= Cd*Rho*|V|) (land+sea combined)', myThid)        ln_var='surface Drag term (= Cd*Rho*|V|) (land+sea combined)'
100          CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','long_name',ln_var,myThid)
101        CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','units','---', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','units','---', myThid)
102    
103        CALL MNC_CW_ADD_VNAME('aimV0tave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('aimV0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
104        CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','long_name','surface wind speed', myThid)        ln_var='surface wind speed'
105        CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','long_name',ln_var,myThid)
106          CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---',myThid)
107    
108        CALL MNC_CW_ADD_VNAME('aimT0tave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('aimT0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
109        CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','long_name','surface air absolute temp.', myThid)        ln_var='surface air absolute temp.'
110        CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','units','K', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','long_name',ln_var,myThid)
111          CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','units','K',myThid)
112    
113        CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
114        CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','long_name','surface air spec. humidity', myThid)        ln_var='surface air spec. humidity'
115        CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','units','g/kg', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','long_name',ln_var,myThid)
116          CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','units','g/kg',myThid)
117    
118        CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid)
119        CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','long_name','energy flux associated with precip. (snow, rain temp)', myThid)        ln_var='energy flux associated with precip. (snow, rain temp)'
120          CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','long_name',ln_var,myThid)
121        CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','units','W/m2', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','units','W/m2', myThid)
122    
123        CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid)
124        CALL MNC_CW_ADD_VATTR_TEXT('albedotave','long_name','surface albedo', myThid)        ln_var='surface albedo'
125        CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','fraction', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('albedotave','long_name',ln_var,myThid)
126          CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','fraction',myThid)
127    
128        CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid)
129        CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','long_name','surf. Temp change from 1 iter to the next one (>0)', myThid)        ln_var='surf. Temp change from 1 iter to the next one (>0)'
130          CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','long_name',ln_var,myThid)
131        CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','units','K', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','units','K', myThid)
132    
133        CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid)        CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid)
134        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name','Relative Humidity', myThid)        ln_var='Relative Humidity'
135        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','long_name',ln_var,myThid)
136          CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','fraction',myThid)
137    
138  #endif  #endif
139    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22