Ignore:
Timestamp:
Aug 15, 2013, 3:23:48 PM (11 years ago)
Author:
hasod
Message:

ADD: namelist input implemented for all common input files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/flexpart91_hasod/src_parallel/readavailable.f90

    r8 r10  
    4646  ! numbwf               actual number of wind fields                          *
    4747  ! wfname(maxwf)        file names of needed wind fields                      *
    48   ! wfspec(maxwf)        file specifications of wind fields (e.g., if on disc) *
    4948  ! wftime(maxwf) [s]times of wind fields relative to beginning time           *
    50   ! wfname1,wfspec1,wftime1 = same as above, but only local (help variables)   *
     49  ! wfname1,wftime1 = same as above, but only local (help variables)   *
    5150  !                                                                            *
    5251  ! Constants:                                                                 *
     
    6463  integer :: wftime1n(maxnests,maxwf),wftimen(maxnests,maxwf)
    6564  real(kind=dp) :: juldate,jul,beg,end
    66   character(len=255) :: fname,spec,wfname1(maxwf),wfspec1(maxwf)
     65  character(len=255) :: fname,spec,wfname1(maxwf)
    6766  character(len=255) :: wfname1n(maxnests,maxwf)
    68   character(len=40) :: wfspec1n(maxnests,maxwf)
    6967
    7068
     
    109107
    110108      wfname1(numbwf)=fname(1:index(fname,' '))
    111       wfspec1(numbwf)=spec
    112109      wftime1(numbwf)=nint((jul-bdate)*86400._dp)
    113110    endif
     
    146143
    147144        wfname1n(k,numbwfn(k))=fname
    148         wfspec1n(k,numbwfn(k))=spec
    149145        wftime1n(k,numbwfn(k))=nint((jul-bdate)*86400._dp)
    150146      endif
     
    205201    do i=1,numbwf
    206202      wfname(i)=wfname1(i)
    207       wfspec(i)=wfspec1(i)
    208203      wftime(i)=wftime1(i)
    209204    end do
     
    211206      do i=1,numbwfn(k)
    212207        wfnamen(k,i)=wfname1n(k,i)
    213         wfspecn(k,i)=wfspec1n(k,i)
    214208        wftimen(k,i)=wftime1n(k,i)
    215209      end do
     
    218212    do i=1,numbwf
    219213      wfname(numbwf-i+1)=wfname1(i)
    220       wfspec(numbwf-i+1)=wfspec1(i)
    221214      wftime(numbwf-i+1)=wftime1(i)
    222215    end do
     
    224217      do i=1,numbwfn(k)
    225218        wfnamen(k,numbwfn(k)-i+1)=wfname1n(k,i)
    226         wfspecn(k,numbwfn(k)-i+1)=wfspec1n(k,i)
    227219        wftimen(k,numbwfn(k)-i+1)=wftime1n(k,i)
    228220      end do
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG