Checkout updated w3ounf3metamd.F90 from fb_ounf3_stage

CarstenHansen · Nov 16, 2023 · f1e9b1d · f1e9b1d
1 parent 187a197
commit f1e9b1d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/model/src/w3ounf3metamd.F90 b/model/src/w3ounf3metamd.F90
@@ -390,13 +390,13 @@ SUBROUTINE INIT_META(VEC)
       DO J = 1,NOGE(I)
         ! Does the field have sub-fields?
         S=I*NOGMAX+J
-        DO K=1,size(SPIJ2)
-          IF ( SPIJ2(K) .EQ. S ) EXIT
-        ENDDO
-        IF ( SPIJ2(K) .NE. S ) THEN
+        IF ( .NOT. ANY( SPIJ2 .EQ. S ) ) THEN 
           ALLOCATE(GROUP(I)%FIELD(J)%META(3)) ! Hardcode to 3 components for the moment
-        ELSE 
-          ! If S is one of the fields with sub-fields
+        ELSE
+          DO K=1,size(SPIJ2)
+            IF ( SPIJ2(K) .EQ. S ) EXIT
+          ENDDO
+          ! S is index K in the fields with sub-fields
           NFSMAX = MAX( NFSMAX, NSP(K) )
           ALLOCATE(GROUP(I)%FIELD(J)%SUBFIELD(NSP(K)))
           DO S = 1,NSP(K)