Ignore:
Timestamp:
Feb 16, 2015, 6:21:09 PM (9 years ago)
Author:
pesei
Message:

Implement switch for incremental deposition, see ticket:113 and many small changes, see changelog.txt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/petra/src/skplin.f90

    r4 r36  
    11!**********************************************************************
    2 ! Copyright 1998,1999,2000,2001,2002,2005,2007,2008,2009,2010         *
     2! Copyright 1998-2015                                                 *
    33! Andreas Stohl, Petra Seibert, A. Frank, Gerhard Wotawa,             *
    44! Caroline Forster, Sabine Eckhardt, John Burkhart, Harald Sodemann   *
     
    2121
    2222subroutine skplin(nlines,iunit)
    23   !                    i      i
     23  !                 i      i 
    2424  !*****************************************************************************
    2525  !                                                                            *
     
    3838  !                                                                            *
    3939  !*****************************************************************************
     40  ! PS 2/2015: catch EOF condition so that we can
     41  ! have optional parameters at end of list for compatibility
    4042
     43 
    4144  implicit none
    4245
    43   integer :: i,iunit, nlines
     46  integer, intent(in)  :: nlines, iunit
     47  integer :: i, icmdstat
    4448
    4549  do i=1,nlines
    46     read(iunit,*)
     50    read(iunit,*,iostat=icmdstat)
    4751  end do
    48 
     52   
    4953end subroutine skplin
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG