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 13325 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynspg_ts.F90 – NEMO

Ignore:
Timestamp:
2020-07-20T09:12:12+02:00 (4 years ago)
Author:
andmirek
Message:

Ticket ##2482: Use explicit index in dynspg_ts.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DYN/dynspg_ts.F90

    r10888 r13325  
    323323            ! 
    324324            DO jj = 1, jpjm1 
    325                zhf(:,jj) = zhf(:,jj) * (1._wp- umask(:,jj,1) * umask(:,jj+1,1)) 
     325             DO ji = 1, jpi 
     326               zhf(ji,jj) = zhf(ji,jj) * (1._wp- umask(ji,jj,1) * umask(ji,jj+1,1)) 
     327             ENDDO 
    326328            END DO 
    327329            ! 
    328330            DO jk = 1, jpkm1 
    329331               DO jj = 1, jpjm1 
    330                   zhf(:,jj) = zhf(:,jj) + e3f_n(:,jj,jk) * umask(:,jj,jk) * umask(:,jj+1,jk) 
     332                DO ji = 1, jpi 
     333                  zhf(ji,jj) = zhf(ji,jj) + e3f_n(ji,jj,jk) * umask(ji,jj,jk) * umask(ji,jj+1,jk) 
     334                ENDDO 
    331335               END DO 
    332336            END DO 
Note: See TracChangeset for help on using the changeset viewer.