Commit 4138764d authored by Sabine's avatar Sabine
Browse files

Merge remote-tracking branch 'refs/remotes/origin/dev' into dev

parents 03adec6e 759df5f2
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
function distance2(rlat1,rlon1,rlat2,rlon2) function distance2(rlat1,rlon1,rlat2,rlon2)
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine drydepokernel(nunc,deposit,x,y,nage,kp) subroutine drydepokernel(nunc,deposit,x,y,nage,kp)
! i i i i i ! i i i i i
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine drydepokernel_nest(nunc,deposit,x,y,nage,kp) subroutine drydepokernel_nest(nunc,deposit,x,y,nage,kp)
! i i i i i ! i i i i i
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
! Function calculates dynamic viscosity of air (kg/m/s) as function of ! Function calculates dynamic viscosity of air (kg/m/s) as function of
! temperature (K) using Sutherland's formula ! temperature (K) using Sutherland's formula
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
! To be used, if the non-standard Fortran function erf does not exist on ! To be used, if the non-standard Fortran function erf does not exist on
! your machine ! your machine
! !
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
real function ew(x) real function ew(x)
!**************************************************************** !****************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
module flux_mod module flux_mod
! flux eastward, westward, northward, southward, upward and downward ! flux eastward, westward, northward, southward, upward and downward
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine fluxoutput(itime) subroutine fluxoutput(itime)
! i ! i
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine get_settling(itime,xt,yt,zt,nsp,settling) subroutine get_settling(itime,xt,yt,zt,nsp,settling)
! i i i i i o ! i i i i i o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine get_vdep_prob(itime,xt,yt,zt,prob) subroutine get_vdep_prob(itime,xt,yt,zt,prob)
! i i i i o ! i i i i o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav) subroutine get_wetscav(itime,ltsample,loutnext,jpart,ks,grfraction,inc_count,blc_count,wetscav)
! i i i i i o o o o ! i i i i i o o o o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine getfields(itime,nstop,metdata_format) subroutine getfields(itime,nstop,metdata_format)
! i o ! i o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine getfields(itime,nstop,memstat,metdata_format) subroutine getfields(itime,nstop,memstat,metdata_format)
! i o o ! i o o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine gethourlyOH(itime) subroutine gethourlyOH(itime)
! i ! i
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine getrb(nc,ustar,nyl,diffh2o,reldiff,rb) subroutine getrb(nc,ustar,nyl,diffh2o,reldiff,rb)
! i i i i i o ! i i i i i o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine getrc(nc,i,j,t,gr,rh,rr,rc) subroutine getrc(nc,i,j,t,gr,rh,rr,rc)
! i i i i i i i o ! i i i i i i i o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine getvdep(n,ix,jy,ust,temp,pa,L,gr,rh,rr,snow,vdepo) subroutine getvdep(n,ix,jy,ust,temp,pa,L,gr,rh,rr,snow,vdepo)
! i i i i i i i i i i i o ! i i i i i i i i i i i o
!***************************************************************************** !*****************************************************************************
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine getvdep_nests(n,ix,jy,ust,temp,pa, & subroutine getvdep_nests(n,ix,jy,ust,temp,pa, &
L,gr,rh,rr,snow,vdepo,lnest) L,gr,rh,rr,snow,vdepo,lnest)
! i i i i i i i i i i i o i ! i i i i i i i i i i i o i
......
...@@ -77,7 +77,7 @@ CONTAINS ...@@ -77,7 +77,7 @@ CONTAINS
! fills in attributes that can be accessed through methods in this ! fills in attributes that can be accessed through methods in this
! module ! module
USE grib_api use eccodes
IMPLICIT NONE IMPLICIT NONE
...@@ -130,7 +130,7 @@ CONTAINS ...@@ -130,7 +130,7 @@ CONTAINS
! module. ! module.
USE grib_api use eccodes
IMPLICIT NONE IMPLICIT NONE
...@@ -177,7 +177,7 @@ CONTAINS ...@@ -177,7 +177,7 @@ CONTAINS
! determine if it is hybrid or not ! determine if it is hybrid or not
! !
USE grib_api use eccodes
IMPLICIT NONE IMPLICIT NONE
CHARACTER(LEN=*), INTENT(IN) :: filepath ! full path to GRIB file CHARACTER(LEN=*), INTENT(IN) :: filepath ! full path to GRIB file
INTEGER, INTENT(OUT) :: grib_centre, gribfile_type INTEGER, INTENT(OUT) :: grib_centre, gribfile_type
...@@ -254,7 +254,7 @@ CONTAINS ...@@ -254,7 +254,7 @@ CONTAINS
SUBROUTINE get_3d_u_dims(filepath, gribfile_type, xlon, ylat, zlev) SUBROUTINE get_3d_u_dims(filepath, gribfile_type, xlon, ylat, zlev)
! Looks at the 3d u fields in the GRIBFILE to get x and y dims, as well as number of levels ! Looks at the 3d u fields in the GRIBFILE to get x and y dims, as well as number of levels
USE grib_api use eccodes
IMPLICIT NONE IMPLICIT NONE
......
! SPDX-FileCopyrightText: FLEXPART 1998-2019, see flexpart_license.txt
! SPDX-License-Identifier: GPL-3.0-or-later
subroutine gridcheck_ecmwf subroutine gridcheck_ecmwf
!********************************************************************** !**********************************************************************
...@@ -51,7 +54,7 @@ subroutine gridcheck_ecmwf ...@@ -51,7 +54,7 @@ subroutine gridcheck_ecmwf
! * ! *
!********************************************************************** !**********************************************************************
use grib_api use eccodes
use par_mod use par_mod
use com_mod use com_mod
use conv_mod use conv_mod
......
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