Ignore:
Timestamp:
2018-01-04T13:30:03+01:00 (3 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/DYN/divcur.F90

    r6487 r9176  
    105105         IF(lwp) WRITE(numout,*) '~~~~~~~   NOT optimal for auto-tasking case' 
    106106      ENDIF 
    107  
    108       !                                                ! =============== 
     107      ! 
     108!$OMP PARALLEL DO                                       ! =============== 
    109109      DO jk = 1, jpkm1                                 ! Horizontal slab 
    110110         !                                             ! =============== 
     
    287287      ENDIF 
    288288 
    289       !                                                ! =============== 
     289!$OMP PARALLEL DO                                      ! =============== 
    290290      DO jk = 1, jpkm1                                 ! Horizontal slab 
    291291         !                                             ! =============== 
Note: See TracChangeset for help on using the changeset viewer.