Ignore:
Timestamp:
Feb 7, 2008, 3:32:33 PM (17 years ago)
Author:
Laurent Fairhead
Message:

On avait perdu les sorties aerosols de Johannes dans un merge
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/write_histmth.h

    r895 r903  
    12731273cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d)
    12741274      CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr)
     1275c effets des aerosols
     1276c
     1277      IF (ok_ade.OR.ok_aie) THEN
     1278      zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
     1279      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_2d)
     1280c
     1281      zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
     1282      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_2d)
     1283c
     1284      zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
     1285      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_2d)
     1286c
     1287      zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
     1288      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_2d)
     1289      endif
     1290
    12751291c
    12761292cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     
    12841300cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    12851301      CALL histwrite_phy(nid_mth,"fder",itau_w,fder)
     1302c
     1303c Effets des aerosols
     1304c
     1305      IF (ok_ade.OR.ok_aie) THEN
     1306        zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
     1307        CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_fi2d)
     1308c
     1309        zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
     1310        CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d)
     1311c
     1312        zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
     1313        CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d)
     1314c
     1315        zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
     1316        CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_fi2d)
     1317      ENDIF
    12861318c
    12871319c
Note: See TracChangeset for help on using the changeset viewer.