Ignore:
Timestamp:
2018-07-30T12:13:07+02:00 (2 years ago)
Author:
davestorkey
Message:

UKMO dev_r9950_GO8_package branch : update to be relative to rev 10011 of NEMO4_beta_mirror branch.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r9950_GO8_package/src/OCE/DYN/dynzad.F90

    r9950 r10012  
    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.