Changeset 9967 for NEMO/releases


Ignore:
Timestamp:
2018-07-18T17:08:52+02:00 (2 years ago)
Author:
mathiot
Message:

fix #2120 in 3.6_STABLE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/release-3.6/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

    r5120 r9967  
    9797      ! 
    9898      ! Surface and bottom advective fluxes set to zero 
    99       IF ( ln_isfcav ) THEN 
    100          DO jj = 2, jpjm1 
    101             DO ji = fs_2, fs_jpim1           ! vector opt. 
    102                zwuw(ji,jj, 1:miku(ji,jj) ) = 0._wp 
    103                zwvw(ji,jj, 1:mikv(ji,jj) ) = 0._wp 
    104                zwuw(ji,jj,jpk) = 0._wp 
    105                zwvw(ji,jj,jpk) = 0._wp 
    106             END DO 
    107          END DO 
    108       ELSE 
    109          DO jj = 2, jpjm1         
    110             DO ji = fs_2, fs_jpim1           ! vector opt. 
    111                zwuw(ji,jj, 1 ) = 0._wp 
    112                zwvw(ji,jj, 1 ) = 0._wp 
    113                zwuw(ji,jj,jpk) = 0._wp 
    114                zwvw(ji,jj,jpk) = 0._wp 
    115             END DO   
    116          END DO 
    117       END IF 
     99      DO jj = 2, jpjm1         
     100         DO ji = fs_2, fs_jpim1           ! vector opt. 
     101            zwuw(ji,jj, 1 ) = 0._wp 
     102            zwvw(ji,jj, 1 ) = 0._wp 
     103            zwuw(ji,jj,jpk) = 0._wp 
     104            zwvw(ji,jj,jpk) = 0._wp 
     105         END DO   
     106      END DO 
    118107 
    119108      DO jk = 1, jpkm1              ! Vertical momentum advection at u- and v-points 
Note: See TracChangeset for help on using the changeset viewer.