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/TRA/tranxt.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/TRA/tranxt.F90

    r6487 r9176  
    153153     ! trends computation 
    154154      IF( l_trdtra ) THEN      ! trend of the Asselin filter (tb filtered - tb)/dt      
     155!$OMP PARALLEL DO PRIVATE(zfact) 
    155156         DO jk = 1, jpkm1 
    156157            zfact = 1._wp / r2dtra(jk)              
     
    304305      ! 
    305306      DO jn = 1, kjpt       
     307!$OMP PARALLEL DO PRIVATE(zfact1, zfact2, ze3t_b, ze3t_n, ze3t_a, ztc_b, ztc_n, ztc_a, ze3t_d, ztc_d, & 
     308!$OMP&                    ze3t_f, ztc_f, ze3t_d) 
    306309         DO jk = 1, jpkm1 
    307310            zfact1 = atfp * p2dt(jk) 
Note: See TracChangeset for help on using the changeset viewer.