Changeset 3122 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Nov 10, 2023, 4:48:52 PM (14 months ago)

Author:

jbclement

Message:

PEM:
Correction of the reading of the PCM data (it did not work if no slope was used) + some minor related cleanings.
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",
+      CALL write_output("waterdensity_soil",
      &     "rhowater_soil",'kg.m-3',
      &     rhowater_soil(:,:,iflat))
-      CALL write_output("Waterdensity_surface",
+      CALL write_output("waterdensity_surface",
      &     "rhowater_surface",'kg.m-3',
      &     rhowater_surf(:,iflat))
       DO islope = 1,nslope
         write(str2(1:2),'(i2.2)') islope
-        CALL write_output("Waterdensity_soil_slope"//str2,
+        CALL write_output("waterdensity_soil_slope"//str2,
      &     "rhowater_soil_slope"//str2,'kg.m-3',
      &     rhowater_soil(:,:,islope))
-        CALL write_output("Waterdensity_surface"//str2,
+        CALL write_output("waterdensity_surface"//str2,
      &     "rhowater_surface"//str2,'kg.m-3',
      &     rhowater_surf(:,islope))