Changeset 9965


Ignore:
Timestamp:
2018-07-18T15:53:41+02:00 (2 years ago)
Author:
mathiot
Message:

code change for #2120 in trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynzad.F90

    r9598 r9965  
    8989      ! 
    9090      ! Surface and bottom advective fluxes set to zero 
    91       IF( ln_isfcav ) THEN 
    92          DO jj = 2, jpjm1 
    93             DO ji = fs_2, fs_jpim1           ! vector opt. 
    94                zwuw(ji,jj, 1:miku(ji,jj) ) = 0._wp 
    95                zwvw(ji,jj, 1:mikv(ji,jj) ) = 0._wp 
    96                zwuw(ji,jj,jpk) = 0._wp 
    97                zwvw(ji,jj,jpk) = 0._wp 
    98             END DO 
    99          END DO 
    100       ELSE 
    101          DO jj = 2, jpjm1         
    102             DO ji = fs_2, fs_jpim1           ! vector opt. 
    103                zwuw(ji,jj, 1 ) = 0._wp 
    104                zwvw(ji,jj, 1 ) = 0._wp 
    105                zwuw(ji,jj,jpk) = 0._wp 
    106                zwvw(ji,jj,jpk) = 0._wp 
    107             END DO   
    108          END DO 
    109       END IF 
    110  
     91      DO jj = 2, jpjm1         
     92         DO ji = fs_2, fs_jpim1           ! vector opt. 
     93            zwuw(ji,jj, 1 ) = 0._wp 
     94            zwvw(ji,jj, 1 ) = 0._wp 
     95            zwuw(ji,jj,jpk) = 0._wp 
     96            zwvw(ji,jj,jpk) = 0._wp 
     97         END DO   
     98      END DO 
     99      ! 
    111100      DO jk = 1, jpkm1              ! Vertical momentum advection at u- and v-points 
    112101         DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.