Changeset 4161 for trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90

Timestamp:

Apr 1, 2026, 3:17:47 PM (8 days ago)

Author:

jmauxion

Message:

Mars PCM:

• Fix improvedclouds_mod by adding a missing "else" condition on zdq.
• Add the possibility to output watercaptag in physiq_mod.
• Fix write_output to handle logical arrays with an unstructured grid.
• Update some of the utils (localtime/zrecast) to handle phisfi.

JM

File:

• trunk/LMDZ.MARS/libf/phymars/write_output_mod.F90 (modified) (1 diff)

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

@@ -285 +285 @@
 logical, dimension(:), intent(in) :: field
 ! Local argument used to convert logical to real
-real, dimension(ngrid) :: field_real
-logical :: is_active ! For XIOS, should this field be sent or not
-
+real, allocatable, dimension(:) :: field_real
+logical :: is_active ! For XIOS, should this field be sent or not
+
+allocate(field_real(size(field,1)))
 field_real = 0.
 where (field) field_real = 1.