Ignore:
Timestamp:
Sep 8, 2003, 5:16:34 PM (21 years ago)
Author:
lmdzadmin
Message:

IM: menage iflag_con.GE.3 & meme ordre des variables ds ini et write

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmth.h

    r470 r471  
    156156c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    157157c    .                "ave(X)", zsto,zout)
    158 cIM cf JLD
     158c
    159159         CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
    160160     .                "W/m2",iim,jjmp1,nhori, 1,1,1, -99, 32,
     
    191191     $         iim,jjmp1,nhori, 1,1,1, -99, 32,
    192192     $         "ave(X)", zsto,zout)
    193 cIM cf. JLD
     193c
    194194           call histdef(nid_mth, "fsw_"//clnsurf(nsrf),
    195195     $         "SW "//clnsurf(nsrf), "W/m2",
     
    302302c
    303303c
     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)
     307c
     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)
     311c
     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)
     315c
     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)
     319c
     320         CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
     321     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     322     .                "ave(X)", zsto,zout)
     323c
    304324      ENDIF
    305325c34EK
     
    338358     .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
    339359     .                "ave(X)", zsto,zout)
    340 cIM cf. FH
     360c
    341361         CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
    342362     .                , "-",
     
    485505         ENDIF
    486506c
    487 cKE43
    488       IF (iflag_con.GE.3) THEN ! (sb)
    489 c
    490          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 c
    494          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 c
    498          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 c
    502          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 cccIM
    506507         CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2",
    507508     .                iim,jjmp1,nhori, 1,1,1,-99,
     
    519520     .                iim,jjmp1,nhori, 1,1,1,-99,
    520521     .                32, "ave(X)", zsto,zout)
    521 cccIM clear sky
     522c
    522523         CALL histdef(nid_mth, "SWupTOAclr",
    523524     .                "SWup clear sky at TOA","W/m2",
     
    539540     .                iim,jjmp1,nhori, 1,1,1,-99,
    540541     .                32, "ave(X)", zsto,zout)
    541       ENDIF
    542 c
    543          CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
    544      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    545      .                "ave(X)", zsto,zout)
    546542
    547543c Champs interpolles sur des niveaux de pression
     
    578574     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    579575     .                "ave(X)", zsto,zout)
    580 
    581 
    582 cIM     ENDIF
    583 c34EK
     576c
    584577         CALL histend(nid_mth)
    585578c
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h

    r467 r471  
    2424      CALL histwrite(nid_mth,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    2525c
    26 cccIM
    2726      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)
    2827      CALL histwrite(nid_mth,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     
    130129c      CALL histwrite(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    131130c
    132 cIM cf JLD
     131c
    133132       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d)
    134133       CALL histwrite(nid_mth,"ffonte",itau_w,zx_tmp_2d,iim*jjmp1,
     
    166165        CALL histwrite(nid_mth,"flw_"//clnsurf(nsrf),itau_w,
    167166     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    168 cIM cf. JLD
     167c
    169168        zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf)
    170169        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     
    261260      CALL histwrite(nid_mth,"fbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    262261c
     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)
     265c
     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)
     269c
     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)
     273c
     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)
     277c
     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)
    263281c
    264282      ENDIF
     
    307325     .                                   iim*jjmp1*klev,ndex3d)
    308326c
     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)
     330c
    309331      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
    310332      CALL histwrite(nid_mth,"oliq",itau_w,zx_tmp_3d,
    311      .                                   iim*jjmp1*klev,ndex3d)
    312 c
    313       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d)
    314       CALL histwrite(nid_mth,"clwcon",itau_w,zx_tmp_3d,
    315333     .                                   iim*jjmp1*klev,ndex3d)
    316334c
     
    439457      ENDDO
    440458      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)
     459c
     460c     zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, klevp1)
    462461      zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 2 )
    463462      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     
    483482     .                               iim*jjmp1,ndex2d)
    484483c
    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 sky
    490484c      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, klevp1)
    491485      zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 2 )
     
    501495c
    502496c      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1)
     497      zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 2 )
    503498      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    504499      CALL histwrite(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_2d,
     
    511506     .                               iim*jjmp1,ndex2d)
    512507c
    513       ENDIF
    514 c
    515508c  Champs interpolles sur des niveaux de pression
    516509
     
    538531      CALL gr_fi_ecrit(1, klon,iim,jjmp1, w500,zx_tmp_2d)
    539532      CALL histwrite(nid_mth,"w500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    540 
    541 
    542      
    543 
     533c
    544534      if (ok_sync) then
    545535        call histsync(nid_mth)
    546536      endif
    547        ENDIF
    548 
     537      ENDIF
Note: See TracChangeset for help on using the changeset viewer.