Changeset 4166 for trunk/LMDZ.MARS/libf/phymars/soil_settings.F

Timestamp:

Apr 2, 2026, 2:54:31 PM (9 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/soil_settings.F (modified) (2 diffs)

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

@@ -477 +477 @@
                qsoil(:,:,igcm_h2o_ice_soil,:)= 0. 
              else
-               write(*,*) "phyetat0: suburface tracer <",trim(txt),
+               write(*,*) "phyetat0: subsurface tracer <",trim(txt),
      &                     "> range:", 
      &                     minval(qsoil(:,:,igcm_h2o_ice_soil,:)),
@@ -493 +493 @@
                qsoil(:,:,igcm_h2o_vap_ads,:)= 0. 
              else
-               write(*,*) "phyetat0: suburface tracer <",trim(txt),">
+               write(*,*) "phyetat0: subsurface tracer <",trim(txt),">
      &                     range:", 
      &                     minval(qsoil(:,:,igcm_h2o_vap_ads,:)),