Ignore:
Timestamp:
Dec 23, 2013, 6:23:38 PM (9 years ago)
Author:
igpis
Message:

move version 9.1.8 form branches to trunk. Contributions from HSO, saeck, pesei, NIK, RT, XKF, IP and others

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/concoutput.f90

    r4 r20  
    108108  write(adate,'(i8.8)') jjjjmmdd
    109109  write(atime,'(i6.6)') ihmmss
     110  open(unitdates,file=path(2)(1:length(2))//'dates', ACCESS='APPEND')
    110111  write(unitdates,'(a)') adate//atime
    111 
     112  close(unitdates) 
    112113
    113114  ! For forward simulations, output fields have dimension MAXSPEC,
     
    158159        yl=outlat0+real(jy)*dyout
    159160        xl=(xl-xlon0)/dx
    160         yl=(yl-ylat0)/dx
     161        yl=(yl-ylat0)/dy !v9.1.1
    161162        iix=max(min(nint(xl),nxmin1),0)
    162163        jjy=max(min(nint(yl),nymin1),0)
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG