Changeset 4817 for LMDZ6/trunk

Timestamp:

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

Author:

Sebastien Nguyen

Message:

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

Location:

LMDZ6/trunk/libf

Files:

• misc/wxios.F90 (modified) (1 diff)
• phylmdiso/phys_output_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/misc/wxios.F90

@@ -9 +9 @@
     CHARACTER(len=100), SAVE :: g_ctx_name ="LMDZ"
     TYPE(xios_context), SAVE :: g_ctx
-!$OMP THREADPRIVATE(g_comm,g_cts_name,g_ctx)
+!$OMP THREADPRIVATE(g_comm,g_ctx_name,g_ctx)
     LOGICAL, SAVE :: g_flag_xml = .FALSE.
     CHARACTER(len=100) :: g_field_name = "nofield"

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