Maintenance is scheduled between 16:00 and 23:59 CEST (14:00 and 21:59 UTC) on Thursday 2021-10-28. The system may be unavailable at any time during this timeframe. Please plan accordingly.

Commit 4d0a334d authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

commit messages and warnings modifications

parent 49e63b96
......@@ -225,11 +225,12 @@ subroutine gridcheck_ecmwf
(typSurf.eq.1)) then ! LSM
isec1(6)=172 ! indicatorOfParameter
else
print*,'***ERROR: undefined GRiB2 message found!',discipl, &
!write warning about file contents only if asked
if (verbosity.ge.1) print*,'***WARNING: undefined GRiB2 message found!',discipl, &
parCat,parNum,typSurf
endif
if(parId .ne. isec1(6) .and. parId .ne. 77) then
write(*,*) 'parId',parId, 'isec1(6)',isec1(6)
if (verbosity.ge.1) write(*,*) 'parId',parId, 'isec1(6)',isec1(6)
! stop
endif
......
......@@ -204,7 +204,7 @@ module par_mod
! Maximum number of particles, species, and similar
!**************************************************
integer,parameter :: maxpart=100000
integer,parameter :: maxpart=300000
integer,parameter :: maxspec=1
real,parameter :: minmass=0.0001
......
......@@ -230,11 +230,12 @@ subroutine readwind_ecmwf(indj,n,uuh,vvh,wwh)
elseif (parNum.eq.152) then
isec1(6)=152 ! avoid warning for lnsp
else
print*,'***WARNING: undefined GRiB2 message found!',discipl, &
! print a warning only if asked
if (verbosity.ge.1) print*,'***WARNING: undefined GRiB2 message found!',discipl, &
parCat,parNum,typSurf
endif
if(parId .ne. isec1(6) .and. parId .ne. 77) then
write(*,*) 'parId',parId, 'isec1(6)',isec1(6)
if (verbosity.ge.1) write(*,*) 'parId',parId, 'isec1(6)',isec1(6)
! stop
endif
......
......@@ -150,6 +150,10 @@ subroutine timemanager(metdata_format)
do itime=0,ideltas,lsynctime
if (verbosity.gt.0) then
write (*,*) 'timemanager> itime=', itime
endif
! Computation of wet deposition, OH reaction and mass transfer
! between two species every lsynctime seconds
! maybe wet depo frequency can be relaxed later but better be on safe side
......@@ -356,6 +360,7 @@ subroutine timemanager(metdata_format)
weight=1.0
endif
outnum=outnum+weight
if (verbosity.gt.0) print*,'call conccalc 1:',itime,weight
call conccalc(itime,weight)
endif
......@@ -371,6 +376,7 @@ subroutine timemanager(metdata_format)
if ((itime.eq.loutend).and.(outnum.gt.0.)) then
if ((iout.le.3.).or.(iout.eq.5)) then
if (surf_only.ne.1) then
if (verbosity.gt.0) print*,'call concoutput',itime,outnum
if (lnetcdfout.eq.1) then
#ifdef USE_NCF
call concoutput_netcdf(itime,outnum,gridtotalunc,wetgridtotalunc,drygridtotalunc)
......@@ -432,8 +438,8 @@ subroutine timemanager(metdata_format)
endif
if ((iout.eq.4).or.(iout.eq.5)) call plumetraj(itime)
if (iflux.eq.1) call fluxoutput(itime)
write(*,45) itime,numpart,gridtotalunc,wetgridtotalunc,drygridtotalunc
!write(*,45) itime,numpart,gridtotalunc,wetgridtotalunc,drygridtotalunc
write(*,46) float(itime)/3600,itime,numpart
!CGZ-lifetime: output species lifetime
!ZHG
! write(*,*) 'Overview species lifetime in days', &
......@@ -455,6 +461,7 @@ subroutine timemanager(metdata_format)
if (itime.eq.loutstart) then
weight=0.5
outnum=outnum+weight
if (verbosity.gt.0) print*,'call conccalc 0:',itime,weight
call conccalc(itime,weight)
endif
......
......@@ -612,7 +612,7 @@ subroutine verttransform_ecmwf(n,uuh,vvh,wwh,pvh)
! to scavenging. Also clouds that are not precipitating are defined which may be
! to include future cloud processing by non-precipitating-clouds.
!***********************************************************************************
write(*,*) 'Global ECMWF fields: using cloud water'
if (verbosity.ge.1) write(*,*) 'Global ECMWF fields: using cloud water'
clw(:,:,:,n)=0.0
! icloud_stats(:,:,:,n)=0.0
ctwc(:,:,n)=0.0
......@@ -682,7 +682,7 @@ subroutine verttransform_ecmwf(n,uuh,vvh,wwh,pvh)
!**************************************************************************
! create a cloud and rainout/washout field, clouds occur where rh>80%
! total cloudheight is stored at level 0
write(*,*) 'Global fields: using cloud water from Parameterization'
if (verbosity.ge.1) write(*,*) 'Global fields: using cloud water from Parameterization'
do jy=0,nymin1
do ix=0,nxmin1
! OLD METHOD
......
Markdown is supported
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