Ignore:
Timestamp:
Apr 28, 2020, 3:34:39 PM (5 years ago)
Author:
jvatant
Message:

Fix a missing XIOS cpp key in r2299 causing crash if no XIOS
--JVO

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/nonoro_gwd_ran_mod.F90

    r2299 r2305  
    4949                              gwd_convective_source
    5050     use inifis_mod
     51#ifdef CPP_XIOS
    5152     use xios_output_mod, only: send_xios_field
     53#endif
    5254 implicit none
    5355
    … …  
    451453     ENDDO
    452454
     455#ifdef CPP_XIOS
    453456     call send_xios_field("du_nonoro", d_u)
    454457     call send_xios_field("dv_nonoro", d_v)
    455458     call send_xios_field("east_gwstress", east_gwstress)
    456459     call send_xios_field("west_gwstress", west_gwstress)
    457 
     460#endif
    458461
    459462      END SUBROUTINE nonoro_gwd_ran
Note: See TracChangeset for help on using the changeset viewer.