Changeset 4166 for trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

Timestamp:

Apr 2, 2026, 2:54:31 PM (8 days ago)

Author:

jbclement

Message:

Mars PCM:
Small correction regarding old fixed Fortran formatting following r4160 + Add missing 'watercaptag' field in "field_def_physics.xml" for XIOS following r4161.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90 (modified) (5 diffs)

trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

@@ -911 +911 @@
    if (.not.found) then
      write(*,*) "phyetat0: Failed loading <h2oice_depth> : ", &
-                          "<h2oice_depth> is set as -1 (no subsurface ice)"
-     h2oice_depth(:,:) = -1.
+                          "<h2oice_depth> is set as -999 (no subsurface ice)"
+     h2oice_depth(:,:) = -999.
    endif
    
@@ -919 +919 @@
    if (.not.found) then
      write(*,*) "phyetat0: Failed loading <flux_ssice> : ", &
-                          "<flux_ssice> is set as -1 (no subsurface ice)"
+                          "<flux_ssice> is set as 0 (no subsurface ice)"
      zdqsdif_ssi_tot(:,:) = 0.
    endif
@@ -935 +935 @@
    if (.not.found) then
      write(*,*) "phyetat0: Failed loading <co2ice_depth> : ", &
-                          "<co2ice_depth> is set as -1 (no subsurface ice)"
-     co2ice_depth(:,:) = -1.
+                          "<co2ice_depth> is set as -999 (no subsurface ice)"
+     co2ice_depth(:,:) = -999.
    endif
 
@@ -948 +948 @@
     endif ! not found
   else ! no startphy_file
-    h2oice_depth(:,:) = -1.
-    co2ice_depth(:,:) = -1.
+    h2oice_depth(:,:) = -999.
+    co2ice_depth(:,:) = -999.
     zdqsdif_ssi_tot(:,:) = 0.
     coef_ssdif(:,:) = 4.e-4
@@ -956 +956 @@
   endif !startphy_file
 else
-   h2oice_depth(:,:) = -1.
-   co2ice_depth(:,:) = -1.
+   h2oice_depth(:,:) = -999.
+   co2ice_depth(:,:) = -999.
    zdqsdif_ssi_tot(:,:) = 0.
    coef_ssdif(:,:) = 4.e-4