From 9e969a1975a76213dc175dc2fd61db5339d6fd5b Mon Sep 17 00:00:00 2001
From: Ahmad Nawab <ahmad.nawab@ecmwf.int>
Date: Thu, 7 Dec 2023 15:34:57 +0000
Subject: [PATCH] IFS-SOURCE-ECWAM-SYNC: merge CY48R1 into CY49R1_develop fixup

---
 src/ecwam/preset_wgrib_template.F90 | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/ecwam/preset_wgrib_template.F90 b/src/ecwam/preset_wgrib_template.F90
index f423a1f8..3d3d0d42 100644
--- 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