Changeset 2932 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Apr 3, 2023, 6:17:05 PM (21 months ago)

Author:

romain.vande

Message:

Mars PCM:
Add a new routine to write output called write_output.
It needs to be imported (for example : use write_output_mod, only: write_output)
Then, it requires only 4 arguments : the name of the variable, its title, its units and the variable itself.
It detects the dimension of the variable and decide to output either in diagfi or diagsoil.
It is also compatible with XIOS (xml file needs to be adapted)
Writediagfi and writediagsoil routines are still available in case.
RV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -41 +41 @@
      &                  nf90_strerror
       use iostart, only: open_startphy,get_var, close_startphy
+      use write_output_mod, only: write_output
       IMPLICIT NONE
 
@@ -852 +853 @@
           ENDIF  !((iq.eq.igcm_h2o_vap).and.(atm_wat_profile.eq.2)) THEN
         ENDDO
-        CALL WRITEDIAGFI(ngrid,'qsat',
+        CALL write_output('qsat',
      &                         'qsat',
-     &                         'kg/kg',1,zqsat)
+     &                         'kg/kg',zqsat(:))