Changeset 3373

Timestamp:

Jul 17, 2018, 9:13:03 PM (6 years ago)

Author:

idelkadi

Message:

Implementation de COSPv2 dans LMDZ (correction dans le cas ou les sorties sont geres par IOIPSL).

File:

• LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90

@@ -245 +245 @@
 
 ! Clefs Outputs initialisation
+#ifdef CPP_XIOS
   call cosp_outputkeys_init(cfg)
-!!!   call cosp_outputkeys_test(cfg)
+#else
+   call read_cosp_output_nl(itap,cosp_output_nl,cfg)
+#endif
+
   print*,' Cles des differents simulateurs cosp a itap :',itap
   print*,'Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lmodis_sim,Lrttov_sim,Lstats', &
@@ -263 +267 @@
 #ifdef CPP_XIOS
     call read_xiosfieldactive(cfg)
-#else
-    call read_cosp_output_nl(itap,cosp_output_nl,cfg)
 #endif
     first_write=.false.