Ignore:
Timestamp:
Jul 8, 2020, 7:49:08 PM (4 years ago)
Author:
adurocher
Message:

Fix conditional compilation to compile without XIOS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/physiq_mod.F90

    r3753 r3754  
    223223#endif
    224224
    225     USE phys_output_write_xios_mod
     225    USE phys_output_write_interface_mod, only : phys_output_write, phys_output_write_xios
    226226    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
    227227    USE phys_output_mod
    … …  
    16941694        ENDIF
    16951695
    1696        CALL phys_output_write_xios(itap, pdtphys, paprs, pphis,                    &
     1696      if( ok_all_xml ) then
     1697         CALL phys_output_write_xios(itap, pdtphys, paprs, pphis,                    &
    16971698                              pplay, lmax_th, aerosol_couple,                 &
    16981699                              ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,&
    … …  
    17001701                              ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
    17011702                              flag_aerosol, flag_aerosol_strat, ok_cdnc)
     1703      else
     1704         CALL phys_output_write(itap, pdtphys, paprs, pphis,                    &
     1705                              pplay, lmax_th, aerosol_couple,                 &
     1706                              ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,&
     1707                              ptconv, read_climoz, clevSTD,                   &
     1708                              ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
     1709                              flag_aerosol, flag_aerosol_strat, ok_cdnc)
     1710      endif
    17021711
    17031712#ifdef CPP_XIOS
    … …  
    51115120       flag_aerosol, flag_aerosol_strat, ok_cdnc)
    51125121#else
    5113     CALL phys_output_write_xios(itap, pdtphys, paprs, pphis,  &
    5114          pplay, lmax_th, aerosol_couple,                 &
    5115          ok_ade, ok_aie, ok_volcan, ivap, iliq, isol,    &
    5116          ok_sync, ptconv, read_climoz, clevSTD,          &
    5117          ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
    5118          flag_aerosol, flag_aerosol_strat, ok_cdnc)
     5122   if( ok_all_xml ) then
     5123      CALL phys_output_write_xios(itap, pdtphys, paprs, pphis,                    &
     5124                             pplay, lmax_th, aerosol_couple,                 &
     5125                             ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,&
     5126                             ptconv, read_climoz, clevSTD,                   &
     5127                             ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
     5128                             flag_aerosol, flag_aerosol_strat, ok_cdnc)
     5129   else
     5130      CALL phys_output_write(itap, pdtphys, paprs, pphis,                    &
     5131                           pplay, lmax_th, aerosol_couple,                 &
     5132                           ok_ade, ok_aie, ok_volcan, ivap, iliq, isol, ok_sync,&
     5133                           ptconv, read_climoz, clevSTD,                   &
     5134                           ptconvth, d_u, d_t, qx, d_qx, zmasse,           &
     5135                           flag_aerosol, flag_aerosol_strat, ok_cdnc)
     5136   endif
    51195137#endif
    51205138
Note: See TracChangeset for help on using the changeset viewer.