Changeset 1197 for trunk/NEMO/TOP_SRC/TRP/trcbbc.F90

Timestamp:

2008-09-22T10:03:39+02:00 (16 years ago)

Author:

cetlod

Message:

remove useless CPP key, key_mpp_omp in passive tracers transport routines, see ticket:49

File:

• trunk/NEMO/TOP_SRC/TRP/trcbbc.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/TRP/trcbbc.F90

@@ -75 +75 @@
       INTEGER, INTENT( in ) ::   kt                         ! ocean time-step index
 
-#if defined key_vectopt_loop   &&   ! defined key_mpp_omp
+#if defined key_vectopt_loop 
       INTEGER ::   ji, jn                                   ! dummy loop indices
 #else
@@ -106 +106 @@
 
 
-#if defined key_vectopt_loop   &&   ! defined key_mpp_omp
+#if defined key_vectopt_loop
             DO ji = jpi+2, jpij-jpi-1   ! vector opt. (forced unrolling)
                tra(ji,1,nbotlevt(ji,1),jn) = tra(ji,1,nbotlevt(ji,1),jn) + qgh_trd(ji,1)
@@ -220 +220 @@
       CASE ( 1:2 )                !  geothermal heat flux
 
-#if defined key_vectopt_loop   &&   ! defined key_mpp_omp
+#if defined key_vectopt_loop
          DO ji = 1, jpij   ! vector opt. (forced unrolling)
             qgh_trd(ji,1) = ro0cpr * qgh_trd(ji,1) / fse3t(ji,1,nbotlevt(ji,1) )