Changeset 3161 for trunk/LMDZ.MARS/libf

Timestamp:

Dec 19, 2023, 3:14:48 PM (12 months ago)

Author:

jbclement

Message:

PEM:

• Addition of flags defined in the "run_PEM.def" to decide to do or not CO2 & H2O ice metamorphism: 'metam_co2ice' and 'metam_h2oice' (default is false).
• The variations of infinite reservoirs ('watercap') during the PCM years are now taken into account to update H2O ice at the PEM initialization.
• 'ini_h2o_bigreservoir' is renamed into 'ini_huge_h2oice'.
• Some cleanings, in particular for the main program "pem.F90".

JBC

File:

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

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

@@ -18 +18 @@
 
 SUBROUTINE write_output_d0(field_name,title,units,field)
-! For a surface field
+! For a scalar
 
 #ifdef CPP_XIOS
@@ -49 +49 @@
 
 #ifdef CPP_XIOS
-  use xios_output_mod, only: xios_is_active_field
-  use xios_output_mod, only: send_xios_field
+    use xios_output_mod, only: xios_is_active_field
+    use xios_output_mod, only: send_xios_field
 #endif
 
@@ -80 +80 @@
     use xios_output_mod, only: send_xios_field
 #endif
+
 use comsoil_h,         only: nsoilmx
 use writediagsoil_mod, only: writediagsoil
@@ -109 +110 @@
 
 SUBROUTINE write_output_i0(field_name,title,units,field)
-! For a surface field
+! For a scalar
 
 #ifdef CPP_XIOS
@@ -200 +201 @@
 
 SUBROUTINE write_output_l0(field_name,title,units,field)
- ! For a surface field
+! For a scalar
  
 #ifdef CPP_XIOS