Changeset 2137 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Oct 29, 2014, 8:47:46 PM (10 years ago)

Author:

idelkadi

Message:

Implementation de XIOS pour les sorties du simulateur COSP

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -3512 +3512 @@
      ! adeclarer 
 #ifdef CPP_COSP
-     IF (MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
+     IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
 
         print*,'freq_cosp',freq_cosp
@@ -3520 +3520 @@
         call phys_cosp(itap,dtime,freq_cosp, &
              ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-             ecrit_mth,ecrit_day,ecrit_hf, &
+             ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, &
              klon,klev,rlon,rlat,presnivs,overlap, &
              fract,ref_liq,ref_ice, &