Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/ini_histday.h
- Timestamp:
- Aug 17, 2006, 5:41:51 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/V3_test/libf/phylmd/ini_histday.h
r684 r704 11 11 CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) 12 12 c 13 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)14 DO i = 1, iim15 zx_lon(i,1) = rlon(i+1)16 zx_lon(i,jjmp1) = rlon(i+1)17 ENDDO13 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) 14 cym DO i = 1, iim 15 cym zx_lon(i,1) = rlon(i+1) 16 cym zx_lon(i,jjmp1) = rlon(i+1) 17 cym ENDDO 18 18 DO ll=1,klev 19 19 znivsig(ll)=float(ll) 20 20 ENDDO 21 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 22 CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 23 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 24 . nhori, nid_day) 21 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 22 cym CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 23 cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 24 cym . nhori, nid_day) 25 26 CALL histbeg_phy("histday",itau_phy, zjulian, dtime, 27 . nhori, nid_day) 28 29 write(*,*)'Journee ', itau_phy, zjulian 25 30 CALL histvert(nid_day, "presnivs", "Vertical levels", "mb", 26 31 . klev, presnivs/100., nvert) … … 29 34 c 30 35 CALL histdef(nid_day, "phis", "Surface geop. height", "m2/s2", 31 . iim,jj mp1,nhori, 1,1,1, -99, 32,36 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 32 37 . "once", zstophy,zout) 33 38 c 34 39 CALL histdef(nid_day, "aire", "Grid area", "-", 35 . iim,jj mp1,nhori, 1,1,1, -99, 32,40 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 36 41 . "once", zstophy,zout) 37 42 c 38 43 CALL histdef(nid_day, "contfracATM","% sfce ter+lic ","-", 39 . iim,jj mp1,nhori, 1,1,1, -99, 32,44 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 40 45 . "once", zstophy,zout) 41 46 c 42 47 CALL histdef(nid_day, "contfracOR","% sfce terre OR", "-", 43 . iim,jj mp1,nhori, 1,1,1, -99, 32,48 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 44 49 . "once", zstophy,zout) 45 50 c … … 47 52 c 48 53 CALL histdef(nid_day, "tsol", "Surface Temperature", "K", 49 . iim,jj mp1,nhori, 1,1,1, -99, 32,54 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 50 55 . "ave(X)", zstophy,zout) 51 56 c 52 57 CALL histdef(nid_day, "t2m", "Temperature 2m", "K", 53 . iim,jj mp1,nhori, 1,1,1, -99, 32,54 . "ave(X)", zstophy,zout) 55 c 56 c Champs retires momentann éement en attendant un hypothetique58 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 59 . "ave(X)", zstophy,zout) 60 c 61 c Champs retires momentann�ment en attendant un hypothetique 57 62 c debugage 58 63 59 64 CALL histdef(nid_day, "t2m_min", "Temp. 2m min.", 60 65 . "K", 61 . iim,jj mp1,nhori, 1,1,1, -99, 32,66 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 62 67 . t2mincels, zstophy,zout) 63 68 c 64 69 CALL histdef(nid_day, "t2m_max", "Temp. 2m max.", 65 70 . "K", 66 . iim,jj mp1,nhori, 1,1,1, -99, 32,71 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 67 72 . t2maxcels, zstophy,zout) 68 73 c 69 74 CALL histdef(nid_day, "plul", "Large-scale Precip.", 70 75 . "kg/(s*m2)", 71 . iim,jj mp1,nhori, 1,1,1, -99, 32,76 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 72 77 . "ave(X)", zstophy,zout) 73 78 c 74 79 CALL histdef(nid_day, "pluc", "Convective Precip.", 75 80 . "kg/(s*m2)", 76 . iim,jj mp1,nhori, 1,1,1, -99, 32,81 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 77 82 . "ave(X)", zstophy,zout) 78 83 c 79 84 CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.", 80 85 . "kg/(m2*s)", 81 . iim,jj mp1,nhori, 1,1,1, -99, 32,86 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 82 87 . "ave(X)", zstophy,zout) 83 88 c … … 85 90 CALL histdef(nid_day, "snowc", "Solid Convective Precip.", 86 91 . "kg/(m2*s)", 87 . iim,jj mp1,nhori, 1,1,1, -99, 32,92 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 88 93 . "ave(X)", zstophy,zout) 89 94 ENDIF !snowc=0. 90 95 c 91 96 CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2", 92 . iim,jj mp1,nhori, 1,1,1, -99, 32,97 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 93 98 . "ave(X)", zstophy,zout) 94 99 c 95 100 CALL histdef(nid_day, "sicf", "Sea-ice fraction", "-", 96 . iim,jj mp1,nhori, 1,1,1, -99, 32,101 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 97 102 . "inst(X)", zstoday,zout) 98 103 c 99 104 CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg", 100 . iim,jj mp1,nhori, 1,1,1, -99, 32,105 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 101 106 . "ave(X)", zstophy,zout) 102 107 c 103 108 CALL histdef(nid_day, "u10m", "Vent zonal 10m", "m/s", 104 . iim,jj mp1,nhori, 1,1,1, -99, 32,109 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 105 110 . "ave(X)", zstophy,zout) 106 111 c 107 112 CALL histdef(nid_day, "v10m", "Vent meridien 10m", "m/s", 108 . iim,jj mp1,nhori, 1,1,1, -99, 32,113 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 109 114 . "ave(X)", zstophy,zout) 110 115 c 111 116 CALL histdef(nid_day, "wind10m","10-m wind speed","m/s", 112 . iim,jj mp1,nhori, 1,1,1, -99, 32,117 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 113 118 . "ave(X)", zstophy,zout) 114 119 c 115 120 CALL histdef(nid_day, "wind10max", "10-m wind speed max.", 116 121 . "m/s", 117 . iim,jj mp1,nhori, 1,1,1, -99, 32,122 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 118 123 . t2maxcels, zstophy,zout) 119 124 c 120 125 CALL histdef(nid_day, "psol", "Surface Pressure", "Pa", 121 . iim,jj mp1,nhori, 1,1,1, -99, 32,126 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 122 127 . "ave(X)", zstophy,zout) 123 128 c 124 129 CALL histdef(nid_day, "precip","Precipitation Totale liq+sol" 125 130 . , "kg/(s*m2)", 126 . iim,jj mp1,nhori, 1,1,1, -99, 32,131 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 127 132 . "ave(X)", zstophy,zout) 128 133 c 129 134 CALL histdef(nid_day, "snowf", "Snow fall", "kg/(m2*s)", 130 . iim,jj mp1,nhori, 1,1,1, -99, 32,135 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 131 136 . "ave(X)", zstophy,zout) 132 137 c 133 138 c CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2", 134 c . iim,jj mp1,nhori, 1,1,1, -99, 32,139 c . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 135 140 c . "ave(X)", zstophy,zout) 136 141 c 137 142 CALL histdef(nid_day, "evap", "Evaporation", "kg/(m2*s)", 138 . iim,jj mp1,nhori, 1,1,1, -99, 32,143 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 139 144 . "ave(X)", zstophy,zout) 140 145 c 141 146 CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2", 142 . iim,jj mp1,nhori, 1,1,1, -99, 32,147 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 143 148 . "ave(X)", zstophy,zout) 144 149 c 145 150 CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/m2", 146 . iim,jj mp1,nhori, 1,1,1, -99, 32,151 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 147 152 . "ave(X)", zstophy,zout) 148 153 c 149 154 CALL histdef(nid_day, "sols", "Net Solar rad. at surf.", 150 155 . "W/m2", 151 . iim,jj mp1,nhori, 1,1,1, -99, 32,156 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 152 157 . "ave(X)", zstophy,zout) 153 158 c 154 159 CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2", 155 . iim,jj mp1,nhori, 1,1,1, -99, 32,160 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 156 161 . "ave(X)", zstophy,zout) 157 162 c 158 163 CALL histdef(nid_day, "radsol", "Rayonnement au sol", "W/m2", 159 . iim,jj mp1,nhori, 1,1,1, -99, 32,164 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 160 165 . "ave(X)", zstophy,zout) 161 166 c 162 167 CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-", 163 . iim,jj mp1,nhori, 1,1,1, -99, 32,168 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 164 169 . "ave(X)", zstophy,zout) 165 170 c 166 171 CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-", 167 . iim,jj mp1,nhori, 1,1,1, -99, 32,172 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 168 173 . "ave(X)", zstophy,zout) 169 174 c 170 175 CALL histdef(nid_day, "cldh", "High-level cloudiness", "-", 171 . iim,jj mp1,nhori, 1,1,1, -99, 32,176 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 172 177 . "ave(X)", zstophy,zout) 173 178 c 174 179 CALL histdef(nid_day, "cldt", "Total cloudiness", "-", 175 . iim,jj mp1,nhori, 1,1,1, -99, 32,180 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 176 181 . "ave(X)", zstophy,zout) 177 182 c 178 183 CALL histdef(nid_day, "cldq", "Cloud liquid water path", 179 184 . "kg/m2", 180 . iim,jj mp1,nhori, 1,1,1, -99, 32,185 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 181 186 . "ave(X)", zstophy,zout) 182 187 c 183 188 CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2", 184 . iim,jj mp1,nhori, 1,1,1, -99, 32,189 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 185 190 . "ave(X)", zstophy,zout) 186 191 c … … 203 208 CALL histdef(nid_day, "u"//bb2, 204 209 . "Zonal wind "//bb2//"mb","m/s", 205 . iim,jj mp1,nhori, 1,1,1, -99, 32,210 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 206 211 . "inst(X)", zout,zout) 207 212 c 208 213 CALL histdef(nid_day, "v"//bb2, 209 214 . "Meridional wind "//bb2//"mb","m/s", 210 . iim,jj mp1,nhori, 1,1,1, -99, 32,215 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 211 216 . "inst(X)", zout,zout) 212 217 c … … 217 222 CALL histdef(nid_day, "w"//bb2, "Vertical wind "//bb2//"mb", 218 223 . "m/s", 219 . iim,jj mp1,nhori, 1,1,1, -99, 32,224 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 220 225 . "inst(X)", zout,zout) 221 226 c 222 227 CALL histdef(nid_day,"phi"//bb2, "Geopotential "//bb2//"mb", 223 228 . "m", 224 . iim,jj mp1,nhori, 1,1,1, -99, 32,229 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 225 230 . "inst(X)", zout,zout) 226 231 c … … 230 235 c 231 236 CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa", 232 . iim,jj mp1,nhori, 1,1,1, -99, 32,237 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 233 238 . "ave(X)", zstophy,zout) 234 239 c 235 240 CALL histdef(nid_day, "cape_max", "CAPE max.", 236 241 . "J/kg", 237 . iim,jj mp1,nhori, 1,1,1, -99, 32,242 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 238 243 . capemaxcels, zstophy,zout) 239 244 c 240 245 CALL histdef(nid_day, "solldown", "Down. IR rad. at surface", 241 . "W/m2", iim,jj mp1,nhori, 1,1,1, -99, 32,246 . "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32, 242 247 . "ave(X)", zstophy,zout) 243 248 c 244 249 CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2", 245 . iim,jj mp1,nhori, 1,1,1, -99, 32,250 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 246 251 . "ave(X)", zstophy,zout) 247 252 c 248 253 CALL histdef(nid_day, "SWdnSFC", "SWdn at surface","W/m2", 249 . iim,jj mp1,nhori, 1,1,1,-99,254 . iim,jjphy_nb,nhori, 1,1,1,-99, 250 255 . 32, "ave(X)", zstophy,zout) 251 256 c … … 257 262 CALL histdef(nid_day, "lmt_bils", 258 263 . "Bilan au sol atmosphere forcee", "W/m2", 259 . iim,jj mp1,nhori, 1,1,1, -99, 32,264 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 260 265 . "ave(X)", zstophy,zout) 261 266 c … … 264 269 CALL histdef(nid_day, "slab_bils", 265 270 . "Bilan au sol slab", "W/m2", 266 . iim,jj mp1,nhori, 1,1,1, -99, 32,271 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 267 272 . "ave(X)", zstophy,zout) 268 273 c 269 274 CALL histdef(nid_day, "tslab", "Slab SST ", "K", 270 . iim,jj mp1,nhori, 1,1,1, -99, 32,275 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 271 276 . "ave(X)", zstophy,zout) 272 277 c 273 278 CALL histdef(nid_day, "seaice", "Slab seaice", "kg/m2", 274 . iim,jj mp1,nhori, 1,1,1, -99, 32,279 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 275 280 . "ave(X)", zstophy,zout) 276 281 c 277 282 CALL histdef(nid_day, "siceh", "Slab seaice height", "m", 278 . iim,jj mp1,nhori, 1,1,1, -99, 32,283 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 279 284 . "ave(X)", zstophy,zout) 280 285 c … … 283 288 CALL histdef(nid_day, "fluxo", 284 289 . "Flux turbulents ocean-atmosphere", "W/m2", 285 . iim,jj mp1,nhori, 1,1,1, -99, 32,290 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 286 291 . "ave(X)", zstophy,zout) 287 292 c 288 293 CALL histdef(nid_day, "fluxg", 289 294 . "Flux ocean-glace de mer", "W/m2", 290 . iim,jj mp1,nhori, 1,1,1, -99, 32,295 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 291 296 . "ave(X)", zstophy,zout) 292 297 c … … 296 301 c 297 302 CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2", 298 . iim,jj mp1,nhori, 1,1,1, -99, 32,303 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 299 304 . "ave(X)", zstophy,zout) 300 305 c 301 306 CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K", 302 . iim,jj mp1,nhori, 1,1,1, -99, 32,307 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 303 308 . "ave(X)", zstophy,zout) 304 309 c … … 314 319 c 315 320 CALL histdef(nid_day, "temp", "Air temperature", "K", 316 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,321 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 317 322 . "ave(X)", zstophy,zout) 318 323 c 319 324 CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg", 320 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,325 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 321 326 . "ave(X)", zstophy,zout) 322 327 c 323 328 CALL histdef(nid_day, "geop", "Geopotential height", "m2/s2", 324 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,329 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 325 330 . "ave(X)", zstophy,zout) 326 331 c 327 332 CALL histdef(nid_day, "vitu", "Zonal wind", "m/s", 328 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,333 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 329 334 . "ave(X)", zstophy,zout) 330 335 c 331 336 CALL histdef(nid_day, "vitv", "Meridional wind", "m/s", 332 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,337 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 333 338 . "ave(X)", zstophy,zout) 334 339 c 335 340 CALL histdef(nid_day, "vitw", "Vertical wind", "m/s", 336 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,341 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 337 342 . "ave(X)", zstophy,zout) 338 343 c 339 344 CALL histdef(nid_day, "pres", "Air pressure", "Pa", 340 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,345 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 341 346 . "ave(X)", zstophy,zout) 342 347 c … … 354 359 c 355 360 CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2", 356 . iim,jj mp1,nhori, 1,1,1,-99,361 . iim,jjphy_nb,nhori, 1,1,1,-99, 357 362 . 32, "ave(X)", zstophy,zout) 358 363 c 359 364 CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2", 360 . iim,jj mp1,nhori, 1,1,1,-99,365 . iim,jjphy_nb,nhori, 1,1,1,-99, 361 366 . 32, "ave(X)", zstophy,zout) 362 367 c 363 368 CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2", 364 . iim,jj mp1,nhori, 1,1,1,-99,369 . iim,jjphy_nb,nhori, 1,1,1,-99, 365 370 . 32, "ave(X)", zstophy,zout) 366 371 c 367 372 CALL histdef(nid_day, "SWupTOAclr", 368 373 . "SWup clear sky at TOA","W/m2", 369 . iim,jj mp1,nhori, 1,1,1,-99,374 . iim,jjphy_nb,nhori, 1,1,1,-99, 370 375 . 32, "ave(X)", zstophy,zout) 371 376 372 377 CALL histdef(nid_day, "SWupSFCclr", 373 378 . "SWup clear sky at surface","W/m2", 374 . iim,jj mp1,nhori, 1,1,1,-99,379 . iim,jjphy_nb,nhori, 1,1,1,-99, 375 380 . 32, "ave(X)", zstophy,zout) 376 381 377 382 CALL histdef(nid_day, "SWdnTOAclr", 378 383 . "SWdn clear sky at TOA","W/m2", 379 . iim,jj mp1,nhori, 1,1,1,-99,384 . iim,jjphy_nb,nhori, 1,1,1,-99, 380 385 . 32, "ave(X)", zstophy,zout) 381 386 382 387 CALL histdef(nid_day, "SWdnSFCclr", 383 388 . "SWdn clear sky at surface","W/m2", 384 . iim,jj mp1,nhori, 1,1,1,-99,389 . iim,jjphy_nb,nhori, 1,1,1,-99, 385 390 . 32, "ave(X)", zstophy,zout) 386 391 c … … 388 393 CALL histdef(nid_day, "LWdnSFC", 389 394 . "LW down at surface","W/m2", 390 . iim,jj mp1,nhori, 1,1,1,-99,395 . iim,jjphy_nb,nhori, 1,1,1,-99, 391 396 . 32, "ave(X)", zstophy,zout) 392 397 c 393 398 CALL histdef(nid_day, "LWupSFC", 394 399 . "LW down at surface","W/m2", 395 . iim,jj mp1,nhori, 1,1,1,-99,400 . iim,jjphy_nb,nhori, 1,1,1,-99, 396 401 . 32, "ave(X)", zstophy,zout) 397 402 c … … 400 405 c . "Cld top pressure","mb", 401 406 . "Cld top pressure (cf ISCCP simulator)","Pa", 402 . iim,jj mp1,nhori, 1,1,1,-99,407 . iim,jjphy_nb,nhori, 1,1,1,-99, 403 408 . 32, "ave(X)", zstophy,zout) 404 409 cIM ENDIF !(iflag_con.GE.3) THEN … … 411 416 c 412 417 CALL histdef(nid_day, "tter", "Surface Temperature ter", "K", 413 . iim,jj mp1,nhori, 1,1,1, -99, 32,418 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 414 419 . "ave(X)", zstophy,zout) 415 420 c 416 421 CALL histdef(nid_day, "tlic", "Surface Temperature lic", "K", 417 . iim,jj mp1,nhori, 1,1,1, -99, 32,422 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 418 423 . "ave(X)", zstophy,zout) 419 424 c 420 425 CALL histdef(nid_day, "toce", "Surface Temperature oce", "K", 421 . iim,jj mp1,nhori, 1,1,1, -99, 32,426 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 422 427 . "ave(X)", zstophy,zout) 423 428 c 424 429 CALL histdef(nid_day, "tsic", "Surface Temperature sic", "K", 425 . iim,jj mp1,nhori, 1,1,1, -99, 32,430 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 426 431 . "ave(X)", zstophy,zout) 427 432 c 428 433 CALL histdef(nid_day, "t2mter", "Temp.tere 2m", "K", 429 . iim,jj mp1,nhori, 1,1,1, -99, 32,434 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 430 435 . "ave(X)", zstophy,zout) 431 436 c 432 437 CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K", 433 . iim,jj mp1,nhori, 1,1,1, -99, 32,438 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 434 439 . "ave(X)", zstophy,zout) 435 440 c 436 441 CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K", 437 . iim,jj mp1,nhori, 1,1,1, -99, 32,442 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 438 443 . "ave(X)", zstophy,zout) 439 444 c 440 445 CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K", 441 . iim,jj mp1,nhori, 1,1,1, -99, 32,446 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 442 447 . "ave(X)", zstophy,zout) 443 448 c 444 449 CALL histdef(nid_day, "t2mter_min", "Temp.terre 2m min.", 445 450 . "K", 446 . iim,jj mp1,nhori, 1,1,1, -99, 32,451 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 447 452 . t2mincels, zstophy,zout) 448 453 c 449 454 CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.", 450 455 . "K", 451 . iim,jj mp1,nhori, 1,1,1, -99, 32,456 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 452 457 . t2maxcels, zstophy,zout) 453 458 c 454 459 CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s", 455 . iim,jj mp1,nhori, 1,1,1, -99, 32,460 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 456 461 . "ave(X)", zstophy,zout) 457 462 c 458 463 CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s", 459 . iim,jj mp1,nhori, 1,1,1, -99, 32,464 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 460 465 . "ave(X)", zstophy,zout) 461 466 c 462 467 CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s", 463 . iim,jj mp1,nhori, 1,1,1, -99, 32,468 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 464 469 . "ave(X)", zstophy,zout) 465 470 c 466 471 CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m", 467 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,472 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 468 473 . "ave(X)", zstophy,zout) 469 474 c 470 475 CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m", 471 . "m/s", iim,jj mp1,nhori, 1,1,1, -99, 32,476 . "m/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32, 472 477 . "ave(X)", zstophy,zout) 473 478 c 474 479 CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m", 475 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,480 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 476 481 . "ave(X)", zstophy,zout) 477 482 c 478 483 CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m", 479 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,484 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 480 485 . "ave(X)", zstophy,zout) 481 486 c 482 487 CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m", 483 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,488 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 484 489 . "ave(X)", zstophy,zout) 485 490 c … … 488 493 call histdef(nid_day, "pourc_"//clnsurf(nsrf), 489 494 $ "% "//clnsurf(nsrf), "%", 490 $ iim,jj mp1,nhori, 1,1,1, -99, 32,495 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 491 496 $ "ave(X)", zstophy,zout) 492 497 C 493 498 call histdef(nid_day, "fract_"//clnsurf(nsrf), 494 499 $ "Fraction "//clnsurf(nsrf), "1", 495 $ iim,jj mp1,nhori, 1,1,1, -99, 32,500 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 496 501 $ "ave(X)", zstophy,zout) 497 502 C 498 503 call histdef(nid_day, "tsol_"//clnsurf(nsrf), 499 504 $ "Temperature "//clnsurf(nsrf), "K", 500 $ iim,jj mp1,nhori, 1,1,1, -99, 32,505 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 501 506 $ "ave(X)", zstophy,zout) 502 507 C 503 508 call histdef(nid_day, "sens_"//clnsurf(nsrf), 504 509 $ "Sensible heat flux "//clnsurf(nsrf), "W/m2", 505 $ iim,jj mp1,nhori, 1,1,1, -99, 32,510 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 506 511 $ "ave(X)", zstophy,zout) 507 512 c 508 513 call histdef(nid_day, "lat_"//clnsurf(nsrf), 509 514 $ "Latent heat flux "//clnsurf(nsrf), "W/m2", 510 $ iim,jj mp1,nhori, 1,1,1, -99, 32,515 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 511 516 $ "ave(X)", zstophy,zout) 512 517 C 513 518 call histdef(nid_day, "taux_"//clnsurf(nsrf), 514 519 $ "Zonal wind stress "//clnsurf(nsrf),"Pa", 515 $ iim,jj mp1,nhori, 1,1,1, -99, 32,520 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 516 521 $ "ave(X)", zstophy,zout) 517 522 518 523 call histdef(nid_day, "tauy_"//clnsurf(nsrf), 519 524 $ "Meridional wind stress "//clnsurf(nsrf), "Pa", 520 $ iim,jj mp1,nhori, 1,1,1, -99, 32,525 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 521 526 $ "ave(X)", zstophy,zout) 522 527 C 523 528 call histdef(nid_day, "albe_"//clnsurf(nsrf), 524 529 $ "Albedo surf. "//clnsurf(nsrf), "-", 525 $ iim,jj mp1,nhori, 1,1,1, -99, 32,530 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 526 531 $ "ave(X)", zstophy,zout) 527 532 C 528 533 call histdef(nid_day, "rugs_"//clnsurf(nsrf), 529 534 $ "Rugosite "//clnsurf(nsrf), "m", 530 $ iim,jj mp1,nhori, 1,1,1, -99, 32,535 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 531 536 $ "ave(X)", zstophy,zout) 532 537 C … … 545 550 CALL histdef(nid_day, "tops0", "CS Solar rad. at TOA", 546 551 . "W/m2", 547 . iim,jj mp1,nhori, 1,1,1, -99, 32,552 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 548 553 . "ave(X)", zstophy,zout) 549 554 c 550 555 CALL histdef(nid_day, "topl0", "CS IR rad. at TOA", 551 556 . "W/m2", 552 . iim,jj mp1,nhori, 1,1,1, -99, 32,557 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 553 558 . "ave(X)", zstophy,zout) 554 559 c 555 560 CALL histdef(nid_day, "sols0", "CS Net Solar rad. at surf.", 556 561 . "W/m2", 557 . iim,jj mp1,nhori, 1,1,1, -99, 32,562 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 558 563 . "ave(X)", zstophy,zout) 559 564 c 560 565 CALL histdef(nid_day, "soll0", "CS Net IR rad. at surface", 561 566 . "W/m2", 562 . iim,jj mp1,nhori, 1,1,1, -99, 32,567 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 563 568 . "ave(X)", zstophy,zout) 564 569 c 565 570 CALL histdef(nid_day, "rneb", "Cloud fraction", "-", 566 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,571 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 567 572 . "ave(X)", zstophy,zout) 568 573 c 569 574 CALL histdef(nid_day, "rnebcon", "Convective Cloud Fraction" 570 575 . , "-", 571 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,576 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 572 577 . "ave(X)", zstophy,zout) 573 578 c 574 579 CALL histdef(nid_day,"lwcon","Cloud liquid water content", 575 580 . "kg/kg", 576 . iim,jj mp1,nhori, klev,1,klev, nvert, 32,581 . iim,jjphy_nb,nhori, klev,1,klev, nvert, 32, 577 582 . "ave(X)", zstophy,zout) 578 583 c 579 584 CALL histdef(nid_day,"iwcon","Cloud ice water content","kg/kg", 580 . iim,jj mp1,nhori, klev,1,klev, nvert, 32,585 . iim,jjphy_nb,nhori, klev,1,klev, nvert, 32, 581 586 . "ave(X)", zstophy,zout) 582 587 c 583 588 CALL histdef(nid_day,"lwp","Cloud water path","kg/m2", 584 . iim,jj mp1,nhori, 1,1,1, -99, 32,589 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 585 590 . "ave(X)", zstophy,zout) 586 591 c 587 592 CALL histdef(nid_day,"iwp","Cloud ice water path","kg/m2", 588 . iim,jj mp1,nhori, 1,1,1, -99, 32,593 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 589 594 . "ave(X)", zstophy,zout) 590 595 c 591 596 CALL histdef(nid_day,"meantaucld", 592 597 . "ISCCP mean cloud optical thickness","1", 593 . iim,jj mp1,nhori, 1,1,1, -99, 32,598 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 594 599 . "ave(X)", zstophy,zout) 595 600 c 596 601 CALL histdef(nid_day,"cldtau","Cloud optical thickness","1", 597 . iim,jj mp1,nhori, klev,1,klev, nvert, 32,602 . iim,jjphy_nb,nhori, klev,1,klev, nvert, 32, 598 603 . "ave(X)", zstophy,zout) 599 604 c 600 605 CALL histdef(nid_day,"cldemi","Cloud optical emissivity","1", 601 . iim,jj mp1,nhori, klev,1,klev, nvert, 32,606 . iim,jjphy_nb,nhori, klev,1,klev, nvert, 32, 602 607 . "ave(X)", zstophy,zout) 603 608 c … … 605 610 c 606 611 CALL histdef(nid_day, "dtcon", "Convection dT", "K/s", 607 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,612 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 608 613 . "ave(X)", zstophy,zout) 609 614 c 610 615 CALL histdef(nid_day, "dqcon", "Convection dQ", "(kg/kg)/s", 611 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,616 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 612 617 . "ave(X)", zstophy,zout) 613 618 c 614 619 CALL histdef(nid_day, "rh2m", "Relative humidity at 2m", "%", 615 . iim,jj mp1,nhori, 1,1,1, -99, 32,620 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 616 621 . "ave(X)", zstophy,zout) 617 622 c 618 623 CALL histdef(nid_day, "qsat2m", "Saturant humidity at 2m", "%", 619 . iim,jj mp1,nhori, 1,1,1, -99, 32,624 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 620 625 . "ave(X)", zstophy,zout) 621 626 c 622 627 CALL histdef(nid_day, "tpot", 623 628 . "Surface air potential temperature", "K", 624 . iim,jj mp1,nhori, 1,1,1, -99, 32,629 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 625 630 . "ave(X)", zstophy,zout) 626 631 c 627 632 CALL histdef(nid_day, "tpote", 628 633 . "Surface air equivalent potential temperature", "K", 629 . iim,jj mp1,nhori, 1,1,1, -99, 32,634 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 630 635 . "ave(X)", zstophy,zout) 631 636 c
Note: See TracChangeset
for help on using the changeset viewer.