Changeset 7753 for trunk/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_istate.F90

Timestamp:

2017-03-03T12:46:59+01:00 (7 years ago)

Author:

mocavero

Message:

Reverting trunk to remove OpenMP

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_istate.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/USR/usrdef_istate.F90

@@ -7 +7 @@
    !! User defined : set the initial state of a user configuration
    !!======================================================================
-   !! History :  4.0  ! 2016-03  (S. Flavoni) Original code
+   !! History :  4.0 ! 2016-03  (S. Flavoni) Original code
    !!----------------------------------------------------------------------
 
@@ -55 +55 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~   Ocean at rest, with an horizontally uniform T and S profiles'
       !
-!$OMP PARALLEL
-!$OMP DO schedule(static) private(jk,jj,ji)
-      DO jk = 1, jpk
-         DO jj = 1, jpj
-            DO ji = 1, jpi
-               pu  (ji,jj,jk) = 0._wp        ! ocean at rest
-               pv  (ji,jj,jk) = 0._wp
-            END DO
-         END DO
-      END DO
-!$OMP END DO NOWAIT
-!$OMP DO schedule(static) private(jj,ji)
-      DO jj = 1, jpj
-         DO ji = 1, jpi
-            pssh(ji,jj)   = 0._wp
-         END DO
-      END DO
-!$OMP END DO NOWAIT
+      pu  (:,:,:) = 0._wp        ! ocean at rest
+      pv  (:,:,:) = 0._wp
+      pssh(:,:)   = 0._wp
       !
-!$OMP DO schedule(static) private(jk,jj,ji)
       DO jk = 1, jpk             ! horizontally uniform T & S profiles
          DO jj = 1, jpj
@@ -95 +79 @@
          END DO
       END DO
-!$OMP END PARALLEL
       !   
    END SUBROUTINE usr_def_istate