Changeset 3436 for LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.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/create_etat0_limit_unstruct.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

@@ -10 +10 @@
   
   SUBROUTINE init_etat0_limit_unstruct
+#ifdef CPP_XIOS
   USE xios
   USE mod_phys_lmdz_para
@@ -46 +47 @@
       ENDIF  
 
+#endif
   END SUBROUTINE init_etat0_limit_unstruct
   
   SUBROUTINE create_etat0_limit_unstruct
+#ifdef CPP_XIOS
   USE mod_grid_phy_lmdz
   USE create_etat0_unstruct_mod
@@ -93 +96 @@
       ENDIF
         
+#endif
   END SUBROUTINE create_etat0_limit_unstruct