Changeset 467460a in flexpart.git for src/calcmatrix.f90

Timestamp:

Mar 13, 2021, 10:00:37 AM (3 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

GFS_025, dev

Children:

9ca6e38

Parents:

759df5f

Message:

First commit of files from Hachinger

File:

• src/calcmatrix.f90 (modified) (1 diff)

src/calcmatrix.f90

@@ -71 +71 @@
     k = kuvz-1
     if (metdata_format.eq.GRIBFILE_CENTRE_ECMWF) then
-    pconv(k) = (akz(kuvz) + bkz(kuvz)*psconv)
-    phconv(kuvz) = (akm(kuvz) + bkm(kuvz)*psconv)
+      pconv(k) = (akz(kuvz) + bkz(kuvz)*psconv)
+      phconv(kuvz) = (akm(kuvz) + bkm(kuvz)*psconv)
     else
       phconv(kuvz) =  0.5*(pconv(kuvz)+pconv(k))