From 628c777c1a26b1320ce64b5acad1bdc6f85475bf Mon Sep 17 00:00:00 2001 From: Sabine <sabine.eckhardt@nilu.no> Date: Thu, 27 Jun 2024 14:35:20 +0200 Subject: [PATCH] write out a file containing the summed footprint --- prep_regions/prep_regions.f90 | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/prep_regions/prep_regions.f90 b/prep_regions/prep_regions.f90 index ad66a6d..1aa8d19 100644 --- a/prep_regions/prep_regions.f90 +++ b/prep_regions/prep_regions.f90 @@ -130,6 +130,15 @@ program prep_regions varname = 'regions' call write_ncdf(files, filename, varname, nbox_xy) + ! write the average fooptrint for all receptors + open(50,file=trim(files%path_output)//'all_footprint_average.txt') + do ix=1,nxregrid + do jy=1,nyregrid + write(50,*) reg_lon(ix), reg_lat(jy), surfinf(ix,jy) + end do + end do + close(50) + ! write lsm allocate( mask(nxregrid,nyregrid), stat=ierr) mask=lsm -- GitLab