Changeset 1326 for trunk/NEMO/OFF_SRC/eosbn2.F90

Timestamp:

2009-02-20T11:08:16+01:00 (15 years ago)

Author:

cetlod

Message:

suppression of useless CPP key key_mpp_omp, see ticket:350

File:

• trunk/NEMO/OFF_SRC/eosbn2.F90 (modified) (4 diffs)

trunk/NEMO/OFF_SRC/eosbn2.F90

@@ -487 +487 @@
          DO jj = 1, jpjm1
 !CDIR NOVERRCHK
-#if defined key_mpp_omp
-            DO ji = 1, jpim1
-#else
             DO ji = 1, fs_jpim1   ! vector opt.
-#endif
                zws(ji,jj) = SQRT( ABS( psal(ji,jj) ) )
             END DO
@@ -499 +495 @@
          DO jj = 1, jpjm1                                 ! Horizontal slab
             !                                             ! ===============
-#if defined key_mpp_omp
-            DO ji = 1, jpim1
-#else
             DO ji = 1, fs_jpim1   ! vector opt.
-#endif
-
                zmask = tmask(ji,jj,1)      ! land/sea bottom mask = surf. mask
 
@@ -554 +545 @@
          DO jj = 1, jpjm1                                 ! Horizontal slab
             !                                             ! ===============
-#if defined key_mpp_omp
-            DO ji = 1, jpim1
-#else
             DO ji = 1, fs_jpim1   ! vector opt.
-#endif
                prd(ji,jj) = ( 0.0285 - ralpha * ptem(ji,jj) ) * tmask(ji,jj,1)
             END DO
@@ -571 +558 @@
          DO jj = 1, jpjm1                                 ! Horizontal slab
             !                                             ! ===============
-#if defined key_mpp_omp
-            DO ji = 1, jpim1
-#else
             DO ji = 1, fs_jpim1   ! vector opt.
-#endif
                prd(ji,jj) = ( rbeta * psal(ji,jj) - ralpha * ptem(ji,jj) ) * tmask(ji,jj,1) 
             END DO