Changeset a9cf4b1 in flexpart.git for src/readOHfield.f90

Timestamp:

Apr 5, 2018, 12:30:54 PM (6 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

3f149cc

Parents:

8fcfd08

Message:

Made enabling netCDF output during compilation optional

File:

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

src/readOHfield.f90

@@ -95 +95 @@
   read(unitOH) ((((OH_field(i,j,k,l),i=1,nxOH),j=1,nyOH),k=1,nzOH),l=1,12)
   read(unitOH) ((((OH_hourly(i,j,k,l),i=1,nxOH),j=1,nyOH),k=1,nzOH),l=1,2)
-  write(*,*) 'nzOH: ',nzOH,(altOH(i),i=1,nzOH) 
 
 end subroutine readOHfield