fxtran removeArraySyntax : no (:) on TYPE%VAR

4b03447b · RODIER Quentin · cd582997 · 4b03447b
Commit 4b03447b authored 1 year ago by RODIER Quentin
--- a/src/common/micro/mode_ice4_sedimentation_split.F90
+++ b/src/common/micro/mode_ice4_sedimentation_split.F90
@@ -342,7 +342,7 @@ END IF
 !
 PINPRX(:) = 0.
 ZINVTSTEP=1./PTSTEP
-ZRSMIN(:) = ICED%XRTMIN(:) * ZINVTSTEP
+ZRSMIN = ICED%XRTMIN * ZINVTSTEP
 ZREMAINT(:) = 0.
 ZREMAINT(IIJB:IIJE) = PTSTEP
 !