IFS-SOURCE-ECWAM-SYNC: merge CY48R1 into CY49R1_develop fixup

ecmwf-ifs · Dec 7, 2023 · 9e969a1 · 9e969a1
1 parent 8d647e4
commit 9e969a1
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/ecwam/preset_wgrib_template.F90 b/src/ecwam/preset_wgrib_template.F90
@@ -125,12 +125,19 @@ SUBROUTINE PRESET_WGRIB_TEMPLATE(CT, IGRIB_HANDLE, NGRIBV, LLCREATE, NBITSPERVAL
         IGRIB_VERSION = NGRIB_VERSION
       ENDIF
 
+      IF( PRESENT(LLCREATE) ) THEN
+        LLCRT = LLCREATE
+      ELSE
+        LLCRT = .FALSE. 
+      ENDIF
+
 !!!! it seems that grib2 is not yet ready for spectra 
 !!!! for the time being revert to using grib 1
       IF (CT == "S") THEN
         IF ( IGRIB_VERSION == 2 ) THEN
 
          IGRIB_VERSION=1
+         LLCRT = .TRUE.
 
           WRITE(NULERR,*) ''
           WRITE(NULERR,*) '*******************************************************'
@@ -143,13 +150,6 @@ SUBROUTINE PRESET_WGRIB_TEMPLATE(CT, IGRIB_HANDLE, NGRIBV, LLCREATE, NBITSPERVAL
         ENDIF
       ENDIF
 
-
-      IF( PRESENT(LLCREATE) ) THEN
-        LLCRT = LLCREATE
-      ELSE
-        LLCRT = .FALSE. 
-      ENDIF
-
       IF( PRESENT(NBITSPERVALUE) ) THEN
         IBITSPERVALUE = NBITSPERVALUE
       ELSEIF(CT.EQ."S") THEN