Changeset 3f149cc in flexpart.git for src/readOHfield.f90


Ignore:
Timestamp:
Apr 5, 2018, 1:39:16 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:
20963b1
Parents:
a9cf4b1
Message:

Removed unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/readOHfield.f90

    ra9cf4b1 r3f149cc  
    5050  implicit none
    5151
    52   character(len=150) :: thefile
    53   character(len=2) :: mm
    54   integer :: nid,ierr,xid,yid,zid,vid,m
    55   integer :: i,j,k,l
     52  integer :: i,j,k,l,ierr
    5653  real, dimension(:), allocatable :: etaOH
    5754
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG