Changeset 2137 for LMDZ5/trunk/libf/phylmd

Timestamp:

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

Author:

idelkadi

Message:

Implementation de XIOS pour les sorties du simulateur COSP

Location:

LMDZ5/trunk/libf/phylmd

Files:

• iophy.F90 (modified) (1 diff)
• physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -1117 +1117 @@
                              trim(var%name)                       
           endif
-          CALL xios_send_field(var%name, Field3d)
+          CALL xios_send_field(var%name, Field3d(:,:,1:nlevx))
 #else
         CALL abort_gcm ('iophy','cannot have ok_all_xml = .T. without CPP_XIOS defined' ,1)

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, &