Changeset fe118c0 in flexpart.git for src/verttransform_ecmwf.f90

Timestamp:

May 7, 2020, 2:59:59 PM (4 years ago)

Author:

pesei <petra.seibert at univie.ac.at>

Branches:

10.4.1_pesei, bugfixes+enhancements, release-10.4.1, scaling-bug

Children:

5cbd51b

Parents:

3d7eebf

Message:

Correct makefile w.r.t. netcdf yes/no and grib_api dependencies
Cosmetic correction on verttransform_ecmwf.f90

File:

• src/verttransform_ecmwf.f90 (modified) (4 diffs)

src/verttransform_ecmwf.f90

@@ -37 +37 @@
 !*****************************************************************************
 ! Date: 2017-05-30 modification of a bug in ew. Don Morton (CTBTO project)   *
+!*****************************************************************************
+! PS 2020-07-05: 
+! remove superfluous comma in write, write and open to lowercase
 !*****************************************************************************
 !                                                                            *
@@ -727 +730 @@
 !teller(:)=0
 virr=virr+1
-WRITE(aspec, '(i3.3)'), virr
+write(aspec, '(i3.3)') virr
 
 !if (readclouds) then
@@ -775 +778 @@
 !OPEN(UNIT=114, FILE=fnameD,FORM='FORMATTED',STATUS = 'UNKNOWN')
 !else
-OPEN(UNIT=115, FILE=fnameH,FORM='FORMATTED',STATUS = 'UNKNOWN')
-OPEN(UNIT=116, FILE=fnameI,FORM='FORMATTED',STATUS = 'UNKNOWN')
-OPEN(UNIT=117, FILE=fnameJ,FORM='FORMATTED',STATUS = 'UNKNOWN')
+open(unit=115, file=fnameh,form='formatted',status = 'unknown')
+open(unit=116, file=fnamei,form='formatted',status = 'unknown')
+open(unit=117, file=fnamej,form='formatted',status = 'unknown')
 !endif
 !
@@ -799 +802 @@
 !CLOSE(114)
 !else
-CLOSE(115)
-CLOSE(116)
-CLOSE(117)
+close(115)
+close(116)
+close(117)
 endif
 !endif