Changeset 2732 for trunk/LMDZ.GENERIC

Timestamp:

Jun 21, 2022, 11:24:13 AM (3 years ago)

Author:

aslmd

Message:

took into account unstructured grid in writediagspec*.F

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• writediagspecIR.F (modified) (2 diffs)
• writediagspecVI.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/writediagspecIR.F

@@ -46 +46 @@
       use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather
       use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo,
-     &                              nbp_lon, nbp_lat
+     &                              nbp_lon, nbp_lat, grid_type,
+     &                              unstructured
       use time_phylmdz_mod, only: ecritphy, iphysiq, day_step, day_ini
       use callkeys_mod, only: iradia
@@ -98 +99 @@
       real areafi_glo(ngrid) ! mesh area on global physics grid
 #endif
+      if (grid_type == unstructured) then 
+        return 
+      endif
 
 !***************************************************************

trunk/LMDZ.GENERIC/libf/phystd/writediagspecVI.F

@@ -46 +46 @@
       use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather
       use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo,
-     &                              nbp_lon, nbp_lat
+     &                              nbp_lon, nbp_lat, grid_type,
+     &                              unstructured
       use time_phylmdz_mod, only: ecritphy, iphysiq, day_step, day_ini
       use callkeys_mod, only: iradia
@@ -98 +99 @@
       real areafi_glo(ngrid) ! mesh area on global physics grid
 #endif
+      if (grid_type == unstructured) then 
+        return
+      endif
 
 !***************************************************************