Skip to content
Snippets Groups Projects
Commit fc305fce authored by Lucie Bakels's avatar Lucie Bakels
Browse files

RECEPTOR COMMAND options default set to LOUT values

Former-commit-id: b9beb16f
parent 05feab2e
No related branches found
No related tags found
No related merge requests found
Showing
with 29 additions and 22 deletions
...@@ -44,7 +44,7 @@ program flexpart ...@@ -44,7 +44,7 @@ program flexpart
real :: s_timemanager real :: s_timemanager
character(len=256) :: & character(len=256) :: &
inline_options ! pathfile, flexversion, arg2 inline_options ! pathfile, flexversion, arg2
character(len=256) :: gitversion_tmp="8d9c680 Mon Apr 22 15:37:39 2024 +0200" character(len=256) :: gitversion_tmp="undefined"
! Keeping track of the total running time of FLEXPART, printed out at the end. ! Keeping track of the total running time of FLEXPART, printed out at the end.
!***************************************************************************** !*****************************************************************************
......
8d9c680 Mon Apr 22 15:37:39 2024 +0200
...@@ -543,9 +543,9 @@ subroutine readcommand ...@@ -543,9 +543,9 @@ subroutine readcommand
loutstep=10800 loutstep=10800
loutaver=10800 loutaver=10800
loutsample=900 loutsample=900
lrecoutstep=3600 lrecoutstep=-1
lrecoutaver=3600 lrecoutaver=-1
lrecoutsample=900 lrecoutsample=-1
loutrestart=-1 loutrestart=-1
lsynctime=900 lsynctime=900
ctl=-5.0 ctl=-5.0
...@@ -585,6 +585,7 @@ subroutine readcommand ...@@ -585,6 +585,7 @@ subroutine readcommand
WETBKDEP=.false. WETBKDEP=.false.
DRYBKDEP=.false. DRYBKDEP=.false.
! Open the command file and read user options ! Open the command file and read user options
! Namelist input first: try to read as namelist file ! Namelist input first: try to read as namelist file
!************************************************************************** !**************************************************************************
...@@ -834,6 +835,30 @@ subroutine readcommand ...@@ -834,6 +835,30 @@ subroutine readcommand
endif endif
#endif #endif
! Check whether RECEPTOR commands are given, otherwise give them default values
!******************************************************************************
if (lrecoutstep.eq.-1) then
write(*,*) 'WARNING: FILE COMMAND LRECOUTSTEP not provided,'
write(*,*) 'value of LOUTSTEP will be used if RECEPTORS are'
write(*,*) 'required.'
lrecoutstep=loutstep
endif
if (lrecoutaver.eq.-1) then
write(*,*) 'WARNING: FILE COMMAND LRECOUTAVER not provided,'
write(*,*) 'value of LOUTAVER will be used if RECEPTORS are'
write(*,*) 'required.'
lrecoutaver=loutaver
endif
if (lrecoutsample.eq.-1) then
write(*,*) 'WARNING: FILE COMMAND LRECOUTSTEP not provided,'
write(*,*) 'value of LOUTSAMPLE will be used if RECEPTORS are'
write(*,*) 'required.'
lrecoutsample=loutsample
endif
! Check whether a valid option for gridded model output has been chosen ! Check whether a valid option for gridded model output has been chosen
!********************************************************************** !**********************************************************************
......
6da99ad066c33aa0caf7d353ee5ed24937d3c735
\ No newline at end of file
90b7fca857f4493e8ce2982b2c3b4f5e4e0583cc
\ No newline at end of file
4eef5a1c6750ba955afdc7dc64c781998723e513
\ No newline at end of file
c8cc09ebb0f32986a15b6b12681c2010ccc6f7fd
\ No newline at end of file
d268d2a3cc5e183690fdf1464f5146a31c18bccc
\ No newline at end of file
7b83fd7d7b92d1fad60bdd037eaf27daabc58abd
\ No newline at end of file
37fbbda5bbe0027bbb10a4bb765659f74eb81174
\ No newline at end of file
790520b3c8b04e87e650a492a3f16d3a98b56a18
\ No newline at end of file
691492d53210fbbe92a629a7345a4997c25b3142
\ No newline at end of file
dc3c3d5cd682d7cbd664a5b99ae057195be3748a
\ No newline at end of file
90db95dd0b841f9136b678ee0225f2fae60017d8
\ No newline at end of file
693268aefa934c02c93e438999aabb3db45d5077
\ No newline at end of file
74aa06b4d66cb845cfcd1624320d7999eaeabe6a
\ No newline at end of file
1432774cb381a488eb4bab9bab32fecf4b6990a1
\ No newline at end of file
4617e2548944564e5ce999e3cd426a710bf45c65
\ No newline at end of file
217738d4c1d1220b46bb2c6f12c9719609276489
\ No newline at end of file
a6b4f28e5d33b1df9693526f01f5692990e69bb6
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment