Changeset 2514 for trunk/LMDZ.MARS/libf/phymars/writediagfi.F

Timestamp:

May 4, 2021, 10:23:43 AM (4 years ago)

Author:

romain.vande

Message:

Mars Dynamico : _ update of r2507: correct ztime_fin for dynamico

_ Test for no writting Diagfi for Dynamico
_ Correction for Xios output : Change of calendar : start_date=0 as a diagfi, timestep for output physic=1s, day_length=ndtphys, it is needed to have output in days in the xml to have the correct time

File:

• trunk/LMDZ.MARS/libf/phymars/writediagfi.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/writediagfi.F

@@ -45 +45 @@
      &                               is_master, gather
       USE mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo,
-     &                              nbp_lon, nbp_lat, nbp_lev
+     &                              nbp_lon, nbp_lat, nbp_lev,
+     &                              grid_type, unstructured
       implicit none
 
@@ -114 +115 @@
       real areafi_glo(ngrid) ! mesh area on global physics grid
 #endif
+
+      if (grid_type==unstructured) then
+           return
+      endif
 
 !***************************************************************