Changeset 3755

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:

• iophy.F90 (modified) (4 diffs)
• phys_output_write_xios_preprocess.F90 (modified) (3 diffs)

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

@@ -1036 +1036 @@
 
   ELSE
+#ifdef CPP_XIOS
     IF (ok_all_xml) THEN
       !$omp barrier
@@ -1044 +1045 @@
       IF(.not. is_active) RETURN
     ENDIF
+#endif
 
     !Et sinon on.... écrit
@@ -1232 +1234 @@
       CALL bcast_omp(swaerofree_diag)
   ELSE
+#ifdef CPP_XIOS
     IF (ok_all_xml) THEN
       !$omp barrier
@@ -1240 +1243 @@
       IF(.not. is_active) RETURN
     ENDIF
+#endif
 
     !Et sinon on.... écrit

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