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

Timestamp:

Jun 12, 2023, 4:38:28 PM (19 months ago)

Author:

romain.vande

Message:

Mars PEM :

Adapt PEM to 1d runs.
Cleaning of names and unused variables.
Correct minor errors.
Adapt and correct reshape_xios_output utilitary for 1d diagfi output.

RV

File:

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

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

@@ -122 +122 @@
       REAL pks, ptif, w(nlayer)
       REAL qtotinit,qtot
-      real,allocatable :: mqtot(:)
       INTEGER ierr, aslun
       REAL tmp1(0:nlayer),tmp2(0:nlayer)
@@ -287 +286 @@
         allocate(dq(nlayer,nq))
         allocate(dqdyn(nlayer,nq))
-        allocate(mqtot(nq))
         allocate(tnom_transp(nq))