New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9455 – NEMO

Changeset 9455


Ignore:
Timestamp:
2018-04-04T09:21:45+02:00 (7 years ago)
Author:
cetlod
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r9400 r9455  
    190190            &                    'at it= ', kt,' date= ', ndastp 
    191191         IF(lwp) WRITE(numout,*) '~~~~' 
     192         jl = 0 
    192193         DO jn = jp_cfc0, jp_cfc1 
    193             CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) ) 
     194            jl = jl + 1 
     195            CALL iom_rstput( kt, nitrst, numrtw, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) ) 
    194196         END DO 
    195197      ENDIF                                             
     
    230232      !! ** Purpose : sets constants for CFC model 
    231233      !!--------------------------------------------------------------------- 
    232       INTEGER :: jn 
     234      INTEGER :: jn, jl 
    233235      !!---------------------------------------------------------------------- 
    234236      ! 
     
    314316         IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    315317         ! 
     318         jl = 0 
    316319         DO jn = jp_cfc0, jp_cfc1 
    317             CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jn) )  
     320            jl = jl + 1 
     321            CALL iom_get( numrtr, jpdom_autoglo, 'qint_'//ctrcnm(jn), qint_cfc(:,:,jl) )  
    318322         END DO 
    319323      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.