S. Riette 21 Mar 2023: remove do concurrent loop

fix #6
UMR-CNRM · Mar 21, 2023 · 2a8ce53 · 2a8ce53
1 parent a0c39f5
commit 2a8ce53
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/common/micro/rain_ice.F90 b/src/common/micro/rain_ice.F90
@@ -474,7 +474,7 @@ SUBROUTINE RAIN_ICE ( D, CST, PARAMI, ICEP, ICED, BUCONF,                   &
 !***     6.1    total tendencies limited by available species
 !
 DO JK = IKTB, IKTE
-  DO CONCURRENT (JIJ=IIJB:IIJE)
+  DO JIJ=IIJB, IIJE
     !LV/LS
     ZZ_LSFACT(JIJ,JK)=ZZ_LSFACT(JIJ,JK)/PEXNREF(JIJ,JK)
     ZZ_LVFACT(JIJ,JK)=ZZ_LVFACT(JIJ,JK)/PEXNREF(JIJ,JK)