Ignore:
Timestamp:
Jun 6, 2016, 2:15:33 PM (8 years ago)
Author:
Laurent Fairhead
Message:

Stratomask is not necessarily defined
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

    r2538 r2541  
    10631063       CALL histwrite_phy(o_zfull,zphi/RG)
    10641064
    1065        CALL histwrite_phy(o_stratomask, stratomask)
    1066 
     1065       IF (flag_aerosol_strat.EQ.2) THEN
     1066         CALL histwrite_phy(o_stratomask, stratomask)
     1067       ENDIF
     1068     
    10671069       IF (vars_defined)  THEN
    10681070        zx_tmp_fi3d(:,1)= pphis(:)/RG
Note: See TracChangeset for help on using the changeset viewer.