Changeset 467460a in flexpart.git for src/ew.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/ew.f90 (modified) (1 diff)

src/ew.f90

@@ -14 +14 @@
 
   ew=0.
-  if(x.le.0.) stop 'sorry: t not in [k]'
+  if(x.le.0.) then
+    write(*,*) 'in ew.f90: x=', x
+    stop 'sorry: t not in [k]'
+  end if
+
   y=373.16/x
   a=-7.90298*(y-1.)