Changeset 2137 for LMDZ5/trunk/libf/cosp/phys_cosp.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/cosp/phys_cosp.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/cosp/phys_cosp.F90

@@ -6 +6 @@
   subroutine 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, &
                         Nptslmdz,Nlevlmdz,lon,lat, presnivs,overlaplmdz,sunlit, &
                         ref_liq,ref_ice,fracTerLic,u_wind,v_wind,phis,phi,ph,p,skt,t, &
@@ -119 +119 @@
   integer :: ii
   real    :: ecrit_day,ecrit_hf,ecrit_mth
-  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
+  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml
 
   logical, save :: debut_cosp=.true.
@@ -298 +298 @@
         print *, ' Open outpts files and define axis'
         call cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
-                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, &
+                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml, &
                               ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
       !$OMP END MASTER
@@ -313 +313 @@
 !!!!!!!!!!!!!!!!!! Ecreture des sorties Cosp !!!!!!!!!!!!!!r!!!!!!:!!!!!
        print *, 'Calling write output'
-        call cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, cfg, gbx, vgrid, sglidar, stlidar, isccp)
+        call cosp_output_write(Nlevlmdz, Npoints, Ncolumns, itap, dtime, freq_COSP, &
+                               cfg, gbx, vgrid, sglidar, stlidar, isccp)
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++