Changeset 3436 for LMDZ6/trunk/libf/phylmd/readaerosol.F90

Timestamp:

Jan 22, 2019, 5:26:21 PM (6 years ago)

Author:

Ehouarn Millour

Message:

Additional modifications wrt previous commit to enable working without XIOS.
EM+LF

File:

• LMDZ6/trunk/libf/phylmd/readaerosol.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/readaerosol.F90

@@ -178 +178 @@
   USE mod_phys_lmdz_para
   USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
+#ifdef CPP_XIOS
   USE xios
+#endif
   IMPLICIT NONE
   INTEGER, INTENT(IN) :: flag_aerosol
+#ifdef CPP_XIOS
   REAL,ALLOCATABLE :: lat_src(:)
   REAL,ALLOCATABLE :: lon_src(:)
@@ -238 +241 @@
     
   ENDIF    
- 
+#endif 
   END SUBROUTINE init_aero_fromfile
 
@@ -269 +272 @@
     USE iophy, ONLY : io_lon, io_lat
     USE print_control_mod, ONLY: lunout
+#ifdef CPP_XIOS
     USE xios
-
+#endif
     IMPLICIT NONE
       
@@ -682 +686 @@
 
     IF (grid_type==unstructured) THEN
+#ifdef CPP_XIOS
       IF (is_omp_master) THEN
         CALL xios_send_field(TRIM(varname)//"_in",varyear)
@@ -697 +702 @@
       CALL scatter_omp(psurf_interp,psurf_out)
       first=.FALSE.
+#endif
     ELSE
       ! Scatter global field to local domain at local process