/[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.1 by edhill, Thu Jun 23 20:02:50 2005 UTC revision 1.2 by enderton, Wed Jul 6 04:32:24 2005 UTC
# Line 28  CEOP Line 28  CEOP
28  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
29                
30        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)
31        CALL MNC_CW_ADD_VATTR_TEXT('USTRtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('VSTRtave', 'V_xy_Hn__-__t',3,4,myThid)
35        CALL MNC_CW_ADD_VATTR_TEXT('VSTRtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('TSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
39        CALL MNC_CW_ADD_VATTR_TEXT('TSRtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('OLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
43        CALL MNC_CW_ADD_VATTR_TEXT('OLRtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('SSRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
47        CALL MNC_CW_ADD_VATTR_TEXT('SSRtave','units','---', myThid)        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('STRtave', 'Cen_xy_Hn__-__t',3,4,myThid)        CALL MNC_CW_ADD_VNAME('SLRtave', 'Cen_xy_Hn__-__t',3,4,myThid)
51        CALL MNC_CW_ADD_VATTR_TEXT('STRtave','units','---', myThid)        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)
       CALL MNC_CW_ADD_VNAME('EVAPtave', 'Cen_xy_Hn__-__t',3,4,myThid)  
       CALL MNC_CW_ADD_VATTR_TEXT('EVAPtave','units','---', myThid)  
53    
54        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)
55        CALL MNC_CW_ADD_VATTR_TEXT('SHFtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('PRECNVtave', 'Cen_xy_Hn__-__t',3,4,myThid)
63        CALL MNC_CW_ADD_VATTR_TEXT('PRECNVtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('PRECLStave', 'Cen_xy_Hn__-__t',3,4,myThid)
67        CALL MNC_CW_ADD_VATTR_TEXT('PRECLStave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('CLOUDCtave', 'Cen_xy_Hn__-__t',3,4,myThid)
71        CALL MNC_CW_ADD_VATTR_TEXT('CLOUDCtave','units','---', myThid)        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)        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)        CALL MNC_CW_ADD_VATTR_TEXT('CLTOPtave','units','---', myThid)
77    
78        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)
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)        CALL MNC_CW_ADD_VATTR_TEXT('CBMFtave','units','---', myThid)
81    
82        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)
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)        CALL MNC_CW_ADD_VATTR_TEXT('DRAGtave','units','---', myThid)
85    
86        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)
87          CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','long_name','surface wind speed', myThid)
88        CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---', myThid)        CALL MNC_CW_ADD_VATTR_TEXT('aimV0tave','units','---', myThid)
89    
90        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)
91        CALL MNC_CW_ADD_VATTR_TEXT('aimT0tave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('aimQ0tave', 'Cen_xy_Hn__-__t',3,4,myThid)
95        CALL MNC_CW_ADD_VATTR_TEXT('aimQ0tave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('EnFxPrtave', 'Cen_xy_Hn__-__t',3,4,myThid)
99        CALL MNC_CW_ADD_VATTR_TEXT('EnFxPrtave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('albedotave', 'Cen_xy_Hn__-__t',3,4,myThid)
103        CALL MNC_CW_ADD_VATTR_TEXT('albedotave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('dTsurftave', 'Cen_xy_Hn__-__t',3,4,myThid)
107        CALL MNC_CW_ADD_VATTR_TEXT('dTsurftave','units','---', myThid)        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)        CALL MNC_CW_ADD_VNAME('aimRHtave', 'Cen_xy_Hn__C__t',4,5,myThid)
111        CALL MNC_CW_ADD_VATTR_TEXT('aimRHtave','units','---', myThid)        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  #endif
115    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22