Ignore:
Timestamp:
2017-03-03T12:46:59+01:00 (4 years ago)
Author:
mocavero
Message:

Reverting trunk to remove OpenMP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r7698 r7753  
    268268      !! ** purpose  :   Compute tracers statistics 
    269269      !!---------------------------------------------------------------------- 
    270       INTEGER  :: jk, jj, ji, jn 
     270      INTEGER  :: jk, jn 
    271271      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift 
    272272      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol 
     
    279279      ENDIF 
    280280      ! 
    281 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji) 
    282281      DO jk = 1, jpk 
    283          DO jj = 1, jpj 
    284             DO ji = 1, jpi 
    285                zvol(ji,jj,jk) = e1e2t(ji,jj) * e3t_a(ji,jj,jk) * tmask(ji,jj,jk) 
    286             END DO 
    287          END DO 
     282         zvol(:,:,jk) = e1e2t(:,:) * e3t_a(:,:,jk) * tmask(:,:,jk) 
    288283      END DO 
    289284      ! 
Note: See TracChangeset for help on using the changeset viewer.