diff --git a/src/sort_mod.f90 b/src/sort_mod.f90
index d34ecf9c6eedbc16e712d957ffe58aeb6634c907..a17f20906f9bf7c2cf67050826bed38c6ffe1dc9 100644
--- a/src/sort_mod.f90
+++ b/src/sort_mod.f90
@@ -55,8 +55,8 @@
!! in the Fortran Standard Library under the MIT license provided
!! we cite:
!!
-!! Musser, D.R., “Introspective Sorting and Selection Algorithms,”
-!! Software—Practice and Experience, Vol. 27(8), 983–993 (August 1997).
+!! Musser, D.R., "Introspective Sorting and Selection Algorithms,"
+!! Software-Practice and Experience, Vol. 27(8), 983-993 (August 1997).
!!
!! as the official source of the algorithm.
@@ -523,4 +523,4 @@ contains
end subroutine reverse_segment
-end module sort_mod
\ No newline at end of file
+end module sort_mod
diff --git a/src/wetdepo_mod.f90 b/src/wetdepo_mod.f90
index e13a9c42da4e2e40df6716c9ed7135a0d92926b3..f76aa59124e296c0c9b9e53143e818f9e66e8c9a 100644
--- a/src/wetdepo_mod.f90
+++ b/src/wetdepo_mod.f90
@@ -324,7 +324,7 @@ subroutine get_wetscav(itime,jpart,ks,gridfract,wetscav)
#endif
! Interpolate cloud information
- call interpol_rain(itime,kz,lsp,convp,cc,t_particle,cl,icbot,ictop,icmv)
+ call interpol_rain(itime,kz,lsp,convp,cc,t_particle,cl,icbot,ictop,icmv)
! cc = total cloud cover
! cl = ctwc
diff --git a/src/windfields_mod.f90 b/src/windfields_mod.f90
index 5ba63cce159cf8ddddda1dbd5f4567924c979295..1168c929ca089488730afb14549131683fe4cecc 100644
--- a/src/windfields_mod.f90
+++ b/src/windfields_mod.f90
@@ -93,7 +93,7 @@ module windfields_mod
ctwc ! ESO: =icloud_stats(:,:,4,:) total cloud water content
integer,allocatable,dimension(:,:,:) :: & ! new scavenging AT 2021
icloudbot, & ! cloud bottom height [m/eta]
- icloudtop ! cloud top [m/eta]
+ icloudtop ! cloud top [m/eta]
! 3d nested fields
!*****************
@@ -129,7 +129,7 @@ module windfields_mod
ctwcn ! ESO: =icloud_stats(:,:,4,:) total cloud water content
integer,allocatable,dimension(:,:,:,:) :: & ! new scavenging AT 2021
icloudbotn, & ! cloud bottom height [m/eta]
- icloudtopn ! cloud thickness [m/eta]
+ icloudtopn ! cloud thickness [m/eta]
! 2d fields
!**********
@@ -152,11 +152,11 @@ module windfields_mod
oli ! inverse Obukhov length (1/L) [m]
! 2d fields
- !**********
+ !**********
real, allocatable,dimension(:,:,:,:,:) :: & ! newWetDepoScheme, extra precip dimension AT 2021
lsprec, & ! large scale total precipitation [mm/h]
convprec ! convective precipitation [mm/h]
-
+
! 2d nested fields
!*******************
real, allocatable,dimension(:,:,:,:,:) :: &
@@ -179,11 +179,11 @@ module windfields_mod
vdepn !
! 2d fields
- !**********
+ !**********
real, allocatable,dimension(:,:,:,:,:,:) :: & ! newWetDepoScheme, extra precip dimension AT 2021
lsprecn, & ! large scale total precipitation [mm/h]
convprecn ! convective precipitation [mm/h]
-
+
integer :: metdata_format ! storing the input data type (ECMWF/NCEP)
!****************************************************************************
@@ -443,19 +443,19 @@ subroutine gridcheck_ecmwf
!read the grib2 identifiers
call grib_get_int(igrib,'discipline',discipl,iret)
call grib_check(iret,thisSubr,gribErrorMsg)
-
+
call grib_get_int(igrib,'parameterCategory',parCat,iret)
call grib_check(iret,thisSubr,gribErrorMsg)
-
+
call grib_get_int(igrib,'parameterNumber',parNum,iret)
call grib_check(iret,thisSubr,gribErrorMsg)
-
+
call grib_get_int(igrib,'typeOfFirstFixedSurface',typSfc,iret)
call grib_check(iret,thisSubr,gribErrorMsg)
-
+
call grib_get_int(igrib,'level',k,iret)
call grib_check(iret,thisSubr,gribErrorMsg)
-
+
call grib_get_int(igrib,'paramId',parId,iret)
call grib_check(iret,thisSubr,gribErrorMsg)