Changeset 4817 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Feb 14, 2024, 10:46:30 AM (10 months ago)

Author:

Sebastien Nguyen

Message:

modifications for using xios with LMDZISO and a minor bug in wxios.F90

File:

• LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90

@@ -45 +45 @@
     USE mod_grid_phy_lmdz, only: klon_glo,nbp_lon,nbp_lat
     USE print_control_mod, ONLY: prt_level,lunout
-    USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt
+    USE vertical_layers_mod, ONLY: ap,bp,preff,presnivs, aps, bps, pseudoalt, presinter
     USE time_phylmdz_mod, ONLY: day_ini, itau_phy, start_time, annee_ref, day_ref
     ! ug Pour les sorties XIOS
@@ -378 +378 @@
       IF (iff.LE.6.OR.iff.EQ.10) THEN
         CALL wxios_add_vaxis("presnivs", &
-             levmax(iff) - levmin(iff) + 1, presnivs(levmin(iff):levmax(iff)))
+            levmax(iff) - levmin(iff) + 1, presnivs(levmin(iff):levmax(iff)))
+        CALL wxios_add_vaxis("presinter", &
+            klev + 1, presinter(1:klev+1))
         CALL wxios_add_vaxis("Ahyb", &
             levmax(iff) - levmin(iff) + 1, aps(levmin(iff):levmax(iff)), positif='down', &
@@ -419 +421 @@
             levmax(iff) - levmin(iff) + 1, rlevSTD(levmin(iff):levmax(iff)))
       ENDIF
-    ENDIF 
+    ENDIF !using_xios
 
         IF (clef_files(iff)) THEN