IFS-SOURCE-50R1-SYNC: rebase cleanup

awnawab · Dec 20, 2024 · feb568a · feb568a
1 parent ebf9a78
commit feb568a
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 21 deletions.
diff --git a/src/ecwam/icebreak_modify_attenuation.F90 b/src/ecwam/icebreak_modify_attenuation.F90
@@ -68,8 +68,8 @@ SUBROUTINE ICEBREAK_MODIFY_ATTENUATION (KIJS, KIJL, IBRMEM, ALPFAC)
 
       INTEGER(KIND=JWIM), INTENT(IN) :: KIJS, KIJL
 
-      REAL(KIND=JWRB)   , DIMENSION(KIJS:KIJL), INTENT(IN) :: IBRMEM
-      REAL(KIND=JWRB)   , DIMENSION(KIJS:KIJL), INTENT(INOUT) :: ALPFAC
+      REAL(KIND=JWRB)   , DIMENSION(KIJL), INTENT(IN) :: IBRMEM
+      REAL(KIND=JWRB)   , DIMENSION(KIJL), INTENT(INOUT) :: ALPFAC
 
       INTEGER(KIND=JWIM) :: IJ
       REAL(KIND=JWRB)    :: ZALPFACXINV

diff --git a/src/ecwam/sdice1.F90 b/src/ecwam/sdice1.F90
@@ -73,11 +73,11 @@ SUBROUTINE SDICE1 (KIJS, KIJL, FL1, FLD, SL,            &
 
       INTEGER(KIND=JWIM), INTENT(IN) :: KIJS, KIJL
 
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NANG,NFRE), INTENT(IN) :: FL1
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NANG,NFRE), INTENT(INOUT) :: FLD, SL
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NFRE), INTENT(IN) :: WAVNUM, CGROUP
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL), INTENT(IN) :: CICV
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL), INTENT(IN) :: CITH
+      REAL(KIND=JWRB), DIMENSION(KIJL,NANG,NFRE), INTENT(IN) :: FL1
+      REAL(KIND=JWRB), DIMENSION(KIJL,NANG,NFRE), INTENT(INOUT) :: FLD, SL
+      REAL(KIND=JWRB), DIMENSION(KIJL,NFRE), INTENT(IN) :: WAVNUM, CGROUP
+      REAL(KIND=JWRB), DIMENSION(KIJL), INTENT(IN) :: CICV
+      REAL(KIND=JWRB), DIMENSION(KIJL), INTENT(IN) :: CITH
 
       INTEGER(KIND=JWIM) :: IJ, K, M
       REAL(KIND=JWRB)    :: TEMP
@@ -91,8 +91,8 @@ SUBROUTINE SDICE1 (KIJS, KIJL, FL1, FLD, SL,            &
       REAL(KIND=JWRB) :: TW, X
       REAL(KIND=JWRB) :: A, B, C
       REAL(KIND=JWRB) :: CIDEAC_INT, WT, WT1, WH, WH1
-      REAL(KIND=JWRB),DIMENSION(KIJS:KIJL) :: DINV
-      REAL(KIND=JWRB),DIMENSION(KIJS:KIJL,NFRE) :: ALP
+      REAL(KIND=JWRB),DIMENSION(KIJL) :: DINV
+      REAL(KIND=JWRB),DIMENSION(KIJL,NFRE) :: ALP
 
       REAL(KIND=JPHOOK) :: ZHOOK_HANDLE
 

diff --git a/src/ecwam/sdice2.F90 b/src/ecwam/sdice2.F90
@@ -73,10 +73,10 @@ SUBROUTINE SDICE2 (KIJS, KIJL, FL1, FLD, SL,            &
 
       INTEGER(KIND=JWIM), INTENT(IN) :: KIJS, KIJL
 
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NANG,NFRE), INTENT(IN) :: FL1
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NANG,NFRE), INTENT(INOUT) :: FLD, SL
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NFRE), INTENT(IN) :: WAVNUM, CGROUP
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL), INTENT(IN) :: CICV
+      REAL(KIND=JWRB), DIMENSION(KIJL,NANG,NFRE), INTENT(IN) :: FL1
+      REAL(KIND=JWRB), DIMENSION(KIJL,NANG,NFRE), INTENT(INOUT) :: FLD, SL
+      REAL(KIND=JWRB), DIMENSION(KIJL,NFRE), INTENT(IN) :: WAVNUM, CGROUP
+      REAL(KIND=JWRB), DIMENSION(KIJL), INTENT(IN) :: CICV
 
       REAL(KIND=JWRB), DIMENSION(NFRE)    :: XK2
 

diff --git a/src/ecwam/sdice3.F90 b/src/ecwam/sdice3.F90
@@ -73,14 +73,14 @@ SUBROUTINE SDICE3 (KIJS, KIJL, FL1, FLD, SL,            &
 
       INTEGER(KIND=JWIM), INTENT(IN) :: KIJS, KIJL
 
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NANG,NFRE), INTENT(IN) :: FL1
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NANG,NFRE), INTENT(INOUT) :: FLD, SL
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NFRE), INTENT(IN) :: WAVNUM, CGROUP
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL), INTENT(IN) :: CICV
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL), INTENT(IN) :: CITH
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL), INTENT(IN) :: ALPFAC
-
-      REAL(KIND=JWRB), DIMENSION(KIJS:KIJL,NFRE)        :: ALP  !! ALP=SPATIAL ATTENUATION RATE OF ENERGY
+      REAL(KIND=JWRB), DIMENSION(KIJL,NANG,NFRE), INTENT(IN) :: FL1
+      REAL(KIND=JWRB), DIMENSION(KIJL,NANG,NFRE), INTENT(INOUT) :: FLD, SL
+      REAL(KIND=JWRB), DIMENSION(KIJL,NFRE), INTENT(IN) :: WAVNUM, CGROUP
+      REAL(KIND=JWRB), DIMENSION(KIJL), INTENT(IN) :: CICV
+      REAL(KIND=JWRB), DIMENSION(KIJL), INTENT(IN) :: CITH
+      REAL(KIND=JWRB), DIMENSION(KIJL), INTENT(IN) :: ALPFAC
+
+      REAL(KIND=JWRB), DIMENSION(KIJL,NFRE)        :: ALP  !! ALP=SPATIAL ATTENUATION RATE OF ENERGY
 
       INTEGER(KIND=JWIM) :: IMODEL                              !! DAMPING MODEL: 1=FIT TO TEMPELFJORD DATA, 2=Jie Yu 2022
       INTEGER(KIND=JWIM) :: IJ, K, M