Changeset 471 for LMDZ.3.3/branches/rel-LF
- Timestamp:
- Sep 8, 2003, 5:16:34 PM (21 years ago)
- Location:
- LMDZ.3.3/branches/rel-LF/libf/phylmd
- Files:
-
- 2 edited
-
ini_histmth.h (modified) (8 diffs)
-
write_histmth.h (modified) (10 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmth.h
r470 r471 156 156 c . iim,jjmp1,nhori, 1,1,1, -99, 32, 157 157 c . "ave(X)", zsto,zout) 158 c IM cf JLD158 c 159 159 CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting", 160 160 . "W/m2",iim,jjmp1,nhori, 1,1,1, -99, 32, … … 191 191 $ iim,jjmp1,nhori, 1,1,1, -99, 32, 192 192 $ "ave(X)", zsto,zout) 193 c IM cf. JLD193 c 194 194 call histdef(nid_mth, "fsw_"//clnsurf(nsrf), 195 195 $ "SW "//clnsurf(nsrf), "W/m2", … … 302 302 c 303 303 c 304 CALL histdef(nid_mth, "upwd", "saturated updraft", "Kg/m2/s", 305 . iim,jjmp1,nhori, klev,1,klev,nvert, 32, 306 . "ave(X)", zsto,zout) 307 c 308 CALL histdef(nid_mth, "dnwd", "saturated downdraft","Kg/m2/s", 309 . iim,jjmp1,nhori, klev,1,klev,nvert, 32, 310 . "ave(X)", zsto,zout) 311 c 312 CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "Kg/m2/s", 313 . iim,jjmp1,nhori, klev,1,klev,nvert, 32, 314 . "ave(X)", zsto,zout) 315 c 316 CALL histdef(nid_mth,"Ma","undilute adiab updraft","Kg/m2/s", 317 . iim,jjmp1,nhori, klev,1,klev,nvert, 32, 318 . "ave(X)", zsto,zout) 319 c 320 CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2", 321 . iim,jjmp1,nhori, 1,1,1, -99, 32, 322 . "ave(X)", zsto,zout) 323 c 304 324 ENDIF 305 325 c34EK … … 338 358 . iim,jjmp1,nhori, klev,1,klev,nvert, 32, 339 359 . "ave(X)", zsto,zout) 340 c IM cf. FH360 c 341 361 CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction" 342 362 . , "-", … … 485 505 ENDIF 486 506 c 487 cKE43488 IF (iflag_con.GE.3) THEN ! (sb)489 c490 CALL histdef(nid_mth, "upwd", "saturated updraft", "Kg/m2/s",491 . iim,jjmp1,nhori, klev,1,klev,nvert, 32,492 . "ave(X)", zsto,zout)493 c494 CALL histdef(nid_mth, "dnwd", "saturated downdraft","Kg/m2/s",495 . iim,jjmp1,nhori, klev,1,klev,nvert, 32,496 . "ave(X)", zsto,zout)497 c498 CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "Kg/m2/s",499 . iim,jjmp1,nhori, klev,1,klev,nvert, 32,500 . "ave(X)", zsto,zout)501 c502 CALL histdef(nid_mth,"Ma","undilute adiab updraft","Kg/m2/s",503 . iim,jjmp1,nhori, klev,1,klev,nvert, 32,504 . "ave(X)", zsto,zout)505 cccIM506 507 CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2", 507 508 . iim,jjmp1,nhori, 1,1,1,-99, … … 519 520 . iim,jjmp1,nhori, 1,1,1,-99, 520 521 . 32, "ave(X)", zsto,zout) 521 c ccIM clear sky522 c 522 523 CALL histdef(nid_mth, "SWupTOAclr", 523 524 . "SWup clear sky at TOA","W/m2", … … 539 540 . iim,jjmp1,nhori, 1,1,1,-99, 540 541 . 32, "ave(X)", zsto,zout) 541 ENDIF542 c543 CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",544 . iim,jjmp1,nhori, 1,1,1, -99, 32,545 . "ave(X)", zsto,zout)546 542 547 543 c Champs interpolles sur des niveaux de pression … … 578 574 . iim,jjmp1,nhori, 1,1,1, -99, 32, 579 575 . "ave(X)", zsto,zout) 580 581 582 cIM ENDIF 583 c34EK 576 c 584 577 CALL histend(nid_mth) 585 578 c -
LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h
r467 r471 24 24 CALL histwrite(nid_mth,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 25 25 c 26 cccIM27 26 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d) 28 27 CALL histwrite(nid_mth,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) … … 130 129 c CALL histwrite(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 131 130 c 132 c IM cf JLD131 c 133 132 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d) 134 133 CALL histwrite(nid_mth,"ffonte",itau_w,zx_tmp_2d,iim*jjmp1, … … 166 165 CALL histwrite(nid_mth,"flw_"//clnsurf(nsrf),itau_w, 167 166 $ zx_tmp_2d,iim*jjmp1,ndex2d) 168 c IM cf. JLD167 c 169 168 zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf) 170 169 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) … … 261 260 CALL histwrite(nid_mth,"fbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 262 261 c 262 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) 263 CALL histwrite(nid_mth,"upwd",itau_w,zx_tmp_3d, 264 . iim*jjmp1*klev,ndex3d) 265 c 266 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) 267 CALL histwrite(nid_mth,"dnwd",itau_w,zx_tmp_3d, 268 . iim*jjmp1*klev,ndex3d) 269 c 270 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) 271 CALL histwrite(nid_mth,"dnwd0",itau_w,zx_tmp_3d, 272 . iim*jjmp1*klev,ndex3d) 273 c 274 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) 275 CALL histwrite(nid_mth,"Ma",itau_w,zx_tmp_3d, 276 . iim*jjmp1*klev,ndex3d) 277 c 278 CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d) 279 CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d, 280 . iim*jjmp1,ndex2d) 263 281 c 264 282 ENDIF … … 307 325 . iim*jjmp1*klev,ndex3d) 308 326 c 327 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d) 328 CALL histwrite(nid_mth,"clwcon",itau_w,zx_tmp_3d, 329 . iim*jjmp1*klev,ndex3d) 330 c 309 331 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d) 310 332 CALL histwrite(nid_mth,"oliq",itau_w,zx_tmp_3d, 311 . iim*jjmp1*klev,ndex3d)312 c313 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d)314 CALL histwrite(nid_mth,"clwcon",itau_w,zx_tmp_3d,315 333 . iim*jjmp1*klev,ndex3d) 316 334 c … … 439 457 ENDDO 440 458 ENDIF 441 cKE43 442 IF (iflag_con.GE.3) THEN ! (sb) 443 c 444 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d) 445 CALL histwrite(nid_mth,"upwd",itau_w,zx_tmp_3d, 446 . iim*jjmp1*klev,ndex3d) 447 c 448 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d) 449 CALL histwrite(nid_mth,"dnwd",itau_w,zx_tmp_3d, 450 . iim*jjmp1*klev,ndex3d) 451 c 452 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d) 453 CALL histwrite(nid_mth,"dnwd0",itau_w,zx_tmp_3d, 454 . iim*jjmp1*klev,ndex3d) 455 c 456 CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d) 457 CALL histwrite(nid_mth,"Ma",itau_w,zx_tmp_3d, 458 . iim*jjmp1*klev,ndex3d) 459 c 460 cccIM 461 c zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, klevp1) 459 c 460 c zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, klevp1) 462 461 zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 2 ) 463 462 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) … … 483 482 . iim*jjmp1,ndex2d) 484 483 c 485 CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)486 CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d,487 . iim*jjmp1,ndex2d)488 489 cccIM clear sky490 484 c zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, klevp1) 491 485 zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 2 ) … … 501 495 c 502 496 c zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1) 497 zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 2 ) 503 498 CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d) 504 499 CALL histwrite(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_2d, … … 511 506 . iim*jjmp1,ndex2d) 512 507 c 513 ENDIF514 c515 508 c Champs interpolles sur des niveaux de pression 516 509 … … 538 531 CALL gr_fi_ecrit(1, klon,iim,jjmp1, w500,zx_tmp_2d) 539 532 CALL histwrite(nid_mth,"w500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 540 541 542 543 533 c 544 534 if (ok_sync) then 545 535 call histsync(nid_mth) 546 536 endif 547 ENDIF 548 537 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.
