Changeset 6712


Ignore:
Timestamp:
2016-06-14T16:23:21+02:00 (4 years ago)
Author:
mocavero
Message:

update some OMP directives

Location:
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r6508 r6712  
    314314 
    315315      ! interior value (2=<jk=<jpkm1) 
     316   DO jk = 2, jpkm1 
    316317!$OMP PARALLEL DO private(ji,jj, zcoef1) 
    317      DO jk = 2, jpkm1 
    318318         DO jj = 2, jpjm1 
    319319            DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    322322               zhpi(ji,jj,jk) = zhpi(ji,jj,jk-1)   & 
    323323                  &           + zcoef1 * (  ( rhd(ji+1,jj,jk) + rhd(ji+1,jj,jk-1) )   & 
    324                   &                       
    325               - ( rhd(ji  ,jj,jk) + rhd(ji  ,jj,jk-1) )  ) / e1u(ji,jj) 
     324                  &                       - ( rhd(ji  ,jj,jk) + rhd(ji  ,jj,jk-1) )  ) / e1u(ji,jj) 
    326325 
    327326               zhpj(ji,jj,jk) = zhpj(ji,jj,jk-1)   & 
  • branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

    r6508 r6712  
    8181         ztrdv(:,:,:) = va(:,:,:)  
    8282      ENDIF 
    83 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji)       
    8483      DO jk = 2, jpkm1              ! Vertical momentum advection at level w and u- and v- vertical 
     84!$OMP PARALLEL DO schedule(static) private(jj, ji)       
    8585         DO jj = 2, jpj                   ! vertical fluxes  
    8686            DO ji = fs_2, jpi             ! vector opt. 
     
    8888            END DO 
    8989         END DO 
     90!$OMP PARALLEL DO schedule(static) private(jj, ji)       
    9091         DO jj = 2, jpjm1                 ! vertical momentum advection at w-point 
    9192            DO ji = fs_2, fs_jpim1        ! vector opt. 
  • branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r6508 r6712  
    222222      END DO 
    223223      ! 
    224 !$OMP PARALLEL DO schedule(static) private(jj, ji)       
     224!$OMP PARALLEL DO schedule(static) private(jj, ji, ze3ua)       
    225225      DO jj = 2, jpjm1        !==  second recurrence:    SOLk = RHSk - Lk / Dk-1  Lk-1  == 
    226226         DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    388388      !! restore bottom layer avmu(v)  
    389389      IF( ln_bfrimp ) THEN 
    390 !$OMP PARALLEL DO schedule(static) private(jj, ji) 
     390!$OMP PARALLEL DO schedule(static) private(jj, ji, ikbu, ikbv) 
    391391        DO jj = 2, jpjm1 
    392392           DO ji = 2, jpim1 
     
    398398        END DO 
    399399        IF (ln_isfcav) THEN 
    400 !$OMP PARALLEL DO schedule(static) private(jj, ji) 
     400!$OMP PARALLEL DO schedule(static) private(jj, ji, ikbu, ikbv) 
    401401           DO jj = 2, jpjm1 
    402402              DO ji = 2, jpim1 
  • branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r6508 r6712  
    169169         !==   Local vertical density gradient at T-point   == !   (evaluated from N^2) 
    170170         ! interior value 
    171 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji) 
     171!$OMP PARALLEL DO schedule(static) private(jk) 
    172172       DO jk = 2, jpkm1 
    173173            !                                ! zdzr = d/dz(prd)= - ( prd ) / grav * mk(pn2) -- at t point 
     
    801801      !----------------------------------------------------------------------- 
    802802      ! 
    803 !$OMP PARALLEL DO schedule(static) private(jj, ji, iku, ikv, zbu, zbv, zau, zav, ik, zbw, zci, zcj, zai, zaj, zbi, zbj)  
     803!$OMP PARALLEL DO schedule(static) private(jj, ji, iku, ikv, zbu, zbv, zau, zav, ik, ikm1, zbw, zci, zcj, zai, zaj, zbi, zbj)  
    804804      DO jj = 2, jpjm1 
    805805         DO ji = 2, jpim1 
  • branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90

    r6508 r6712  
    204204         !          
    205205         ! second recurrence:    Zk = Yk - Ik / Tk-1  Zk-1 
    206          !$OMP PARALLEL DO schedule(static) private(jj, ji) 
     206         !$OMP PARALLEL DO schedule(static) private(jj, ji, ze3tb, ze3tn) 
    207207         DO jj = 2, jpjm1 
    208208            DO ji = fs_2, fs_jpim1 
     
    214214         END DO 
    215215         DO jk = 2, jpkm1 
    216          !$OMP PARALLEL DO schedule(static) private(jj, ji) 
     216         !$OMP PARALLEL DO schedule(static) private(jj, ji, ze3tb, ze3tn, zrhs) 
    217217            DO jj = 2, jpjm1 
    218218               DO ji = fs_2, fs_jpim1 
  • branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r6508 r6712  
    171171      !!              Bruchard OM 2002 
    172172      !!---------------------------------------------------------------------- 
     173      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    173174      INTEGER, INTENT(in) ::   kt   ! ocean time step 
    174175      !!---------------------------------------------------------------------- 
     
    318319         zcof = 0.5 * 0.016 * 0.016 / ( zrhoa * zcdrag ) 
    319320         imlc(:,:) = mbkt(:,:) + 1       ! Initialization to the number of w ocean point (=2 over land) 
    320 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zus) 
    321321       DO jk = jpkm1, 2, -1 
    322322            DO jj = 1, jpj               ! Last w-level at which zpelc>=0.5*us*us  
     
    576576     ! 
    577577      IF( ln_mxl0 ) THEN            ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rau0*g) 
    578 !$OMP PARALLEL DO schedule(static) private(jj, ji) 
     578!$OMP PARALLEL DO schedule(static) private(jj, ji, zraug) 
    579579       DO jj = 2, jpjm1 
    580580            DO ji = fs_2, fs_jpim1 
     
    650650         END DO 
    651651         DO jk = jpkm1, 2, -1     ! from the bottom to the surface : 
    652 !$OMP PARALLEL DO schedule(static) private(jj, ji) 
     652!$OMP PARALLEL DO schedule(static) private(jj, ji, zemxl) 
    653653            DO jj = 2, jpjm1 
    654654               DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    678678         END DO 
    679679!CDIR NOVERRCHK 
    680 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zemxl, zemlp) 
     680!$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zemlm, zemlp) 
    681681         DO jk = 2, jpkm1 
    682682!CDIR NOVERRCHK 
Note: See TracChangeset for help on using the changeset viewer.