From 86819fe46fbf17610655ac1ed3ae1e4eefce536c Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 13 Mar 2023 13:43:40 +0100
Subject: [PATCH] typo in dougherty GK
---
src/collision_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/collision_mod.F90 b/src/collision_mod.F90
index c2286157..2209615a 100644
--- a/src/collision_mod.F90
+++ b/src/collision_mod.F90
@@ -270,7 +270,7 @@ CONTAINS
INTEGER, INTENT(IN) :: ip0_, ip1_, ip2_,jmax_
INTEGER, DIMENSION(ips_:ipe_), INTENT(IN) :: parray_
INTEGER, DIMENSION(ijs_:ije_), INTENT(IN) :: jarray_
- REAL(dp), DIMENSION(ijgs_:ijge_,ikys:ikye,ikxs:ikxe,izgs:izge,0:1), INTENT(IN) :: kernel_
+ REAL(dp), DIMENSION(ijgs_:ijge_,ikys:ikye,ikxs:ikxe,izs:ize,0:1), INTENT(IN) :: kernel_
COMPLEX(dp), DIMENSION(ips_:ipe_,ijs_:ije_,ikys:ikye,ikxs:ikxe,izs:ize),INTENT(IN) :: nadiab_moments_
REAL(dp), INTENT(IN) :: nu_, sigmaa2_taua_o2, sqrt_sigmaa2_taua_o2
!! OUTPUT
--
GitLab