Changeset 440 for LMDZ.3.3/branches
- Timestamp:
- Jan 27, 2003, 11:21:49 AM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmth.h
r433 r440 60 60 . "ave(X)", zsto,zout) 61 61 c 62 CALL histdef(nid_mth, "qsol", "Surface humidity", "mm", 63 . iim,jjmp1,nhori, 1,1,1, -99, 32, 64 . "ave(X)", zsto,zout) 62 CALL histdef(nid_mth, "qsurf", "Surface Air humidity", "Kg/Kg", 63 . iim,jjmp1,nhori, 1,1,1, -99, 32, 64 . "ave(X)", zsto,zout) 65 c 66 if (.not. ok_veget) then 67 CALL histdef(nid_mth, "qsol", "Soil watter content", "mm", 68 . iim,jjmp1,nhori, 1,1,1, -99, 32, 69 . "ave(X)", zsto,zout) 70 endif 65 71 c 66 72 CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol", … … 193 199 c 194 200 call histdef(nid_mth, "albe_"//clnsurf(nsrf), 195 $ "Albedo surf. "//clnsurf(nsrf), " W/m2",201 $ "Albedo surf. "//clnsurf(nsrf), "-", 196 202 $ iim,jjmp1,nhori, 1,1,1, -99, 32, 197 203 $ "ave(X)", zsto,zout) … … 514 520 . iim,jjmp1,nhori, 1,1,1,-99, 515 521 . 32, "ave(X)", zsto,zout) 516 517 c Champs interpolles sur des niveaux de pression518 519 CALL histdef(nid_mth, "u850", "Zonal wind 850mb", "m/s",520 . iim,jjmp1,nhori, 1,1,1, -99, 32,521 . "ave(X)", zsto,zout)522 523 CALL histdef(nid_mth, "v850", "Meridional wind 850mb", "m/s",524 . iim,jjmp1,nhori, 1,1,1, -99, 32,525 . "ave(X)", zsto,zout)526 c527 CALL histdef(nid_mth, "u500", "Zonal wind 500mb", "m/s",528 . iim,jjmp1,nhori, 1,1,1, -99, 32,529 . "ave(X)", zsto,zout)530 531 CALL histdef(nid_mth, "v500", "Meridional wind 500mb", "m/s",532 . iim,jjmp1,nhori, 1,1,1, -99, 32,533 . "ave(X)", zsto,zout)534 535 CALL histdef(nid_mth, "u200", "Zonal wind 200mb", "m/s",536 . iim,jjmp1,nhori, 1,1,1, -99, 32,537 . "ave(X)", zsto,zout)538 539 CALL histdef(nid_mth, "v200", "Meridional wind 200mb", "m/s",540 . iim,jjmp1,nhori, 1,1,1, -99, 32,541 . "ave(X)", zsto,zout)542 543 CALL histdef(nid_mth, "phi500","Geopotentiel à 500mb","m2/s2",544 . iim,jjmp1,nhori, 1,1,1, -99, 32,545 . "ave(X)", zsto,zout)546 547 CALL histdef(nid_mth, "w500", "Vertical wind 500mb", "Pa/s",548 . iim,jjmp1,nhori, 1,1,1, -99, 32,549 . "ave(X)", zsto,zout)550 551 552 522 c 553 523 CALL histdef(nid_mth, "SWdnSFCclr", … … 555 525 . iim,jjmp1,nhori, 1,1,1,-99, 556 526 . 32, "ave(X)", zsto,zout) 527 c Champs interpolles sur des niveaux de pression 528 529 CALL histdef(nid_mth, "u850", "Zonal wind 850mb", "m/s", 530 . iim,jjmp1,nhori, 1,1,1, -99, 32, 531 . "ave(X)", zsto,zout) 532 533 CALL histdef(nid_mth, "v850", "Meridional wind 850mb", "m/s", 534 . iim,jjmp1,nhori, 1,1,1, -99, 32, 535 . "ave(X)", zsto,zout) 536 c 537 CALL histdef(nid_mth, "u500", "Zonal wind 500mb", "m/s", 538 . iim,jjmp1,nhori, 1,1,1, -99, 32, 539 . "ave(X)", zsto,zout) 540 541 CALL histdef(nid_mth, "v500", "Meridional wind 500mb", "m/s", 542 . iim,jjmp1,nhori, 1,1,1, -99, 32, 543 . "ave(X)", zsto,zout) 544 545 CALL histdef(nid_mth, "u200", "Zonal wind 200mb", "m/s", 546 . iim,jjmp1,nhori, 1,1,1, -99, 32, 547 . "ave(X)", zsto,zout) 548 549 CALL histdef(nid_mth, "v200", "Meridional wind 200mb", "m/s", 550 . iim,jjmp1,nhori, 1,1,1, -99, 32, 551 . "ave(X)", zsto,zout) 552 553 CALL histdef(nid_mth, "phi500","Geopotentiel à 500mb","m2/s2", 554 . iim,jjmp1,nhori, 1,1,1, -99, 32, 555 . "ave(X)", zsto,zout) 556 557 CALL histdef(nid_mth, "w500", "Vertical wind 500mb", "Pa/s", 558 . iim,jjmp1,nhori, 1,1,1, -99, 32, 559 . "ave(X)", zsto,zout) 560 561 557 562 ENDIF 558 563 c34EK
Note: See TracChangeset
for help on using the changeset viewer.