CRACY HACK: make FR,FR5,ZPIFR in YOWFRED static arrays

ecmwf-ifs · Apr 2, 2024 · 145a1be · 145a1be
1 parent 6189d67
commit 145a1be
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/src/ecwam/initmdl.F90 b/src/ecwam/initmdl.F90
@@ -375,8 +375,8 @@ SUBROUTINE INITMDL (NADV,                                 &
 
 !     DEFINE A FEW CONSTANTS FOR USE IN IMPLSCH
 
-      IF (.NOT.ALLOCATED(ZPIFR)) ALLOCATE(ZPIFR(NFRE))
-      IF (.NOT.ALLOCATED(FR5)) ALLOCATE(FR5(NFRE))
+!      IF (.NOT.ALLOCATED(ZPIFR)) ALLOCATE(ZPIFR(NFRE))
+!      IF (.NOT.ALLOCATED(FR5)) ALLOCATE(FR5(NFRE))
       IF (.NOT.ALLOCATED(FRM5)) ALLOCATE(FRM5(NFRE))
       IF (.NOT.ALLOCATED(COFRM4)) ALLOCATE(COFRM4(NFRE))
       IF (.NOT.ALLOCATED(FLMAX)) ALLOCATE(FLMAX(NFRE))

diff --git a/src/ecwam/mfredir.F90 b/src/ecwam/mfredir.F90
@@ -72,7 +72,7 @@ SUBROUTINE MFREDIR
 
       IF (LHOOK) CALL DR_HOOK('MFREDIR',0,ZHOOK_HANDLE)
 
-      IF (.NOT.ALLOCATED(FR)) ALLOCATE(FR(NFRE))
+!      IF (.NOT.ALLOCATED(FR)) ALLOCATE(FR(NFRE))
       IF (.NOT.ALLOCATED(DFIM)) ALLOCATE(DFIM(NFRE))
       IF (.NOT.ALLOCATED(GOM)) ALLOCATE(GOM(NFRE))
       IF (.NOT.ALLOCATED(C)) ALLOCATE(C(NFRE))

diff --git a/src/ecwam/uiprep.F90 b/src/ecwam/uiprep.F90
@@ -207,7 +207,7 @@ SUBROUTINE UIPREP (IFORM, LLGRID)
       IF( NFRE <= 0 ) CALL WAM_ABORT( "Expected positive value for NFRE", __FILENAME__, __LINE__ )
       IF( IFRE1 <= 0 ) CALL WAM_ABORT( "Expected positive value for IFRE1",  __FILENAME__, __LINE__ )
 
-      ALLOCATE(FR(NFRE_RED))
+!      ALLOCATE(FR(NFRE_RED))
 
       CALL MFR(NFRE_RED, IFRE1, FR1, FRATIO, FR)
 

diff --git a/src/ecwam/yowfred.F90 b/src/ecwam/yowfred.F90
@@ -19,7 +19,7 @@ MODULE YOWFRED
 
 !*    ** *FREDIR* - FREQUENCY AND DIRECTION GRID.
 
-      REAL(KIND=JWRB), ALLOCATABLE :: FR(:)
+      REAL(KIND=JWRB) :: FR(36)
       REAL(KIND=JWRB), ALLOCATABLE :: DFIM(:)
       REAL(KIND=JWRB), ALLOCATABLE :: RHOWG_DFIM(:)
       REAL(KIND=JWRB), ALLOCATABLE :: DFIM_SIM(:)
@@ -37,8 +37,8 @@ MODULE YOWFRED
       REAL(KIND=JWRB), ALLOCATABLE :: TH(:)
       REAL(KIND=JWRB), ALLOCATABLE :: COSTH(:)
       REAL(KIND=JWRB), ALLOCATABLE :: SINTH(:)
-      REAL(KIND=JWRB), ALLOCATABLE :: ZPIFR(:)
-      REAL(KIND=JWRB), ALLOCATABLE :: FR5(:)
+      REAL(KIND=JWRB) :: ZPIFR(36)
+      REAL(KIND=JWRB) :: FR5(36)
       REAL(KIND=JWRB), ALLOCATABLE :: FRM5(:)
       REAL(KIND=JWRB), ALLOCATABLE :: COFRM4(:)