Changeset 2941 for trunk/LMDZ.MARS/libf

Timestamp:

Apr 14, 2023, 5:49:58 PM (20 months ago)

Author:

romain.vande

Message:

Mars Dynamico : Adapt routines to the new version of Dynamico and the subslope parametrization.

File:

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

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

@@ -27 +27 @@
   USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
   USE nrtype, ONLY: pi
+  use comslope_mod, ONLY: nslope,def_slope_mean
 #ifdef CPP_XIOS
   USE xios
@@ -62 +63 @@
     CALL xios_set_axis_attr("soil_layers", n_glo=size(mlayer), value=mlayer,&
                             unit="m",positive="down")
+    IF (prt_level>=10) WRITE(lunout,*) "initialize_xios_output: call xios_set_axis_attr for subslope"
+    CALL xios_set_axis_attr("subslope", n_glo=nslope, value=def_slope_mean,&
+                            unit="degree",positive="up")
     
     ! 2. Declare horizontal domain