Changeset 634 for LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histday.h
- Timestamp:
- May 4, 2005, 5:11:29 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histday.h
r633 r634 13 13 CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) 14 14 c 15 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)16 DO i = 1, iim17 zx_lon(i,1) = rlon(i+1)18 zx_lon(i,jjmp1) = rlon(i+1)19 ENDDO15 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) 16 cym DO i = 1, iim 17 cym zx_lon(i,1) = rlon(i+1) 18 cym zx_lon(i,jjmp1) = rlon(i+1) 19 cym ENDDO 20 20 DO ll=1,klev 21 21 znivsig(ll)=float(ll) 22 22 ENDDO 23 CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 24 CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 25 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 26 . nhori, nid_day) 23 cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) 24 cym CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 25 cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, 26 cym . nhori, nid_day) 27 28 CALL histbeg_phy("histday",itau_phy, zjulian, dtime, 29 . nhori, nid_day) 30 27 31 write(*,*)'Journee ', itau_phy, zjulian 28 32 CALL histvert(nid_day, "presnivs", "Vertical levels", "mb", … … 32 36 c 33 37 CALL histdef(nid_day, "phis", "Surface geop. height", "-", 34 . iim,jj mp1,nhori, 1,1,1, -99, 32,38 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 35 39 . "once", zsto,zout) 36 40 c 37 41 CALL histdef(nid_day, "aire", "Grid area", "-", 38 . iim,jj mp1,nhori, 1,1,1, -99, 32,42 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 39 43 . "once", zsto,zout) 40 44 c 41 45 CALL histdef(nid_day, "contfracATM","% sfce ter+lic ","-", 42 . iim,jj mp1,nhori, 1,1,1, -99, 32,46 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 43 47 . "once", zsto,zout) 44 48 c 45 49 CALL histdef(nid_day, "contfracOR","% sfce terre OR", "-", 46 . iim,jj mp1,nhori, 1,1,1, -99, 32,50 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 47 51 . "once", zsto,zout) 48 52 c … … 50 54 c 51 55 CALL histdef(nid_day, "tsol", "Surface Temperature", "K", 52 . iim,jj mp1,nhori, 1,1,1, -99, 32,56 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 53 57 . "ave(X)", zsto,zout) 54 58 c 55 59 CALL histdef(nid_day, "t2m", "Temperature 2m", "K", 56 . iim,jj mp1,nhori, 1,1,1, -99, 32,60 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 57 61 . "ave(X)", zsto,zout) 58 62 c … … 62 66 CALL histdef(nid_day, "t2m_min", "Temp. 2m min.", 63 67 . "K", 64 . iim,jj mp1,nhori, 1,1,1, -99, 32,68 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 65 69 . t2mincels, zsto,zout) 66 70 c 67 71 CALL histdef(nid_day, "t2m_max", "Temp. 2m max.", 68 72 . "K", 69 . iim,jj mp1,nhori, 1,1,1, -99, 32,73 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 70 74 . t2maxcels, zsto,zout) 71 75 c 72 76 CALL histdef(nid_day, "plul", "Large-scale Precip.", 73 77 . "kg/(s*m2)", 74 . iim,jj mp1,nhori, 1,1,1, -99, 32,78 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 75 79 . "ave(X)", zsto,zout) 76 80 c 77 81 CALL histdef(nid_day, "pluc", "Convective Precip.", 78 82 . "kg/(s*m2)", 79 . iim,jj mp1,nhori, 1,1,1, -99, 32,83 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 80 84 . "ave(X)", zsto,zout) 81 85 c 82 86 CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.", 83 87 . "kg/(s*m2)", 84 . iim,jj mp1,nhori, 1,1,1, -99, 32,88 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 85 89 . "ave(X)", zsto,zout) 86 90 c … … 88 92 CALL histdef(nid_day, "snowc", "Solid Convective Precip.", 89 93 . "kg/(s*m2)", 90 . iim,jj mp1,nhori, 1,1,1, -99, 32,94 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 91 95 . "ave(X)", zsto,zout) 92 96 ENDIF !snowc=0. 93 97 c 94 98 CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2", 95 . iim,jj mp1,nhori, 1,1,1, -99, 32,99 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 96 100 . "ave(X)", zsto,zout) 97 101 c 98 102 CALL histdef(nid_day, "sicf", "Sea-ice fraction", "-", 99 . iim,jj mp1,nhori, 1,1,1, -99, 32,103 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 100 104 . "inst(X)", zsto1,zout) 101 105 c 102 106 CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg", 103 . iim,jj mp1,nhori, 1,1,1, -99, 32,107 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 104 108 . "ave(X)", zsto,zout) 105 109 c 106 110 CALL histdef(nid_day, "u10m", "Vent zonal 10m", "m/s", 107 . iim,jj mp1,nhori, 1,1,1, -99, 32,111 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 108 112 . "ave(X)", zsto,zout) 109 113 c 110 114 CALL histdef(nid_day, "v10m", "Vent meridien 10m", "m/s", 111 . iim,jj mp1,nhori, 1,1,1, -99, 32,115 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 112 116 . "ave(X)", zsto,zout) 113 117 c 114 118 CALL histdef(nid_day, "wind10m","10-m wind speed","m/s", 115 . iim,jj mp1,nhori, 1,1,1, -99, 32,119 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 116 120 . "ave(X)", zsto,zout) 117 121 c 118 122 CALL histdef(nid_day, "wind10max", "10-m wind speed max.", 119 123 . "m/s", 120 . iim,jj mp1,nhori, 1,1,1, -99, 32,124 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 121 125 . t2maxcels, zsto,zout) 122 126 c 123 127 CALL histdef(nid_day, "psol", "Surface Pressure", "Pa", 124 . iim,jj mp1,nhori, 1,1,1, -99, 32,128 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 125 129 . "ave(X)", zsto,zout) 126 130 c 127 131 CALL histdef(nid_day, "precip","Precipitation Totale liq+sol" 128 132 . , "kg/(s*m2)", 129 . iim,jj mp1,nhori, 1,1,1, -99, 32,133 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 130 134 . "ave(X)", zsto,zout) 131 135 c 132 136 CALL histdef(nid_day, "snowf", "Snow fall", "kg/(s*m2)", 133 . iim,jj mp1,nhori, 1,1,1, -99, 32,137 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 134 138 . "ave(X)", zsto,zout) 135 139 c 136 140 CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2", 137 . iim,jj mp1,nhori, 1,1,1, -99, 32,141 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 138 142 . "ave(X)", zsto,zout) 139 143 c 140 144 CALL histdef(nid_day, "evap", "Evaporation", "kg/(s*m2)", 141 . iim,jj mp1,nhori, 1,1,1, -99, 32,145 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 142 146 . "ave(X)", zsto,zout) 143 147 c 144 148 CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2", 145 . iim,jj mp1,nhori, 1,1,1, -99, 32,149 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 146 150 . "ave(X)", zsto,zout) 147 151 c 148 152 CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/m2", 149 . iim,jj mp1,nhori, 1,1,1, -99, 32,153 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 150 154 . "ave(X)", zsto,zout) 151 155 c 152 156 CALL histdef(nid_day, "sols", "Net Solar rad. at surf.", 153 157 . "W/m2", 154 . iim,jj mp1,nhori, 1,1,1, -99, 32,158 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 155 159 . "ave(X)", zsto,zout) 156 160 c 157 161 CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2", 158 . iim,jj mp1,nhori, 1,1,1, -99, 32,162 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 159 163 . "ave(X)", zsto,zout) 160 164 c 161 165 CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-", 162 . iim,jj mp1,nhori, 1,1,1, -99, 32,166 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 163 167 . "ave(X)", zsto,zout) 164 168 c 165 169 CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-", 166 . iim,jj mp1,nhori, 1,1,1, -99, 32,170 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 167 171 . "ave(X)", zsto,zout) 168 172 c 169 173 CALL histdef(nid_day, "cldh", "High-level cloudiness", "-", 170 . iim,jj mp1,nhori, 1,1,1, -99, 32,174 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 171 175 . "ave(X)", zsto,zout) 172 176 c 173 177 CALL histdef(nid_day, "cldt", "Total cloudiness", "-", 174 . iim,jj mp1,nhori, 1,1,1, -99, 32,178 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 175 179 . "ave(X)", zsto,zout) 176 180 c 177 181 CALL histdef(nid_day, "cldq", "Cloud liquid water path", 178 182 . "kg/m2", 179 . iim,jj mp1,nhori, 1,1,1, -99, 32,183 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 180 184 . "ave(X)", zsto,zout) 181 185 c 182 186 CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2", 183 . iim,jj mp1,nhori, 1,1,1, -99, 32,187 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 184 188 . "ave(X)", zsto,zout) 185 189 c … … 189 193 CALL histdef(nid_day, "u"//clev(k), 190 194 . "Zonal wind"//clev(k)//"mb","m/s", 191 . iim,jj mp1,nhori, 1,1,1, -99, 32,195 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 192 196 . "ave(X)", zsto,zout) 193 197 c 194 198 CALL histdef(nid_day, "v"//clev(k), 195 199 . "Meridional wind"//clev(k)//"mb","m/s", 196 . iim,jj mp1,nhori, 1,1,1, -99, 32,200 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 197 201 . "ave(X)", zsto,zout) 198 202 c … … 200 204 c 201 205 CALL histdef(nid_day, "w500", "Verical wind 500mb", "m/s", 202 . iim,jj mp1,nhori, 1,1,1, -99, 32,206 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 203 207 . "ave(X)", zsto,zout) 204 208 c 205 209 CALL histdef(nid_day,"phi500", "Geopotentiel a 500mb","m2/s2", 206 . iim,jj mp1,nhori, 1,1,1, -99, 32,210 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 207 211 . "ave(X)", zsto,zout) 208 212 c 209 213 CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa", 210 . iim,jj mp1,nhori, 1,1,1, -99, 32,214 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 211 215 . "ave(X)", zsto,zout) 212 216 c 213 217 CALL histdef(nid_day, "cape_max", "CAPE max.", 214 218 . "J/kg", 215 . iim,jj mp1,nhori, 1,1,1, -99, 32,219 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 216 220 . capemaxcels, zsto,zout) 217 221 c 218 222 CALL histdef(nid_day, "solldown", "Down. IR rad. at surface", 219 . "W/m2", iim,jj mp1,nhori, 1,1,1, -99, 32,223 . "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32, 220 224 . "ave(X)", zsto,zout) 221 225 c 222 226 CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2", 223 . iim,jj mp1,nhori, 1,1,1, -99, 32,227 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 224 228 . "ave(X)", zsto,zout) 225 229 c 226 230 CALL histdef(nid_day, "SWdnSFC", "SWdn at surface","W/m2", 227 . iim,jj mp1,nhori, 1,1,1,-99,231 . iim,jjphy_nb,nhori, 1,1,1,-99, 228 232 . 32, "ave(X)", zsto,zout) 229 233 c … … 233 237 c 234 238 CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2", 235 . iim,jj mp1,nhori, 1,1,1, -99, 32,239 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 236 240 . "ave(X)", zsto,zout) 237 241 c 238 242 CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K", 239 . iim,jj mp1,nhori, 1,1,1, -99, 32,243 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 240 244 . "ave(X)", zsto,zout) 241 245 c … … 251 255 c 252 256 CALL histdef(nid_day, "temp", "Air temperature", "K", 253 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,257 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 254 258 . "ave(X)", zsto,zout) 255 259 c 256 260 CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg", 257 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,261 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 258 262 . "ave(X)", zsto,zout) 259 263 c 260 264 CALL histdef(nid_day, "geop", "Geopotential height", "m", 261 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,265 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 262 266 . "ave(X)", zsto,zout) 263 267 c 264 268 CALL histdef(nid_day, "vitu", "Zonal wind", "m/s", 265 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,269 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 266 270 . "ave(X)", zsto,zout) 267 271 c 268 272 CALL histdef(nid_day, "vitv", "Meridional wind", "m/s", 269 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,273 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 270 274 . "ave(X)", zsto,zout) 271 275 c 272 276 CALL histdef(nid_day, "vitw", "Vertical wind", "Pa/s", 273 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,277 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 274 278 . "ave(X)", zsto,zout) 275 279 c 276 280 CALL histdef(nid_day, "pres", "Air pressure", "Pa", 277 . iim,jj mp1,nhori, klev,1,klev,nvert, 32,281 . iim,jjphy_nb,nhori, klev,1,klev,nvert, 32, 278 282 . "ave(X)", zsto,zout) 279 283 c … … 291 295 c 292 296 CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2", 293 . iim,jj mp1,nhori, 1,1,1,-99,297 . iim,jjphy_nb,nhori, 1,1,1,-99, 294 298 . 32, "ave(X)", zsto,zout) 295 299 c 296 300 CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2", 297 . iim,jj mp1,nhori, 1,1,1,-99,301 . iim,jjphy_nb,nhori, 1,1,1,-99, 298 302 . 32, "ave(X)", zsto,zout) 299 303 c 300 304 CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2", 301 . iim,jj mp1,nhori, 1,1,1,-99,305 . iim,jjphy_nb,nhori, 1,1,1,-99, 302 306 . 32, "ave(X)", zsto,zout) 303 307 c 304 308 CALL histdef(nid_day, "SWupTOAclr", 305 309 . "SWup clear sky at TOA","W/m2", 306 . iim,jj mp1,nhori, 1,1,1,-99,310 . iim,jjphy_nb,nhori, 1,1,1,-99, 307 311 . 32, "ave(X)", zsto,zout) 308 312 309 313 CALL histdef(nid_day, "SWupSFCclr", 310 314 . "SWup clear sky at surface","W/m2", 311 . iim,jj mp1,nhori, 1,1,1,-99,315 . iim,jjphy_nb,nhori, 1,1,1,-99, 312 316 . 32, "ave(X)", zsto,zout) 313 317 314 318 CALL histdef(nid_day, "SWdnTOAclr", 315 319 . "SWdn clear sky at TOA","W/m2", 316 . iim,jj mp1,nhori, 1,1,1,-99,320 . iim,jjphy_nb,nhori, 1,1,1,-99, 317 321 . 32, "ave(X)", zsto,zout) 318 322 319 323 CALL histdef(nid_day, "SWdnSFCclr", 320 324 . "SWdn clear sky at surface","W/m2", 321 . iim,jj mp1,nhori, 1,1,1,-99,325 . iim,jjphy_nb,nhori, 1,1,1,-99, 322 326 . 32, "ave(X)", zsto,zout) 323 327 c … … 329 333 c 330 334 CALL histdef(nid_day, "tter", "Surface Temperature", "K", 331 . iim,jj mp1,nhori, 1,1,1, -99, 32,335 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 332 336 . "ave(X)", zsto,zout) 333 337 c 334 338 CALL histdef(nid_day, "tlic", "Surface Temperature", "K", 335 . iim,jj mp1,nhori, 1,1,1, -99, 32,339 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 336 340 . "ave(X)", zsto,zout) 337 341 c 338 342 CALL histdef(nid_day, "toce", "Surface Temperature", "K", 339 . iim,jj mp1,nhori, 1,1,1, -99, 32,343 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 340 344 . "ave(X)", zsto,zout) 341 345 c 342 346 CALL histdef(nid_day, "tsic", "Surface Temperature", "K", 343 . iim,jj mp1,nhori, 1,1,1, -99, 32,347 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 344 348 . "ave(X)", zsto,zout) 345 349 c 346 350 CALL histdef(nid_day, "t2mter", "Temp.terre 2m", "K", 347 . iim,jj mp1,nhori, 1,1,1, -99, 32,351 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 348 352 . "ave(X)", zsto,zout) 349 353 c 350 354 CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K", 351 . iim,jj mp1,nhori, 1,1,1, -99, 32,355 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 352 356 . "ave(X)", zsto,zout) 353 357 c 354 358 CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K", 355 . iim,jj mp1,nhori, 1,1,1, -99, 32,359 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 356 360 . "ave(X)", zsto,zout) 357 361 c 358 362 CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K", 359 . iim,jj mp1,nhori, 1,1,1, -99, 32,363 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 360 364 . "ave(X)", zsto,zout) 361 365 c 362 366 CALL histdef(nid_day, "t2mter_min", "Temp.terre 2m min.", 363 367 . "K", 364 . iim,jj mp1,nhori, 1,1,1, -99, 32,368 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 365 369 . t2mincels, zsto,zout) 366 370 c 367 371 CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.", 368 372 . "K", 369 . iim,jj mp1,nhori, 1,1,1, -99, 32,373 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 370 374 . t2maxcels, zsto,zout) 371 375 c 372 376 CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s", 373 . iim,jj mp1,nhori, 1,1,1, -99, 32,377 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 374 378 . "ave(X)", zsto,zout) 375 379 c 376 380 CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s", 377 . iim,jj mp1,nhori, 1,1,1, -99, 32,381 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 378 382 . "ave(X)", zsto,zout) 379 383 c 380 384 CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s", 381 . iim,jj mp1,nhori, 1,1,1, -99, 32,385 . iim,jjphy_nb,nhori, 1,1,1, -99, 32, 382 386 . "ave(X)", zsto,zout) 383 387 c 384 388 CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m", 385 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,389 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 386 390 . "ave(X)", zsto,zout) 387 391 c 388 392 CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m", 389 . "m/s", iim,jj mp1,nhori, 1,1,1, -99, 32,393 . "m/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32, 390 394 . "ave(X)", zsto,zout) 391 395 c 392 396 CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m", 393 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,397 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 394 398 . "ave(X)", zsto,zout) 395 399 c 396 400 CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m", 397 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,401 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 398 402 . "ave(X)", zsto,zout) 399 403 c 400 404 CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m", 401 . "m/s",iim,jj mp1,nhori, 1,1,1, -99, 32,405 . "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32, 402 406 . "ave(X)", zsto,zout) 403 407 c … … 406 410 call histdef(nid_day, "pourc_"//clnsurf(nsrf), 407 411 $ "Fraction"//clnsurf(nsrf), "W/m2", 408 $ iim,jj mp1,nhori, 1,1,1, -99, 32,412 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 409 413 $ "ave(X)", zsto,zout) 410 414 C 411 415 call histdef(nid_day, "tsol_"//clnsurf(nsrf), 412 416 $ "Fraction"//clnsurf(nsrf), "W/m2", 413 $ iim,jj mp1,nhori, 1,1,1, -99, 32,417 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 414 418 $ "ave(X)", zsto,zout) 415 419 C 416 420 call histdef(nid_day, "sens_"//clnsurf(nsrf), 417 421 $ "Sensible heat flux "//clnsurf(nsrf), "W/m2", 418 $ iim,jj mp1,nhori, 1,1,1, -99, 32,422 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 419 423 $ "ave(X)", zsto,zout) 420 424 c 421 425 call histdef(nid_day, "lat_"//clnsurf(nsrf), 422 426 $ "Latent heat flux "//clnsurf(nsrf), "W/m2", 423 $ iim,jj mp1,nhori, 1,1,1, -99, 32,427 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 424 428 $ "ave(X)", zsto,zout) 425 429 C 426 430 call histdef(nid_day, "taux_"//clnsurf(nsrf), 427 431 $ "Zonal wind stress"//clnsurf(nsrf),"Pa", 428 $ iim,jj mp1,nhori, 1,1,1, -99, 32,432 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 429 433 $ "ave(X)", zsto,zout) 430 434 431 435 call histdef(nid_day, "tauy_"//clnsurf(nsrf), 432 436 $ "Meridional xind stress "//clnsurf(nsrf), "Pa", 433 $ iim,jj mp1,nhori, 1,1,1, -99, 32,437 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 434 438 $ "ave(X)", zsto,zout) 435 439 C 436 440 call histdef(nid_day, "albe_"//clnsurf(nsrf), 437 441 $ "Albedo surf. "//clnsurf(nsrf), "W/m2", 438 $ iim,jj mp1,nhori, 1,1,1, -99, 32,442 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 439 443 $ "ave(X)", zsto,zout) 440 444 C 441 445 call histdef(nid_day, "rugs_"//clnsurf(nsrf), 442 446 $ "Latent heat flux "//clnsurf(nsrf), "W/m2", 443 $ iim,jj mp1,nhori, 1,1,1, -99, 32,447 $ iim,jjphy_nb,nhori, 1,1,1, -99, 32, 444 448 $ "ave(X)", zsto,zout) 445 449 C
Note: See TracChangeset
for help on using the changeset viewer.