Changeset 3106 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Oct 26, 2023, 11:30:35 AM (16 months ago)

Author:

jbclement

Message:

PEM:

• Correction of a bug when running with ifort, XIOS and no sub-slopes. If compiled with ifort, the 'Reshape' program cashed because of sub-slopes variables were written in the XIOS output but not filled. A new file definition without sub-slopes can be chosen in the xml file to avoid this issue.
• Addition in the 'Reshape' program of a check to remove the output files if they exist to prevent a crash.

JBC

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (1 diff)

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

@@ -3890 +3890 @@
         ENDDO
 
+      CALL write_output("Waterdensity_soil",
+     &     "rhowater_soil",'kg.m-3',
+     &     rhowater_soil(:,:,iflat))
+      CALL write_output("Waterdensity_surface",
+     &     "rhowater_surface",'kg.m-3',
+     &     rhowater_surf(:,iflat))
       DO islope = 1,nslope
         write(str2(1:2),'(i2.2)') islope