Changeset 9456

Timestamp:

2018-04-04T09:24:34+02:00 (7 years ago)

Author:

cetlod

Message:

dev_merge : Bugfix to avoid out-of-bounds in CFC model, see ticket #2073

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

@@ -72 +72 @@
       INTEGER, INTENT(in) ::   kt    ! ocean time-step index
       !
-      INTEGER  ::   ji, jj, jn, jl, jm, js
+      INTEGER  ::   ji, jj, jn, jl, jm
       INTEGER  ::   iyear_beg, iyear_end
       INTEGER  ::   im1, im2, ierr
@@ -173 +173 @@
             &                    'at it= ', kt,' date= ', ndastp
          IF(lwp) WRITE(numout,*) '~~~~'
+         jl = 0
          DO jn = jp_cfc0, jp_cfc1
-            CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) )
+             jl = jl + 1
+            CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) )
          END DO
       ENDIF                                            
@@ -204 +206 @@
       !! ** Purpose : sets constants for CFC model
       !!---------------------------------------------------------------------
-      INTEGER ::   jn   !
+      INTEGER ::   jn, jl   !
       !!----------------------------------------------------------------------
       !
@@ -288 +290 @@
          IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
          !
+         jl = 0
          DO jn = jp_cfc0, jp_cfc1
-            CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 
+            jl = jl + 1
+            CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) ) 
          END DO
       ENDIF