Ignore:
Timestamp:
Jul 10, 2020, 6:16:52 PM (4 years ago)
Author:
adurocher
Message:

Fixed compilation error without RRTM or without XIOS

Location:
LMDZ6/branches/Optimisation_LMDZ/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/iophy.F90

    r3752 r3755  
    10361036
    10371037  ELSE
     1038#ifdef CPP_XIOS
    10381039    IF (ok_all_xml) THEN
    10391040      !$omp barrier
     
    10441045      IF(.not. is_active) RETURN
    10451046    ENDIF
     1047#endif
    10461048
    10471049    !Et sinon on.... écrit
     
    12321234      CALL bcast_omp(swaerofree_diag)
    12331235  ELSE
     1236#ifdef CPP_XIOS
    12341237    IF (ok_all_xml) THEN
    12351238      !$omp barrier
     
    12401243      IF(.not. is_active) RETURN
    12411244    ENDIF
     1245#endif
    12421246
    12431247    !Et sinon on.... écrit
  • LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_preprocess.F90

    r3754 r3755  
    44#ifdef REPROBUS
    55  USE phys_output_ctrlout_mod, ONLY: o_nas
    6   USE CHEM_REP, ONLY: nas, nbnas, tnamenas, ttextnas
     6  USE CHEM_REP, ONLY: nas, nbnas
    77#endif
    88#ifdef CPP_StratAer
     
    3737  implicit none
    3838#ifdef REPROBUS
     39  !USE phys_output_ctrlout_mod, ONLY: o_nas
     40  !USE CHEM_REP, ONLY: nas, nbnas
    3941  LOGICAL, PARAMETER :: ok_reprobus = .true.
    4042#else
     
    7274#endif
    7375#ifdef CPP_RRTM
     76  !USE YOESW, ONLY: RSUN
    7477  LOGICAL, PARAMETER :: ok_rrtm = .true.
     78#else
     79  LOGICAL, PARAMETER :: ok_rrtm = .false.
     80  REAL :: RSUN(6)
    7581#endif
    7682END MODULE
Note: See TracChangeset for help on using the changeset viewer.