Changeset 2651 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Oct 5, 2016, 12:49:31 PM (8 years ago)

Author:

musat

Message:

Supression fichier paramLMDZ_py.nc si pas de XIOS.

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -233 +233 @@
     USE ioipsl_getin_p_mod, ONLY : getin_p
 
+#ifndef CPP_XIOS
     USE paramLMDZ_phy_mod
+#endif
 
     USE cmp_seri_mod
@@ -1553 +1555 @@
        WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
 
+#ifndef CPP_XIOS
        CALL ini_paramLMDZ_phy(dtime,nid_ctesGCM)
+#endif
 
 #endif
@@ -4519 +4523 @@
 
 
+#ifndef CPP_XIOS
     CALL write_paramLMDZ_phy(itap,nid_ctesGCM,ok_sync)
+#endif
 
 #endif