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 10344 for NEMO/trunk/src – NEMO

Changeset 10344 for NEMO/trunk/src


Ignore:
Timestamp:
2018-11-21T08:30:01+01:00 (5 years ago)
Author:
smasson
Message:

trunk: avoid undefined (and harmless) values in icedyn_adv_umx to pass -fpe0 test

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icedyn_adv_umx.F90

    r10069 r10344  
    198198         CALL macho( k_order, kt, pdt, ptc, puc, pvc, pubox, pvbox, zt_u, zt_v ) 
    199199         ! 
    200          DO jj = 1, jpjm1 
     200         DO jj = 2, jpjm1 
    201201            DO ji = 1, fs_jpim1   ! vector opt. 
    202202               zfu_ho(ji,jj) = puc(ji,jj) * zt_u(ji,jj) 
     203            END DO 
     204         END DO 
     205         DO jj = 1, jpjm1 
     206            DO ji = fs_2, fs_jpim1   ! vector opt. 
    203207               zfv_ho(ji,jj) = pvc(ji,jj) * zt_v(ji,jj) 
    204208            END DO 
     
    209213      ! antidiffusive flux : high order minus low order 
    210214      ! -------------------------------------------------- 
    211       DO jj = 1, jpjm1 
     215      DO jj = 2, jpjm1 
    212216         DO ji = 1, fs_jpim1   ! vector opt. 
    213217            zfu_ho(ji,jj) = zfu_ho(ji,jj) - zfu_ups(ji,jj) 
     218         END DO 
     219      END DO 
     220      DO jj = 1, jpjm1 
     221         DO ji = fs_2, fs_jpim1   ! vector opt. 
    214222            zfv_ho(ji,jj) = zfv_ho(ji,jj) - zfv_ups(ji,jj) 
    215223         END DO 
Note: See TracChangeset for help on using the changeset viewer.