Changeset 2333 for trunk/LMDZ.MARS/libf/phymars/xios_output_mod.F90

Timestamp:

May 29, 2020, 9:46:23 AM (4 years ago)

Author:

adelavois

Message:

More outputs with xios from physics
physics is now able to transmit soil fields to xios

File:

• trunk/LMDZ.MARS/libf/phymars/xios_output_mod.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/xios_output_mod.F90

@@ -18 +18 @@
 
   SUBROUTINE initialize_xios_output(day,timeofday,dtphys,daysec,&
-                                    presnivs,pseudoalt)
+                                    presnivs,pseudoalt,mlayer)
   USE mod_phys_lmdz_para, ONLY: jj_nb, jj_begin, jj_end, ii_begin, ii_end, &
                                 mpi_size, mpi_rank, klon_mpi, &
@@ -39 +39 @@
   REAL,INTENT(IN) :: presnivs(:) ! vertical grid approximate pressure (Pa)
   REAL,INTENT(IN) :: pseudoalt(:) ! vertical grid approximate altitude (km)
+  REAL,INTENT(IN) :: mlayer(:) ! soil layer depth at intermediate level (m)
   
   
@@ -56 +57 @@
     CALL xios_set_axis_attr("altitude", n_glo=size(pseudoalt), value=pseudoalt,&
                             unit="km",positive="up")
+    IF (prt_level>=10) WRITE(lunout,*) "initialize_xios_output: call xios_set_axis_attr for soil"
+    CALL xios_set_axis_attr("soil_layers", n_glo=size(mlayer), value=mlayer,&
+                            unit="m",positive="down")
     
     ! 2. Declare horizontal domain