Changeset 3755 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_preprocess.F90

Timestamp:

Jul 10, 2020, 6:16:52 PM (4 years ago)

Author:

adurocher

Message:

Fixed compilation error without RRTM or without XIOS

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_preprocess.F90 (modified) (3 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/phys_output_write_xios_preprocess.F90

@@ -4 +4 @@
 #ifdef REPROBUS
   USE phys_output_ctrlout_mod, ONLY: o_nas
-  USE CHEM_REP, ONLY: nas, nbnas, tnamenas, ttextnas
+  USE CHEM_REP, ONLY: nas, nbnas
 #endif
 #ifdef CPP_StratAer
@@ -37 +37 @@
   implicit none
 #ifdef REPROBUS
+  !USE phys_output_ctrlout_mod, ONLY: o_nas
+  !USE CHEM_REP, ONLY: nas, nbnas
   LOGICAL, PARAMETER :: ok_reprobus = .true.
 #else
@@ -72 +74 @@
 #endif
 #ifdef CPP_RRTM
+  !USE YOESW, ONLY: RSUN
   LOGICAL, PARAMETER :: ok_rrtm = .true.
+#else
+  LOGICAL, PARAMETER :: ok_rrtm = .false.
+  REAL :: RSUN(6)
 #endif
 END MODULE