Changeset 4058 for trunk/LMDZ.MARS/libf/aeronomars/surfacearea.F

Timestamp:

Feb 10, 2026, 9:46:10 AM (9 days ago)

Author:

emillour

Message:

Mars PCM:
Add a "output_diagfi" (default .true.) flag so that the user can decide if
a diagfi.nc file should be outputted.
Also do some cleaning around the few remaining calls to writediagfi
or reference to it througout the code; write_output() should be used.
EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/surfacearea.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/surfacearea.F

@@ -16 +16 @@
       use comcstfi_h, only: pi
       use wstats_mod, only: wstats
+      use write_output_mod, only: write_output
       use callkeys_mod, only: microphys
       implicit none
@@ -126 +127 @@
      $            "micron2 cm-3",3,surfice*1.e6)
 
-      call writediagfi(ngrid,"surfdust", "Dust surface area",
-     $            "micron2 cm-3",3,surfdust*1.e6)
-      call writediagfi(ngrid,"surfice", "Ice cloud surface area",
-     $            "micron2 cm-3",3,surfice*1.e6)
+      call write_output("surfdust","Dust surface area",
+     &                  "micron2 cm-3",surfdust*1.e6)
+      call write_output("surfice","Ice cloud surface area",
+     &                  "micron2 cm-3",surfice*1.e6)
 
       end subroutine surfacearea