Changeset f13406c in flexpart.git for src/concoutput.f90
- Timestamp:
- Dec 23, 2013, 6:23:38 PM (10 years ago)
- Branches:
- master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, NetCDF, bugfixes+enhancements, deposition, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, inputlist, laptop, release-10, release-10.4.1, scaling-bug, svn-petra, svn-trunk, univie
- Children:
- 4fbe7a5
- Parents:
- e200b7a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/concoutput.f90
re200b7a rf13406c 108 108 write(adate,'(i8.8)') jjjjmmdd 109 109 write(atime,'(i6.6)') ihmmss 110 open(unitdates,file=path(2)(1:length(2))//'dates', ACCESS='APPEND') 110 111 write(unitdates,'(a)') adate//atime 111 112 close(unitdates) 112 113 113 114 ! For forward simulations, output fields have dimension MAXSPEC, … … 158 159 yl=outlat0+real(jy)*dyout 159 160 xl=(xl-xlon0)/dx 160 yl=(yl-ylat0)/d x161 yl=(yl-ylat0)/dy !v9.1.1 161 162 iix=max(min(nint(xl),nxmin1),0) 162 163 jjy=max(min(nint(yl),nymin1),0)
Note: See TracChangeset
for help on using the changeset viewer.