Skip to content
Snippets Groups Projects
Commit cba4a794 authored by ronesy's avatar ronesy
Browse files

Update for lognormal pdf in control space and minor bug fixes

parent b28c96f4
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 278 additions and 150 deletions
README.txt
+ 1
− 35
View file @ cba4a794
...@@ -14,7 +14,7 @@ Contents: ...@@ -14,7 +14,7 @@ Contents:
- selects (and optionally averages) observations and prepares - selects (and optionally averages) observations and prepares
flexpart runs with releases for each observation flexpart runs with releases for each observation
- flexpart grid_time output files written per release - flexpart grid_time output files written per release
- note need FLEXPART-v10.2beta - note need at least FLEXPART-v10.2
2) prep_fluxes: 2) prep_fluxes:
- regrids fluxes (fluxes need to be at the same spatial - regrids fluxes (fluxes need to be at the same spatial
resolution as the flexpart grid_time files) resolution as the flexpart grid_time files)
...@@ -38,37 +38,3 @@ Contents: ...@@ -38,37 +38,3 @@ Contents:
- extra tool (not needed for FLEXINVERT-Plus) to convert - extra tool (not needed for FLEXINVERT-Plus) to convert
the binary grid_time files to NetCDF the binary grid_time files to NetCDF
Testing environment:
Basic test data are provided for four example cases, for both
a CH4 and a CO2 inversion and both with and without a nested
domain. The SETTINGS and FLUXES configuration files are
provided for the examples and only need to be editted for the
root directory. Note to run the tests the user has to provide
meteo data for FLEXPART (these are not included).
TEST_INPUT:
1) FLEXPART:
- directory where FLEXPART options files etc are written
- used in "prep_flexpart"
2) OBS:
- directory containing raw observation files
- used in "prep_flexpart"
3) FLUXES:
- directory containing raw flux files
- used in "prep_fluxes"
TEST_OUTPUT:
1) FLEXOUT:
- directory where FLEXPART grid_time and grid_initial
files are written (in step "prep_flexpart")
2) OBS:
- directory where processed observations are written
(in step "prep_flexpart")
3) FLUXES
- directory where processed fluxes are written
(in step "prep_fluxes")
4) RESULTS
- directory where inversion output are written
grid_to_ncdf/SETTINGS
+ 2
− 2
View file @ cba4a794
...@@ -19,8 +19,8 @@ file_recept: /myfile.txt ...@@ -19,8 +19,8 @@ file_recept: /myfile.txt
# Run dates: format yyyymmdd # Run dates: format yyyymmdd
# datei = start date # datei = start date
# datef = end date # datef = end date
datei: 20140701 datei: 20120101
datef: 20140831 datef: 20120131
# Nested output (true/false) # Nested output (true/false)
lnested: .true. lnested: .true.
......
prep_fluxes/FLUXES_ghg
+ 6
− 6
View file @ cba4a794
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
# ntime = number of time steps # ntime = number of time steps
# timeref = ref date if timestamp is julian days (yyyymmdd) otherwise 0 # timeref = ref date if timestamp is julian days (yyyymmdd) otherwise 0
# timestamp = sec or month (if julian days and timeref is not 0 this is ignored) # timestamp = sec or month (if julian days and timeref is not 0 this is ignored)
file_in: /mypath/TEST_INPUT/FLUXES/GHG/CH4_TOTAL_2012_05x05.nc file_in: ../TEST_CASE_CH4/INPUT/FLUX/CH4_TOTAL_2012_05x05.nc
varname_in: emisch4 varname_in: emisch4
lonname_in: longitude lonname_in: longitude
latname_in: latitude latname_in: latitude
...@@ -38,17 +38,17 @@ timestamp: ...@@ -38,17 +38,17 @@ timestamp:
# ntime_out = number of time steps # ntime_out = number of time steps
# llx_out = left longitude of domain # llx_out = left longitude of domain
# lly_out = lower latitude of domain # lly_out = lower latitude of domain
file_out: /mypath/TEST_OUTPUT/FLUXES/GHG/CH4_TOTAL_2012_10x10.nc file_out: ../TEST_CASE_CH4/INPUT/FLUX/CH4_TOTAL_2012_20x20.nc
varname_out: emisch4 varname_out: emisch4
varunit: kgC/m2/h varunit: kgC/m2/h
lonname_out: longitude lonname_out: longitude
latname_out: latitude latname_out: latitude
timename_out: time timename_out: time
year: 2012 year: 2012
nx_out: 360 nx_out: 180
ny_out: 180 ny_out: 90
dx_out: 1.0 dx_out: 2.0
dy_out: 1.0 dy_out: 2.0
ntime_out: 12 ntime_out: 12
llx_out: -180 llx_out: -180
lly_out: -90 lly_out: -90
......
prep_regions/.sort.f90.swp deleted 100644 → 0
+ 0
− 0
View file @ b28c96f4
File deleted
prep_syndata/get_error_cov.f90
+ 4
− 1
View file @ cba4a794
...@@ -24,7 +24,7 @@ ...@@ -24,7 +24,7 @@
!! !!
!--------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------
subroutine get_error_cov(files) subroutine get_error_cov(files, config)
use mod_var use mod_var
use mod_settings use mod_settings
...@@ -32,6 +32,7 @@ subroutine get_error_cov(files) ...@@ -32,6 +32,7 @@ subroutine get_error_cov(files)
implicit none implicit none
type(files_t), intent(in) :: files type(files_t), intent(in) :: files
type(config_t), intent(in) :: config
character(len=max_path_len) :: filename character(len=max_path_len) :: filename
character(len=max_path_len) :: rowfmt character(len=max_path_len) :: rowfmt
...@@ -98,6 +99,8 @@ subroutine get_error_cov(files) ...@@ -98,6 +99,8 @@ subroutine get_error_cov(files)
stat_time(i) = juldatei + (i-1)*statres stat_time(i) = juldatei + (i-1)*statres
end do end do
print*, 'stat_time = ',stat_time
allocate ( cort(ntstate,ntstate) ) allocate ( cort(ntstate,ntstate) )
filename = trim(files%path_output)//'cort.txt' filename = trim(files%path_output)//'cort.txt'
inquire(file=trim(filename),exist=lexist) inquire(file=trim(filename),exist=lexist)
......
prep_syndata/get_flux.f90
+ 30
− 3
View file @ cba4a794
...@@ -27,7 +27,6 @@ ...@@ -27,7 +27,6 @@
!! config - configuration settings data structure !! config - configuration settings data structure
!! files - file data structure !! files - file data structure
!! flx - fluxes !! flx - fluxes
!! state - prior state vector
!! !!
!! Externals !! Externals
!! caldate !! caldate
...@@ -35,7 +34,7 @@ ...@@ -35,7 +34,7 @@
!! !!
!--------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------
subroutine get_flux(config, files, flx) subroutine get_flux(config, files, flx, state)
use mod_var use mod_var
use mod_settings use mod_settings
...@@ -48,20 +47,23 @@ subroutine get_flux(config, files, flx) ...@@ -48,20 +47,23 @@ subroutine get_flux(config, files, flx)
type (config_t), intent(in) :: config type (config_t), intent(in) :: config
type (files_t), intent(in) :: files type (files_t), intent(in) :: files
real, dimension(nxgrid,nygrid,nt_flx), intent(in out) :: flx real, dimension(nxgrid,nygrid,nt_flx), intent(in out) :: flx
real, dimension(nvar), intent(in out) :: state
character(len=max_path_len) :: filename character(len=max_path_len) :: filename
character(len=max_name_len) :: varname, lonname, latname, timename character(len=max_name_len) :: varname, lonname, latname, timename
character(len=4) :: adate character(len=4) :: adate
real(kind=8) :: jd, jdi real(kind=8) :: jd, jdi
integer :: jjjjmmdd, hhmiss integer :: jjjjmmdd, hhmiss
integer :: n, i, ierr integer :: n, i, ierr, ix, jy, ix1, jy1, nt
integer :: nread, num integer :: nread, num
logical :: lexist logical :: lexist
real :: area real :: area
real :: frac real :: frac
real, dimension(:,:,:), allocatable :: tmp real, dimension(:,:,:), allocatable :: tmp
real, parameter :: smallnum = 1.e-15
allocate( flx_time(nt_flx) ) allocate( flx_time(nt_flx) )
flx_time(:) = 0.
! read prior fluxes ! read prior fluxes
! ----------------- ! -----------------
...@@ -182,6 +184,31 @@ subroutine get_flux(config, files, flx) ...@@ -182,6 +184,31 @@ subroutine get_flux(config, files, flx)
endif endif
! get state variables
! if ( config%lognormal ) then
! ! coordinates to global domain
! ix1 = minloc(gbl_lon,dim=1,mask=abs(gbl_lon-rllx).eq.minval(abs(gbl_lon-rllx)))
! jy1 = minloc(gbl_lat,dim=1,mask=abs(gbl_lat-rlly).eq.minval(abs(gbl_lat-rlly)))
! do nt = 1, ntstate
! do jy = 1, nyregrid
! do ix = 1, nxregrid
! if(nbox_xy(ix,jy).gt.0) then
! area = grid_area(reg_lat(jy)+0.5*rdy, rdy, rdx)
! state((nt-1)*nbox+nbox_xy(ix,jy)) = state((nt-1)*nbox+nbox_xy(ix,jy)) + flx(ix1+ix-1,jy1+jy-1,nt)*area
! endif
! end do
! end do
! end do
! do nt = 1, ntstate
! state((nt-1)*nbox+1:nt*nbox) = state((nt-1)*nbox+1:nt*nbox)/area_box
! end do
! where ( state.le.0 ) state = smallnum
! state = log(state)
! else
state(:) = 0.
! endif
print*, 'flx_time = ',flx_time
end subroutine get_flux end subroutine get_flux
......
prep_syndata/get_obs.f90
+ 25
− 17
View file @ cba4a794
...@@ -48,8 +48,8 @@ subroutine get_obs(config, files, obs, obserr) ...@@ -48,8 +48,8 @@ subroutine get_obs(config, files, obs, obserr)
character(len=max_path_len) :: rowfmt, dump character(len=max_path_len) :: rowfmt, dump
logical :: lexist logical :: lexist
integer :: jjjjmmdd, hhmiss, i, ierr integer :: jjjjmmdd, hhmiss, i, ierr
real :: jdate, conc, post, delta real :: jdate, conc, post, delta, cinipos
real, dimension(maxobs) :: cini, bkg, nee, fff, ocn, bbg, prior, ghg real, dimension(maxobs) :: cini, bkg, nee, fff, ocn, prior, ghg
character(len=3) :: recs character(len=3) :: recs
obs(:) = 0. obs(:) = 0.
...@@ -58,7 +58,6 @@ subroutine get_obs(config, files, obs, obserr) ...@@ -58,7 +58,6 @@ subroutine get_obs(config, files, obs, obserr)
nee(:) = 0. nee(:) = 0.
fff(:) = 0. fff(:) = 0.
ocn(:) = 0. ocn(:) = 0.
bbg(:) = 0.
prior(:) = 0. prior(:) = 0.
ghg(:) = 0. ghg(:) = 0.
...@@ -75,20 +74,15 @@ subroutine get_obs(config, files, obs, obserr) ...@@ -75,20 +74,15 @@ subroutine get_obs(config, files, obs, obserr)
if ( config%spec.eq.'co2' ) then if ( config%spec.eq.'co2' ) then
write(rowfmt,'(A,I6,A)') '(A3,1X,I8,1X,I6,1X,F14.6,1X,',11,'(F10.4,1X))' write(rowfmt,'(A,I6,A)') '(A3,1X,I8,1X,I6,1X,F14.6,1X,',11,'(F10.4,1X))'
do i = 1, maxobs do i = 1, maxobs
read(100,fmt=rowfmt,iostat=ierr) recs, jjjjmmdd, hhmiss, jdate, conc, cini(i), bkg(i), & read(100,fmt=rowfmt,iostat=ierr) recs, jjjjmmdd, hhmiss, jdate, conc, cini(i), cinipos, bkg(i), &
nee(i), fff(i), ocn(i), bbg(i), prior(i), post, delta, obserr(i) nee(i), fff(i), ocn(i), prior(i), post, delta, obserr(i)
if ( ierr.ne.0 ) exit if ( ierr.ne.0 ) exit
end do end do
else else
write(rowfmt,'(A,I6,A)') '(A3,1X,I8,1X,I6,1X,F14.6,1X,',8,'(F10.4,1X))' write(rowfmt,'(A,I6,A)') '(A3,1X,I8,1X,I6,1X,F14.6,1X,',9,'(F10.4,1X))'
do i = 1, maxobs do i = 1, maxobs
if ( config%offsets ) then read(100,fmt=rowfmt,iostat=ierr) recs, jjjjmmdd, hhmiss, jdate, conc, cini(i), cinipos, bkg(i), &
read(100,fmt=rowfmt,iostat=ierr) recs, jjjjmmdd, hhmiss, jdate, conc, cini(i), bkg(i), & ghg(i), prior(i), post, delta, obserr(i)
ghg(i), prior(i), post, delta, obserr(i)
else
read(100,fmt=rowfmt,iostat=ierr) recs, jjjjmmdd, hhmiss, jdate, conc, cini(i), bkg(i), &
ocn(i), prior(i), post, delta, obserr(i)
endif
if ( ierr.ne.0 ) exit if ( ierr.ne.0 ) exit
end do end do
endif endif
...@@ -96,16 +90,30 @@ subroutine get_obs(config, files, obs, obserr) ...@@ -96,16 +90,30 @@ subroutine get_obs(config, files, obs, obserr)
nobs = i - 1 nobs = i - 1
print*, 'nobs: ',nobs print*, 'nobs: ',nobs
! check obserr
do i = 1, nobs
if( obserr(i).eq.9.99 .or. obserr(i).eq.0. ) obserr(i) = config%measerr
end do
if ( config%spec.eq.'co2' ) then if ( config%spec.eq.'co2' ) then
obs = cini + bkg + nee + fff + ocn + bbg obs = cini + bkg + nee + fff + ocn
else else
if ( config%offsets ) then if ( config%lognormal ) then
obs = cini + bkg + ghg + prior ! lognormal
obs = cini + bkg + prior
else else
obs = cini + bkg + ocn + prior ! normal
obs = cini + bkg + ghg + prior
endif endif
endif endif
open(100,file=trim(files%path_output)//'obs.txt',status='replace',action='write')
do i = 1, nobs
write(100,fmt='(F10.4)') obs(i)
end do
close(100)
end subroutine get_obs end subroutine get_obs
prep_syndata/initialize.f90
+ 1
− 0
View file @ cba4a794
...@@ -113,6 +113,7 @@ subroutine initialize(files, config) ...@@ -113,6 +113,7 @@ subroutine initialize(files, config)
! number days in inversion interval ! number days in inversion interval
nday = int(juldatef - juldatei + 1.) nday = int(juldatef - juldatei + 1.)
write(logid,*) 'initialize: nday = ',nday
! number of NEE fields per day ! number of NEE fields per day
if ( config%spec.eq.'co2' ) then if ( config%spec.eq.'co2' ) then
......
prep_syndata/makefile
+ 1
− 0
View file @ cba4a794
...@@ -25,6 +25,7 @@ SRCS = mod_var.f90 \ ...@@ -25,6 +25,7 @@ SRCS = mod_var.f90 \
get_flux.f90 \ get_flux.f90 \
get_error_cov.f90 \ get_error_cov.f90 \
get_obs.f90 \ get_obs.f90 \
calc_error_cov.f90 \
prep_syndata.f90 prep_syndata.f90
OBJECTS = $(SRCS:.f90=.o) OBJECTS = $(SRCS:.f90=.o)
......
prep_syndata/mod_perturb.f90
+ 18
− 4
View file @ cba4a794
...@@ -102,10 +102,11 @@ module mod_perturb ...@@ -102,10 +102,11 @@ module mod_perturb
end do end do
do it = 1, ntstate do it = 1, ntstate
perturb((jt-1)*ndvar+k) = perturb((jt-1)*ndvar+k) + sqcort(jt,it) * & perturb((jt-1)*ndvar+k) = perturb((jt-1)*ndvar+k) + sqcort(jt,it) * &
dot_product(tmp1,dble(rvec((it-1)*ndvar+1:it*ndvar))) dot_product(tmp1,dble(rvec((it-1)*ndvar+1:it*ndvar)))
end do end do
end do end do
end do end do
print*, 'min/max perturbation = ',minval(perturb), maxval(perturb)
! add perturbation to state vector ! add perturbation to state vector
state(:) = state(:) + real(perturb(:),kind=4) state(:) = state(:) + real(perturb(:),kind=4)
...@@ -113,15 +114,24 @@ module mod_perturb ...@@ -113,15 +114,24 @@ module mod_perturb
! testing ! testing
open(100,file=trim(files%path_output)//'pert_state.txt',status='replace',action='write') open(100,file=trim(files%path_output)//'pert_state.txt',status='replace',action='write')
do i = 1, nvar do i = 1, nvar
write(100,fmt='(F14.4)') perturb(i) write(100,fmt='(F14.8)') perturb(i)
end do end do
close(100) close(100)
open(100,file=trim(files%path_output)//'state_pert.txt',status='replace',action='write')
do i = 1, nvar
write(100,fmt='(F14.8)') state(i)
end do
open(100,file=trim(files%path_output)//'rvec.txt',status='replace',action='write') open(100,file=trim(files%path_output)//'rvec.txt',status='replace',action='write')
do i = 1, nvar do i = 1, nvar
write(100,fmt='(F10.8)') rvec(i) write(100,fmt='(F10.8)') rvec(i)
end do end do
close(100) close(100)
if ( config%lognormal ) then
! lognormal
state(:) = exp(state)
endif
end subroutine perturb_flux end subroutine perturb_flux
! -------------------------------------------------- ! --------------------------------------------------
...@@ -169,6 +179,11 @@ module mod_perturb ...@@ -169,6 +179,11 @@ module mod_perturb
write(100,fmt='(F10.4)') perturb(i) write(100,fmt='(F10.4)') perturb(i)
end do end do
close(100) close(100)
open(100,file=trim(files%path_output)//'obs_pert.txt',status='replace',action='write')
do i = 1, nobs
write(100,fmt='(F10.4)') obs(i)
end do
close(100)
end subroutine perturb_obs end subroutine perturb_obs
...@@ -207,12 +222,11 @@ module mod_perturb ...@@ -207,12 +222,11 @@ module mod_perturb
end do end do
deallocate(seedvec) deallocate(seedvec)
! note: normalization not needed with random_normal function!
! normalize random numbers ! normalize random numbers
! not needed with random_normal - RT 12/20
! rvec = rvec*num/sum(rvec) ! rvec = rvec*num/sum(rvec)
! mean of zero ! mean of zero
! not needed with random_normal - RT 12/20
! rvec = rvec - 1. ! rvec = rvec - 1.
end subroutine randnum end subroutine randnum
......
prep_syndata/mod_save.f90
+ 51
− 11
View file @ cba4a794
...@@ -81,6 +81,8 @@ module mod_save ...@@ -81,6 +81,8 @@ module mod_save
real(kind=8) :: jd real(kind=8) :: jd
integer :: yyyymmdd, hhmiss integer :: yyyymmdd, hhmiss
flx_out(:,:,:) = 0.
! coordinates to global domain ! coordinates to global domain
ix1 = minloc(gbl_lon,dim=1,mask=abs(gbl_lon-rllx).eq.minval(abs(gbl_lon-rllx))) ix1 = minloc(gbl_lon,dim=1,mask=abs(gbl_lon-rllx).eq.minval(abs(gbl_lon-rllx)))
ix2 = minloc(gbl_lon,dim=1,mask=abs(gbl_lon-(rurx-rdx)).eq.minval(abs(gbl_lon-(rurx-rdx)))) ix2 = minloc(gbl_lon,dim=1,mask=abs(gbl_lon-(rurx-rdx)).eq.minval(abs(gbl_lon-(rurx-rdx))))
...@@ -147,43 +149,81 @@ module mod_save ...@@ -147,43 +149,81 @@ module mod_save
if ( config%spec.eq.'ghg' ) then if ( config%spec.eq.'ghg' ) then
! GHG species ! GHG species
do n = 1, nt_flx jd = juldatei
n = 1
do while ( (jd.lt.juldatef).and.(n.lt.nt_flx) )
nt = minloc(stat_time,dim=1,mask=abs(stat_time-flx_time(n)).eq.minval(abs(stat_time-flx_time(n)))) nt = minloc(stat_time,dim=1,mask=abs(stat_time-flx_time(n)).eq.minval(abs(stat_time-flx_time(n))))
nt = min(nt,ntstate) nt = min(nt,ntstate)
print*, 'stat_time(nt), flx_time(n) = ',stat_time(nt), flx_time(n) print*, 'stat_time(nt), flx_time(n) = ',stat_time(nt), flx_time(n)
do jy = 1, nyregrid do jy = 1, nyregrid
do ix = 1, nxregrid do ix = 1, nxregrid
! if inc_ocean is true state vector includes all fluxes, if false need to add ocean fluxes
if ( nbox_xy(ix,jy).gt.0 ) then if ( nbox_xy(ix,jy).gt.0 ) then
if ( stat_time(nt).lt.flx_time(n).and.(nt.gt.1) ) then if ( stat_time(nt).lt.flx_time(n).and.(nt.gt.1) ) then
! interpolate between previous and current timesteps ! interpolate between previous and current timesteps
flx_out(ix,jy,n) = state((nt-2)*nbox+nbox_xy(ix,jy)) + & if ( config%lognormal ) then
(state((nt-1)*nbox+nbox_xy(ix,jy))-state((nt-2)*nbox+nbox_xy(ix,jy))) * & ! lognormal
(flx_time(n) - stat_time(nt))/statres + & ! flx_out(ix,jy,n) = state((nt-2)*nbox+nbox_xy(ix,jy)) + &
flx(ix1+ix-1,jy1+jy-1,n) ! (state((nt-1)*nbox+nbox_xy(ix,jy))-state((nt-2)*nbox+nbox_xy(ix,jy))) * &
! (flx_time(n) - stat_time(nt))/statres
flx_out(ix,jy,n) = flx(ix1+ix-1,jy1+jy-1,n) * ( state((nt-2)*nbox+nbox_xy(ix,jy)) + &
(state((nt-1)*nbox+nbox_xy(ix,jy))-state((nt-2)*nbox+nbox_xy(ix,jy))) * &
(flx_time(n) - stat_time(nt))/statres )
else
! normal
flx_out(ix,jy,n) = state((nt-2)*nbox+nbox_xy(ix,jy)) + &
(state((nt-1)*nbox+nbox_xy(ix,jy))-state((nt-2)*nbox+nbox_xy(ix,jy))) * &
(flx_time(n) - stat_time(nt))/statres + &
flx(ix1+ix-1,jy1+jy-1,n)
endif
else if ( stat_time(nt).gt.flx_time(n).and.(nt.lt.ntstate) ) then else if ( stat_time(nt).gt.flx_time(n).and.(nt.lt.ntstate) ) then
! interpolate between current and next timesteps ! interpolate between current and next timesteps
flx_out(ix,jy,n) = state((nt-1)*nbox+nbox_xy(ix,jy)) + & if ( config%lognormal ) then
(state(nt*nbox+nbox_xy(ix,jy))-state((nt-1)*nbox+nbox_xy(ix,jy))) * & ! lognormal
(stat_time(nt) - flx_time(n))/statres + & ! flx_out(ix,jy,n) = state((nt-1)*nbox+nbox_xy(ix,jy)) + &
flx(ix1+ix-1,jy1+jy-1,n) ! (state(nt*nbox+nbox_xy(ix,jy))-state((nt-1)*nbox+nbox_xy(ix,jy))) * &
! (stat_time(nt) - flx_time(n))/statres
flx_out(ix,jy,n) = flx(ix1+ix-1,jy1+jy-1,n) * ( state((nt-1)*nbox+nbox_xy(ix,jy)) + &
(state(nt*nbox+nbox_xy(ix,jy))-state((nt-1)*nbox+nbox_xy(ix,jy))) * &
(stat_time(nt) - flx_time(n))/statres )
else
! normal
flx_out(ix,jy,n) = state((nt-1)*nbox+nbox_xy(ix,jy)) + &
(state(nt*nbox+nbox_xy(ix,jy))-state((nt-1)*nbox+nbox_xy(ix,jy))) * &
(stat_time(nt) - flx_time(n))/statres + &
flx(ix1+ix-1,jy1+jy-1,n)
endif
else else
! take current timestep ! take current timestep
flx_out(ix,jy,n) = state((nt-1)*nbox+nbox_xy(ix,jy)) + flx(ix1+ix-1,jy1+jy-1,n) if ( config%lognormal ) then
! flx_out(ix,jy,n) = state((nt-1)*nbox+nbox_xy(ix,jy))
flx_out(ix,jy,n) = flx(ix1+ix-1,jy1+jy-1,n) * state((nt-1)*nbox+nbox_xy(ix,jy))
else
flx_out(ix,jy,n) = state((nt-1)*nbox+nbox_xy(ix,jy)) + flx(ix1+ix-1,jy1+jy-1,n)
endif
endif endif
else
! add ocean fluxes if not optimized
flx_out(ix,jy,n) = flx(ix1+ix-1,jy1+jy-1,n)
endif endif
end do end do
end do end do
jd = jd + statres
n = n + 1
end do end do
endif ! GHG endif ! GHG
print*, 'mod_save: n = ',n
! replace fluxes in inversion domain with perturbed fluxes ! replace fluxes in inversion domain with perturbed fluxes
flx(ix1:ix2,jy1:jy2,:) = flx_out(:,:,:) flx(ix1:ix2,jy1:jy2,1:n) = flx_out(:,:,1:n)
! undo numerical scaling ! undo numerical scaling
flx = flx/numscale flx = flx/numscale
! convert to kg/m2/h ! convert to kg/m2/h
flx = flx*3600. flx = flx*3600.
print*, 'mod_save: min/max flx = ',minval(flx), maxval(flx)
! adjust time to days since 1-Jan-1900 ! adjust time to days since 1-Jan-1900
flx_time = flx_time - juldate(19000101, 0) + 1d0 flx_time = flx_time - juldate(19000101, 0) + 1d0
......
prep_syndata/mod_settings.f90
+ 15
− 0
View file @ cba4a794
...@@ -95,6 +95,8 @@ module mod_settings ...@@ -95,6 +95,8 @@ module mod_settings
integer :: num_nee_day ! number of NEE time steps per day integer :: num_nee_day ! number of NEE time steps per day
real :: statres ! number of flux time steps real :: statres ! number of flux time steps
real :: statres_hr ! sub-daily temporal resolution of state vector (e.g. 6, 12 or 24h) real :: statres_hr ! sub-daily temporal resolution of state vector (e.g. 6, 12 or 24h)
real :: measerr ! measurement error
logical :: lognormal ! use lognormal distribution in state space (true or false)
end type config_t end type config_t
...@@ -457,6 +459,9 @@ module mod_settings ...@@ -457,6 +459,9 @@ module mod_settings
logical :: match, cl logical :: match, cl
character(len=20), dimension(3) :: temp character(len=20), dimension(3) :: temp
! logical defaults
config%lognormal = .false.
! open file ! open file
open (100, file = trim (filename), status = 'old', iostat=ierr) open (100, file = trim (filename), status = 'old', iostat=ierr)
if(ierr.gt.0) then if(ierr.gt.0) then
...@@ -504,6 +509,9 @@ module mod_settings ...@@ -504,6 +509,9 @@ module mod_settings
identifier = "offsets:" identifier = "offsets:"
call read_content (line, identifier, cc, cn, cl, match) call read_content (line, identifier, cc, cn, cl, match)
if ( match ) config%offsets = cl if ( match ) config%offsets = cl
identifier = "lognormal:"
call read_content (line, identifier, cc, cn, cl, match)
if ( match ) config%lognormal = cl
! read inversion domain settings ! read inversion domain settings
identifier = "w_edge_lon:" identifier = "w_edge_lon:"
...@@ -536,11 +544,18 @@ module mod_settings ...@@ -536,11 +544,18 @@ module mod_settings
identifier = "statres_hr:" identifier = "statres_hr:"
call read_content (line, identifier, cc, cn, cl, match) call read_content (line, identifier, cc, cn, cl, match)
if ( match ) config%statres_hr = real(cn,kind=4) if ( match ) config%statres_hr = real(cn,kind=4)
identifier = "measerr:"
call read_content (line, identifier, cc, cn, cl, match)
if ( match ) config%measerr = real(cn)
endif endif
end do read_loop end do read_loop
if ( config%spec.eq.'co2' ) then
print*, 'WARNING read_config_settings: for CO2 cannot use lognormal -> changing to normal'
config%lognormal = .false.
endif
end subroutine read_config_settings end subroutine read_config_settings
......
prep_syndata/mod_var.f90
+ 2
− 1
View file @ cba4a794
...@@ -31,11 +31,12 @@ module mod_var ...@@ -31,11 +31,12 @@ module mod_var
integer, parameter :: max_path_len=200 ! max character length of paths and files integer, parameter :: max_path_len=200 ! max character length of paths and files
integer, parameter :: max_name_len=50 ! max character length of variable names integer, parameter :: max_name_len=50 ! max character length of variable names
integer, parameter :: recname_len=3 ! length of receptor names integer, parameter :: recname_len=3 ! length of receptor names
real, parameter :: numscale=1.e12 ! numeric scaling factor real, parameter :: numscale=1.e20 ! numeric scaling factor
integer, parameter :: maxpoint=1000 ! max number of releases per receptor per month integer, parameter :: maxpoint=1000 ! max number of releases per receptor per month
integer, parameter :: maxspec=10 ! max number of species in a flexpart run integer, parameter :: maxspec=10 ! max number of species in a flexpart run
integer, parameter :: maxlev=50 ! max number of vertical levels in flexpart output integer, parameter :: maxlev=50 ! max number of vertical levels in flexpart output
integer, parameter :: maxobs=10000 ! max number of observations integer, parameter :: maxobs=10000 ! max number of observations
real, parameter :: trunc=1.e-9 ! truncation threshold for eigenvalues of error covariance matrix
! flexpart variables ! flexpart variables
! ------------------ ! ------------------
......
prep_syndata/prep_syndata.f90
+ 5
− 4
View file @ cba4a794
...@@ -76,11 +76,14 @@ program prep_syndata ...@@ -76,11 +76,14 @@ program prep_syndata
call initialize(files, config) call initialize(files, config)
! get prior error covariance ! get prior error covariance
call get_error_cov(files) call get_error_cov(files, config)
! get prior fluxes ! get prior fluxes
allocate( flx(nxgrid,nygrid,nt_flx)) allocate( flx(nxgrid,nygrid,nt_flx))
call get_flux(config, files, flx) allocate( state(nvar) )
flx(:,:,:) = 0.
state(:) = 0.
call get_flux(config, files, flx, state)
! get observations ! get observations
allocate( obs(maxobs) ) allocate( obs(maxobs) )
...@@ -91,8 +94,6 @@ program prep_syndata ...@@ -91,8 +94,6 @@ program prep_syndata
! ------------ ! ------------
! perturb fluxes ! perturb fluxes
allocate( state(nvar) )
state(:) = 0.
call perturb_flux(config, files, state) call perturb_flux(config, files, state)
! perturb obs ! perturb obs
......
settings/SETTINGS_co2_config
+ 5
− 6
View file @ cba4a794
...@@ -26,14 +26,13 @@ datef: 20120131 ...@@ -26,14 +26,13 @@ datef: 20120131
# Inversion method ('analytic', 'congrad' or 'm1qn3') # Inversion method ('analytic', 'congrad' or 'm1qn3')
method: m1qn3 method: m1qn3
# Average/select flexpart releases (true or false)
average_fp: .false.
# Number of iterations # Number of iterations
# only used if method is 'congrad' or 'm1qn3' # only used if method is 'congrad' or 'm1qn3'
maxiter: 2 maxiter: 2
# Optimize flux offsets (true or false)
# optimizes the offsets rather than the fluxes themselves (ghg species only)
offsets: .false.
# Include ocean boxes in inversion (true or false) # Include ocean boxes in inversion (true or false)
# currently only for ghg species # currently only for ghg species
inc_ocean: .false. inc_ocean: .false.
...@@ -112,8 +111,8 @@ num_nee_day: 8 ...@@ -112,8 +111,8 @@ num_nee_day: 8
# used if error in obs input <= zero # used if error in obs input <= zero
measerr: 0.5 measerr: 0.5
# Initial concentration error: unit same as obs # Scalar of initial conc error: fraction
cinierr: 1.0 cinierr: 0.01
# Prior flux error: fraction # Prior flux error: fraction
flxerr: 0.25 flxerr: 0.25
......
settings/SETTINGS_co2_nest_config
+ 5
− 6
View file @ cba4a794
...@@ -26,14 +26,13 @@ datef: 20120131 ...@@ -26,14 +26,13 @@ datef: 20120131
# Inversion method ('analytic', 'congrad' or 'm1qn3') # Inversion method ('analytic', 'congrad' or 'm1qn3')
method: analytic method: analytic
# Average/select flexpart releases (true or false)
average_fp: .false.
# Number of iterations # Number of iterations
# only used if method is 'congrad' or 'm1qn3' # only used if method is 'congrad' or 'm1qn3'
maxiter: 2 maxiter: 2
# Optimize flux offsets (true or false)
# optimizes the offsets rather than the fluxes themselves (ghg species only)
offsets: .false.
# Include ocean boxes in inversion (true or false) # Include ocean boxes in inversion (true or false)
# currently only for ghg species # currently only for ghg species
inc_ocean: .false. inc_ocean: .false.
...@@ -112,8 +111,8 @@ num_nee_day: 8 ...@@ -112,8 +111,8 @@ num_nee_day: 8
# used if error in obs input <= zero # used if error in obs input <= zero
measerr: 0.5 measerr: 0.5
# Initial concentration error: unit same as obs # Scalar of initial conc error: fraction
cinierr: 1.0 cinierr: 0.01
# Prior flux error: fraction # Prior flux error: fraction
flxerr: 0.25 flxerr: 0.25
......
settings/SETTINGS_ghg_config
+ 10
− 7
View file @ cba4a794
...@@ -26,14 +26,17 @@ datef: 20120131 ...@@ -26,14 +26,17 @@ datef: 20120131
# Inversion method ('analytic', 'congrad' or 'm1qn3') # Inversion method ('analytic', 'congrad' or 'm1qn3')
method: analytic method: analytic
# Use lognormal distribution (true or false) (only for non-CO2 species)
# if true need to use m1qn3 method
lognormal: .false.
# Average/select flexpart releases (true or false)
average_fp: .false.
# Number of iterations # Number of iterations
# only used if method is 'congrad' or 'm1qn3' # only used if method is 'congrad' or 'm1qn3'
maxiter: 2 maxiter: 2
# Optimize flux offsets (true or false)
# optimizes the offsets rather than the fluxes themselves (ghg species only)
offsets: .false.
# Include ocean boxes in the optimization (true or false) # Include ocean boxes in the optimization (true or false)
inc_ocean: .true. inc_ocean: .true.
...@@ -58,7 +61,7 @@ restart: 0 ...@@ -58,7 +61,7 @@ restart: 0
# Verbose output # Verbose output
# only use for debugging small runs # only use for debugging small runs
verbose: .true. verbose: .false.
# Species ("co2" or "ghg") # Species ("co2" or "ghg")
spec: ghg spec: ghg
...@@ -103,8 +106,8 @@ nt_flx: 12 ...@@ -103,8 +106,8 @@ nt_flx: 12
# used if error in obs input <= zero # used if error in obs input <= zero
measerr: 5.0 measerr: 5.0
# Initial concentration error: unit same as obs # Scalar of initial conc error: fraction
cinierr: 5.0 cinierr: 0.01
# Prior flux error: fraction # Prior flux error: fraction
flxerr: 0.5 flxerr: 0.5
......
settings/SETTINGS_ghg_nest_config
+ 9
− 6
View file @ cba4a794
...@@ -26,14 +26,17 @@ datef: 20120131 ...@@ -26,14 +26,17 @@ datef: 20120131
# Inversion method ('analytic', 'congrad' or 'm1qn3') # Inversion method ('analytic', 'congrad' or 'm1qn3')
method: congrad method: congrad
# Use lognormal distribution (true or false) (only for non-CO2 species)
# if true need to use m1qn3 method
lognormal: .false.
# Average/select flexpart releases (true or false)
average_fp: .false.
# Number of iterations # Number of iterations
# only used if method is 'congrad' or 'm1qn3' # only used if method is 'congrad' or 'm1qn3'
maxiter: 2 maxiter: 2
# Optimize flux offsets (true or false)
# optimizes the offsets rather than the fluxes themselves (ghg species only)
offsets: .false.
# Include ocean boxes in the optimization (true or false) # Include ocean boxes in the optimization (true or false)
inc_ocean: .true. inc_ocean: .true.
...@@ -103,8 +106,8 @@ nt_flx: 12 ...@@ -103,8 +106,8 @@ nt_flx: 12
# used if error in obs input <= zero # used if error in obs input <= zero
measerr: 5.0 measerr: 5.0
# Initial concentration error: unit same as obs # Scalar of initial conc error: fraction
cinierr: 5.0 cinierr: 0.01
# Prior flux error: fraction # Prior flux error: fraction
flxerr: 0.5 flxerr: 0.5
......
source/error_cov.f90
+ 16
− 9
View file @ cba4a794
...@@ -73,6 +73,7 @@ subroutine error_cov(config, files, states, covar, corr, xerr) ...@@ -73,6 +73,7 @@ subroutine error_cov(config, files, states, covar, corr, xerr)
real(kind=8), dimension(:), allocatable :: evals real(kind=8), dimension(:), allocatable :: evals
real(kind=8), dimension(:,:), allocatable :: evecs real(kind=8), dimension(:,:), allocatable :: evecs
integer :: ierr, info, neval, ind integer :: ierr, info, neval, ind
real, parameter :: smallnum=1.e-15
! calculate error covariance ! calculate error covariance
! -------------------------- ! --------------------------
...@@ -91,14 +92,16 @@ subroutine error_cov(config, files, states, covar, corr, xerr) ...@@ -91,14 +92,16 @@ subroutine error_cov(config, files, states, covar, corr, xerr)
end do end do
covsum = covsum/real(ndt)**2 covsum = covsum/real(ndt)**2
! scale to total error of nested domain (unit Tg/y) if ( .not.config%lognormal ) then
toterr = sqrt(covsum)*3600.*24.*365./1.e9/numscale ! scale to total error of nested domain (unit Tg/y)
write(logid,*) 'Total error: ',toterr toterr = sqrt(covsum)*3600.*24.*365./1.e9/numscale
erscalar = config%globerr/toterr write(logid,*) 'Total error: ',toterr
if ( config%globerr > 0. ) then erscalar = config%globerr/toterr
cov = cov * dble(erscalar)**2 if ( config%globerr > 0. ) then
write(logid,*) 'Total error scaled by: ',erscalar cov = cov * dble(erscalar)**2
end if write(logid,*) 'Total error scaled by: ',erscalar
end if
endif
! calculate eigendecomposition of cov ! calculate eigendecomposition of cov
! ----------------------------------- ! -----------------------------------
...@@ -248,7 +251,11 @@ subroutine error_cov(config, files, states, covar, corr, xerr) ...@@ -248,7 +251,11 @@ subroutine error_cov(config, files, states, covar, corr, xerr)
! uncertainty for scalars of initial mixing ratio ! uncertainty for scalars of initial mixing ratio
if ( config%opt_cini ) then if ( config%opt_cini ) then
do i = 1, ntcini*ncini do i = 1, ntcini*ncini
states%pxerr0(npvar+i) = config%cinierr if ( config%lognormal ) then
states%pxerr0(npvar+i) = log(max(smallnum,config%cinierr))
else
states%pxerr0(npvar+i) = config%cinierr
endif
end do end do
endif endif
......
source/get_initcams.f90
+ 72
− 32
View file @ cba4a794
...@@ -53,11 +53,13 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -53,11 +53,13 @@ subroutine get_initcams(filename, varname, ntime, concini)
character(len=*), parameter :: lonname='longitude' character(len=*), parameter :: lonname='longitude'
character(len=*), parameter :: latname='latitude' character(len=*), parameter :: latname='latitude'
character(len=*), parameter :: timename='time' character(len=*), parameter :: timename='time'
character(len=*), parameter :: prsname='hlevel' ! hlevel for CH4, level for N2O
logical, parameter :: midpoints=.true. ! true for CH4, false for N2O
integer :: ncid, xid, yid, zid, tid, apid, bpid, varid integer :: ncid, xid, yid, zid, tid, apid, bpid, varid
integer :: n, kz integer :: n, kz, status
integer :: nx, ny, nz, nt, nlev, nzmax integer :: nx, ny, nz, nt, nlev, nzmax
integer :: nx_out, ny_out integer :: nx_out, ny_out
logical :: midpoints logical :: flag_hyb
real, dimension(:), allocatable :: lon, lat, lonin, latin real, dimension(:), allocatable :: lon, lat, lonin, latin
real(kind=8), dimension(:), allocatable :: lono, lato real(kind=8), dimension(:), allocatable :: lono, lato
real, dimension(:), allocatable :: ap, bp, pres, mpres, alt real, dimension(:), allocatable :: ap, bp, pres, mpres, alt
...@@ -66,6 +68,7 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -66,6 +68,7 @@ subroutine get_initcams(filename, varname, ntime, concini)
real, dimension(nygrid) :: lat_out real, dimension(nygrid) :: lat_out
real, dimension(:,:,:), allocatable :: work1, work2, work3, work4 real, dimension(:,:,:), allocatable :: work1, work2, work3, work4
real, dimension(:,:,:,:), allocatable :: conc, concin real, dimension(:,:,:,:), allocatable :: conc, concin
real :: sclfact, offset
! initialize ! initialize
! ---------- ! ----------
...@@ -85,36 +88,60 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -85,36 +88,60 @@ subroutine get_initcams(filename, varname, ntime, concini)
call check( nf90_open(trim(filename),nf90_NOWRITE,ncid) ) call check( nf90_open(trim(filename),nf90_NOWRITE,ncid) )
call check( nf90_inq_dimid(ncid,lonname,xid) ) call check( nf90_inq_dimid(ncid,lonname,xid) )
call check( nf90_inq_dimid(ncid,latname,yid) ) call check( nf90_inq_dimid(ncid,latname,yid) )
call check( nf90_inq_dimid(ncid,'hlevel',zid) ) call check( nf90_inq_dimid(ncid,prsname,zid) )
call check( nf90_inq_dimid(ncid,timename,tid) ) call check( nf90_inq_dimid(ncid,timename,tid) )
call check( nf90_inquire_dimension(ncid,xid,len=nx) ) call check( nf90_inquire_dimension(ncid,xid,len=nx) )
call check( nf90_inquire_dimension(ncid,yid,len=ny) ) call check( nf90_inquire_dimension(ncid,yid,len=ny) )
call check( nf90_inquire_dimension(ncid,zid,len=nlev) ) call check( nf90_inquire_dimension(ncid,zid,len=nlev) )
call check( nf90_inquire_dimension(ncid,tid,len=nt) ) call check( nf90_inquire_dimension(ncid,tid,len=nt) )
nz = nlev - 1
if ( ntime.ne.nt ) write(logid,*) 'ERROR get_initcams: inconsistent time dimension' if ( ntime.ne.nt ) write(logid,*) 'ERROR get_initcams: inconsistent time dimension'
allocate( lon(nx) ) allocate( lon(nx) )
allocate( lat(ny) ) allocate( lat(ny) )
allocate( ap(nlev) )
allocate( bp(nlev) )
allocate( pres(nlev) )
allocate( mpres(nz) )
allocate( alt(nz) )
allocate( conc(nx,ny,nz,nt) )
! read variables ! read variables
call check( nf90_inq_varid(ncid,lonname,xid) ) call check( nf90_inq_varid(ncid,lonname,xid) )
call check( nf90_get_var(ncid,xid,lon) ) call check( nf90_get_var(ncid,xid,lon) )
call check( nf90_inq_varid(ncid,latname,yid) ) call check( nf90_inq_varid(ncid,latname,yid) )
call check( nf90_get_var(ncid,yid,lat) ) call check( nf90_get_var(ncid,yid,lat) )
call check( nf90_inq_varid(ncid,'ap',apid) ) ! check if contains hybrid pressure coordinates
call check( nf90_get_var(ncid,apid,ap) ) status = nf90_inq_varid(ncid,'hyai',apid)
call check( nf90_inq_varid(ncid,'bp',bpid) ) print*, 'get_initcams: status = ',status
call check( nf90_get_var(ncid,bpid,bp) ) if (status.eq.-49) then
! no hybrid pressure coordinates
flag_hyb = .false.
nz = nlev
allocate( mpres(nz) )
call check( nf90_inq_varid(ncid,prsname,zid) )
call check( nf90_get_var(ncid,zid,mpres) )
else
! contains hybrid pressure coordinates
flag_hyb = .true.
nz = nlev - 1
allocate( ap(nlev) )
allocate( bp(nlev) )
allocate( pres(nlev) )
allocate( mpres(nz) )
call check( nf90_inq_varid(ncid,'hyai',apid) )
call check( nf90_get_var(ncid,apid,ap) )
call check( nf90_inq_varid(ncid,'hybi',bpid) )
call check( nf90_get_var(ncid,bpid,bp) )
endif
allocate( alt(nz) )
allocate( conc(nx,ny,nz,nt) )
call check( nf90_inq_varid(ncid,trim(varname),varid) ) call check( nf90_inq_varid(ncid,trim(varname),varid) )
call check( nf90_get_var(ncid,varid,conc(:,:,:,:)) ) call check( nf90_get_var(ncid,varid,conc(:,:,:,:)) )
! check if file contains scalar and offset
status = nf90_inquire_attribute(ncid,varid,'scale_factor')
if ( status.eq.nf90_noerr ) then
status = nf90_inquire_attribute(ncid,varid,'add_offset')
if ( status.eq.nf90_noerr ) then
call check( nf90_get_att(ncid, varid, 'scale_factor', sclfact) )
call check( nf90_get_att(ncid, varid, 'add_offset', offset) )
conc = conc*sclfact + offset
endif
endif
call check( nf90_close(ncid) ) call check( nf90_close(ncid) )
! adjust lat and lon of grid ! adjust lat and lon of grid
...@@ -124,9 +151,13 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -124,9 +151,13 @@ subroutine get_initcams(filename, varname, ntime, concini)
allocate( lono(nx) ) allocate( lono(nx) )
lato = dble(lat) lato = dble(lat)
lono = dble(lon) lono = dble(lon)
! sort from south to north and west to east
call sort(ny, lato, indy) call sort(ny, lato, indy)
call sort(nx, lono, indx) call sort(nx, lono, indx)
conc = conc(indx,indy,:,:) conc = conc(indx,indy,:,:)
print*, 'get_initcams: indy = ',indy
print*, 'get_initcams: indx = ',indx
! cut extra longitude grid cells (assumes grid is -180 to 180 and not 0 to 360)
if ( lono(nx).ge.180. ) then if ( lono(nx).ge.180. ) then
allocate( concin((nx-1),ny,nz,nt) ) allocate( concin((nx-1),ny,nz,nt) )
allocate( lonin((nx-1)) ) allocate( lonin((nx-1)) )
...@@ -141,26 +172,36 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -141,26 +172,36 @@ subroutine get_initcams(filename, varname, ntime, concini)
allocate( latin(ny) ) allocate( latin(ny) )
if ( lato(ny).eq.90. ) then if ( lato(ny).eq.90. ) then
do n = 1, ny do n = 1, ny
latin(n) = -90. + real(n - 1)*(180./96.) latin(n) = -90. + real(n - 1)*(180./real(ny))
end do end do
else else
latin = sngl(lato) latin = sngl(lato)
endif endif
! print*, 'get_initcams: latin = ',latin print*, 'get_initcams: latin = ',latin
! print*, 'get_initcams: lonin = ',lonin print*, 'get_initcams: lonin = ',lonin
! calculate mid layer pressure
! (for simplicity currently use standard surface pressure
! should be good enough for background calculation,
! future update would be to read surf pres from file and do
! vertical interpolation to flexpart levels grid by grid)
if ( flag_hyb ) then
do n = 1, nlev
pres(n) = ap(n) + bp(n)*psurf
end do
! avoid pressure of zero
pres(nlev) = 2.
do n = 1, nz
mpres(n) = 0.5*(pres(n) + pres(n+1))
end do
endif
! calculate altitude
do n = 1, nlev
pres(n) = ap(n) + bp(n)*psurf
end do
! avoid pressure of zero
pres(nlev) = 2.
do n = 1, nz do n = 1, nz
mpres(n) = 0.5*(pres(n) + pres(n+1)) alt(n)=7500*log(psurf/mpres(n))
alt(n)=7500*log(psurf/pres(n+1))
end do end do
! print*, 'get_initcams: pres = ',pres if ( flag_hyb ) print*, 'get_initcams: pres = ',pres
! print*, 'get_initcams: alt = ',alt print*, 'get_initcams: mpres = ',mpres
print*, 'get_initcams: alt = ',alt
! interpolate to flexpart grid ! interpolate to flexpart grid
! ---------------------------- ! ----------------------------
...@@ -175,13 +216,12 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -175,13 +216,12 @@ subroutine get_initcams(filename, varname, ntime, concini)
! determine upper alt level of conc field for vertical interpolation ! determine upper alt level of conc field for vertical interpolation
nzmax = minloc(alt, dim=1, mask=abs(alt-outheight(nzgrid)).eq.minval(abs(alt-outheight(nzgrid)))) nzmax = minloc(alt, dim=1, mask=abs(alt-outheight(nzgrid)).eq.minval(abs(alt-outheight(nzgrid))))
nzmax = min(nz, nzmax+1) nzmax = min(nz, nzmax+1)
! print*, 'get_initcams: nzmax = ',nzmax print*, 'get_initcams: nzmax = ',nzmax
allocate( work2(nxgrid,nygrid,1) ) allocate( work2(nxgrid,nygrid,1) )
allocate( work3(nxgrid,nygrid,nzmax) ) allocate( work3(nxgrid,nygrid,nzmax) )
allocate( work4(nxgrid,nygrid,nzgrid) ) allocate( work4(nxgrid,nygrid,nzgrid) )
midpoints = .false.
do n = 1, nt do n = 1, nt
! interpolate horizontally ! interpolate horizontally
do kz = 1, nzmax do kz = 1, nzmax
...@@ -203,9 +243,9 @@ subroutine get_initcams(filename, varname, ntime, concini) ...@@ -203,9 +243,9 @@ subroutine get_initcams(filename, varname, ntime, concini)
deallocate( latin ) deallocate( latin )
deallocate( indx ) deallocate( indx )
deallocate( indy ) deallocate( indy )
deallocate( ap ) if ( allocated(ap) ) deallocate( ap )
deallocate( bp ) if ( allocated(bp) ) deallocate( bp )
deallocate( pres ) if ( allocated(pres) ) deallocate( pres )
deallocate( mpres ) deallocate( mpres )
deallocate( alt ) deallocate( alt )
deallocate( conc ) deallocate( conc )
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment