Ignore:
Timestamp:
2018-05-22T11:09:09+02:00 (2 years ago)
Author:
andmirek
Message:

#2001 few additionale changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r6498 r9616  
    109109      ! 
    110110      !                                                ! =============== 
     111!$OMP PARALLEL  
    111112      DO jk = 2, jpkm1                                 ! Horizontal slab 
    112113         !                                             ! =============== 
    113114         ! Define the mask  
    114115         ! --------------- 
     116!$OMP DO PRIVATE(zrw, zaw, zbw, zdt, zds) 
    115117         DO jj = 1, jpj                                ! R=zrau = (alpha / beta) (dk[t] / dk[s]) 
    116118            DO ji = 1, jpi 
     
    130132         END DO 
    131133 
     134!$OMP DO 
    132135         DO jj = 1, jpj                                     ! indicators: 
    133136            DO ji = 1, jpi 
     
    156159         END DO 
    157160         ! mask zmsk in order to have avt and avs masked 
    158          zmsks(:,:) = zmsks(:,:) * wmask(:,:,jk) 
    159  
     161!$OMP DO  
     162         DO jj = 1, jpj 
     163            DO ji = 1, jpi 
     164                zmsks(ji,jj) = zmsks(ji,jj) * wmask(ji,jj,jk) 
     165            END DO 
     166         ENDDO 
    160167 
    161168         ! Update avt and avs 
    162169         ! ------------------ 
    163170         ! Constant eddy coefficient: reset to the background value 
    164 !CDIR NOVERRCHK 
     171!$OMP DO PRIVATE(zinr, zrr, zavfs, zavft, zavdt, zavds) 
    165172         DO jj = 1, jpj 
    166 !CDIR NOVERRCHK 
    167173            DO ji = 1, jpi 
    168174               zinr = 1._wp / zrau(ji,jj) 
     
    192198         ! -------------------------------- 
    193199!!gm to be changed following the definition of avm. 
     200!$OMP DO  
    194201         DO jj = 1, jpjm1 
    195202            DO ji = 1, fs_jpim1   ! vector opt. 
     
    204211         !                                                ! =============== 
    205212      END DO                                              !   End of slab 
     213!$OMP END PARALLEL 
    206214      !                                                   ! =============== 
    207215      ! 
Note: See TracChangeset for help on using the changeset viewer.