Changeset 2808 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 20, 2022, 10:09:46 AM (3 years ago)

Author:

emillour

Message:

Mars GCM:
Bug fix in jthermcalc_e107 (wrong indexes used in some computations involving
NO2 and H2).
AM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -2999 +2999 @@
 c        call WRITEDIAGFI(ngrid,"pplay","Pressure","Pa",3,zplay)
 c        call WRITEDIAGFI(ngrid,"pplev","Pressure","Pa",3,zplev)
+         call writediagfi(ngrid,"pphi","Geopotential","m2s-2",3,
+     &                    pphi)
+         call writediagfi(ngrid,"phisfi","Surface geopotential",
+     &                    "m2s-2",2,phisfi)
          call WRITEDIAGFI(ngrid,"tsurf","Surface temperature","K",2,
      &                  tsurf)