Changeset 3816 for trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

Timestamp:

Jun 25, 2025, 11:10:57 AM (4 days ago)

Author:

afalco

Message:

Generic: enable writing cell_area with XIOSin physiq_mod, only for 3D runs.
Pluto: only write variable in 3D runs (do not calculate cell_area for 1D runs).
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

@@ -2168 +2168 @@
       call write_output("emis","Emissivity","",emis)
       call write_output('phisfi','Surface Geopotential','m2s-2',phisfi)
-      if (grid_type == regular_lonlat) then
-          call write_output("area","Mesh area","m2", &
-                           cell_area_for_lonlat_outputs)
-        else ! unstructured grid (e.g. dynamico)
-          call write_output("area","Mesh area","m2",cell_area)
+      if (ngrid.ne.1) then
+         if (grid_type == regular_lonlat) then
+            call write_output("area","Mesh area","m2", &
+                              cell_area_for_lonlat_outputs)
+         else ! unstructured grid (e.g. dynamico)
+            call write_output("area","Mesh area","m2",cell_area)
+         endif
       endif