Ignore:
Timestamp:
Feb 6, 2008, 3:48:34 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Rajout de sorties concernant les aerosols qui avaient disparus lors d'un merge
LF

Location:
LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_histmth.h

    r892 r896  
    291291     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
    292292     .                "ave(X)", zstophy,zout)
     293c
     294c
     295c Effets des aerosols
     296c
     297c     IF (ok_ade.OR.ok_aie) THEN
     298         CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
     299     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     300     .                "ave(X)", zstophy,zout)
     301c
     302         CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
     303     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     304     .                "ave(X)", zstophy,zout)
     305c
     306         CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
     307     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     308     .                "ave(X)", zstophy,zout)
     309c
     310         CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
     311     .                iim,jj_nb,nhori, 1,1,1, -99, 32,
     312     .                "ave(X)", zstophy,zout)
     313c     endif
    293314c
    294315c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histmth.h

    r892 r896  
    244244cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d)
    245245      CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr)
     246c
     247c
     248c effets des aerosols
     249c
     250      IF (ok_ade.OR.ok_aie) THEN
     251      zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
     252      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d)
     253c
     254      zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
     255      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d)
     256c
     257      zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
     258      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d)
     259c
     260      zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
     261      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d)
     262      endif
     263
    246264c
    247265cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
Note: See TracChangeset for help on using the changeset viewer.