Changeset 457 for trunk/NEMO/OPA_SRC/TRA/trabbc.F90
- Timestamp:
- 2006-05-10T19:01:19+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trabbc.F90
r392 r457 79 79 80 80 !! * Local declarations 81 #if defined key_vectopt_loop && ! defined key_ autotasking81 #if defined key_vectopt_loop && ! defined key_mpp_omp 82 82 INTEGER :: ji ! dummy loop indices 83 83 #else … … 95 95 CASE ( 1:2 ) ! geothermal heat flux 96 96 97 #if defined key_vectopt_loop && ! defined key_ autotasking97 #if defined key_vectopt_loop && ! defined key_mpp_omp 98 98 DO ji = jpi+2, jpij-jpi-1 ! vector opt. (forced unrolling) 99 99 ta(ji,1,nbotlevt(ji,1)) = ta(ji,1,nbotlevt(ji,1)) + qgh_trd(ji,1) … … 223 223 CASE ( 1:2 ) ! geothermal heat flux 224 224 225 #if defined key_vectopt_loop && ! defined key_ autotasking225 #if defined key_vectopt_loop && ! defined key_mpp_omp 226 226 DO ji = 1, jpij ! vector opt. (forced unrolling) 227 227 qgh_trd(ji,1) = ro0cpr * qgh_trd(ji,1) / fse3t(ji,1,nbotlevt(ji,1) )
Note: See TracChangeset
for help on using the changeset viewer.