New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9176 for branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90 – NEMO

Ignore:
Timestamp:
2018-01-04T13:30:03+01:00 (6 years ago)
Author:
andmirek
Message:

#2001: OMP directives

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90

    r6491 r9176  
    8888      IF( iom_use("ut") ) THEN 
    8989         z3d(:,:,:) = 0.e0  
     90!$OMP PARALLEL DO 
    9091         DO jk = 1, jpkm1 
    9192            DO jj = 2, jpjm1 
     
    100101      IF( iom_use("vt") ) THEN 
    101102         z3d(:,:,:) = 0.e0  
     103!$OMP PARALLEL DO 
    102104         DO jk = 1, jpkm1 
    103105            DO jj = 2, jpjm1 
     
    117119            END DO 
    118120         END DO 
     121!$OMP PARALLEL DO 
    119122         DO jk = 2, jpkm1 
    120123            DO jj = 2, jpjm1 
     
    129132      IF( iom_use("us") ) THEN 
    130133         z3d(:,:,:) = 0.e0  
     134!$OMP PARALLEL DO 
    131135         DO jk = 1, jpkm1 
    132136            DO jj = 2, jpjm1 
     
    141145      IF( iom_use("vs") ) THEN 
    142146         z3d(:,:,:) = 0.e0  
     147!$OMP PARALLEL DO 
    143148         DO jk = 1, jpkm1 
    144149            DO jj = 2, jpjm1 
     
    158163            END DO 
    159164         END DO 
     165!$OMP PARALLEL DO 
    160166         DO jk = 2, jpkm1 
    161167            DO jj = 2, jpjm1 
     
    170176      IF( iom_use("urhop") ) THEN 
    171177         z3d(:,:,:) = 0.e0  
     178!$OMP PARALLEL DO 
    172179         DO jk = 1, jpkm1 
    173180            DO jj = 2, jpjm1 
     
    182189      IF( iom_use("vrhop") ) THEN 
    183190         z3d(:,:,:) = 0.e0  
     191!$OMP PARALLEL DO 
    184192         DO jk = 1, jpkm1 
    185193            DO jj = 2, jpjm1 
     
    199207            END DO 
    200208         END DO 
     209!$OMP PARALLEL DO 
    201210         DO jk = 2, jpkm1 
    202211            DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.