Skip to content
Snippets Groups Projects
Commit 08b69d4a authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 19/08/2022: minor bugfix, missing JI,JJ loop for expand

parent 4fd70a7c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/turb/mode_rmc01_3D.F90
+ 1
− 1
View file @ 08b69d4a
...@@ -63,7 +63,7 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZDH ! hor. grid mesh ...@@ -63,7 +63,7 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT) :: ZDH ! hor. grid mesh
! !
INTEGER :: IKB,IKE ! first,last physical level INTEGER :: IKB,IKE ! first,last physical level
INTEGER :: IKTB,IKTE ! start, end of k loops in physical domain INTEGER :: IKTB,IKTE ! start, end of k loops in physical domain
INTEGER :: JK,JIJ ! loop counter INTEGER :: JK,JI,JJ ! loop counter
INTEGER :: IIE,IIB,IJE,IJB,IIU,IJU INTEGER :: IIE,IIB,IJE,IJB,IIU,IJU
! !
REAL(KIND=JPRB) :: ZHOOK_HANDLE REAL(KIND=JPRB) :: ZHOOK_HANDLE
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme