Changeset 2976

Timestamp:

Jun 2, 2023, 4:08:11 PM (19 months ago)

Author:

emillour

Message:

Mars PCM:
Follow-up to r2970: output of integers/logicals also converted to reals with XIOS
Also updated "deftank/field_def_physics_mars.xml" to keep up with recently added
variables
EM

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• deftank/field_def_physics_mars.xml (modified) (1 diff)
• libf/phymars/write_output_mod.F90 (modified) (6 diffs)

trunk/LMDZ.MARS/changelog.txt

@@ -4060 +4060 @@
 == 30/05/2023 == RV
 Adapt expandstartfi to subslope dimension and small correction regarding depreciated dimension "number_of_advected_field"
+
+== 02/06/2023 == EM
+Follow-up to r2970: output of integers/logicals also converted to reals with XIOS
+Also updated "deftank/field_def_physics_mars.xml" to keep up with recently added
+variables

trunk/LMDZ.MARS/deftank/field_def_physics_mars.xml

@@ -640 +640 @@
                    long_name="pdqcloud_hdo_vap after microphysics" 
                    unit="kg/kg.s-1" />
+            <field id="computed_micro" 
+                   long_name="computed micro after microphysics" 
+                   unit="logical" />
+            <field id="zimicro" 
+                   long_name="Used number of subtimestep in cloud microphysics" 
+                   unit="integer" />
             
             <!-- CO2 condensation parametrization -->

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

@@ -99 +99 @@
   call writediagfi(ngrid,field_name,title,units,0,real(field))
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,real(field))
 #endif
   
@@ -120 +120 @@
   call writediagfi(ngrid,field_name,title,units,2,real(field))
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,real(field))
 #endif
   
@@ -147 +147 @@
   endif
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,real(field))
 #endif
   
@@ -173 +173 @@
   call writediagfi(ngrid,field_name,title,units,0,field_real)
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,field_real)
 #endif
   
@@ -202 +202 @@
   call writediagfi(ngrid,field_name,title,units,2,field_real(:))
 #ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
+  call send_xios_field(field_name,field_real)
 #endif
   
@@ -241 +241 @@
   endif
 
+#ifdef CPP_XIOS 
+  call send_xios_field(field_name,field_real)
+#endif
+  
   deallocate(field_real)
 
-#ifdef CPP_XIOS 
-  call send_xios_field(field_name,field)
-#endif
-  
   END SUBROUTINE write_output_l2