Changeset 1197 for trunk/NEMO/TOP_SRC/TRP/trcbbc.F90
- Timestamp:
- 2008-09-22T10:03:39+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trcbbc.F90
r1193 r1197 75 75 INTEGER, INTENT( in ) :: kt ! ocean time-step index 76 76 77 #if defined key_vectopt_loop && ! defined key_mpp_omp77 #if defined key_vectopt_loop 78 78 INTEGER :: ji, jn ! dummy loop indices 79 79 #else … … 106 106 107 107 108 #if defined key_vectopt_loop && ! defined key_mpp_omp108 #if defined key_vectopt_loop 109 109 DO ji = jpi+2, jpij-jpi-1 ! vector opt. (forced unrolling) 110 110 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 221 221 222 #if defined key_vectopt_loop && ! defined key_mpp_omp222 #if defined key_vectopt_loop 223 223 DO ji = 1, jpij ! vector opt. (forced unrolling) 224 224 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.