Changeset 1365


Ignore:
Timestamp:
Apr 21, 2010, 5:07:03 PM (14 years ago)
Author:
acozic
Message:

ACo : Bug correction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_write.h

    r1347 r1365  
    11501150
    11511151! Champs 3D:
    1152        IF (o_ec550aer%flag(iff)<=lev_files(iff)) THEN
    1153       CALL histwrite_phy(nid_files(iff),o_ec550aer%name,itau_w,ec550aer)
     1152       IF (ok_ade .OR. ok_aie) then
     1153          IF (o_ec550aer%flag(iff)<=lev_files(iff)) THEN
     1154         CALL histwrite_phy(nid_files(iff),o_ec550aer%name,itau_w,ec550aer)
     1155          ENDIF
    11541156       ENDIF
    11551157
Note: See TracChangeset for help on using the changeset viewer.