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

Timestamp:

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

Author:

Ehouarn Millour

Message:

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

File:

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

LMDZ6/trunk/libf/phylmd/readaerosolstrato_m.F90

@@ -24 +24 @@
 
   SUBROUTINE init_readaerosolstrato1
+#ifdef CPP_XIOS
   USE netcdf
   USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
@@ -29 +30 @@
   USE mod_phys_lmdz_para
   USE xios
-  USE YOERAD, ONLY : NLW
+!  USE YOERAD, ONLY : NLW
   IMPLICIT NONE
   REAL, POINTER:: latitude(:)
@@ -62 +63 @@
     ENDIF
     
+#endif
   END SUBROUTINE init_readaerosolstrato1
   
   SUBROUTINE init_readaerosolstrato2
+#ifdef CPP_XIOS
   USE netcdf
   USE netcdf95, ONLY: nf95_close, nf95_gw_var, nf95_inq_dimid, & 
@@ -70 +73 @@
   USE mod_phys_lmdz_para
   USE xios
-  USE YOERAD, ONLY : NLW
+!  USE YOERAD, ONLY : NLW
   IMPLICIT NONE
   REAL, POINTER:: latitude(:)
@@ -128 +131 @@
 
     ENDIF
-    
+#endif    
   END SUBROUTINE init_readaerosolstrato2