Changeset 3374

Timestamp:

Jul 17, 2018, 10:47:07 PM (6 years ago)

Author:

idelkadi

Message:

Correction dans le cas ou les sorties COSP sont geres par IOIPSL

File:

• LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

@@ -183 +183 @@
 
 ! Clefs Outputs initialisation
+#ifdef CPP_XIOS
   call cosp_outputkeys_init(cfg)
+#else
+  call read_cosp_output_nl(itap,cosp_output_nl,cfg)
+#endif
 !!!   call cosp_outputkeys_test(cfg)
   print*,' Cles des differents simulateurs cosp a itap :',itap
@@ -201 +205 @@
 #ifdef CPP_XIOS
     call read_xiosfieldactive(cfg)
-#else
-    call read_cosp_output_nl(itap,cosp_output_nl,cfg)
 #endif
     first_write=.false.