- Timestamp:
- 2014-04-06T17:28:25+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r4370 r4616 39 39 # include "vectopt_loop_substitute.h90" 40 40 !!---------------------------------------------------------------------- 41 !! NEMO/OPA 3. 3 , NEMO Consortium (2010)41 !! NEMO/OPA 3.7 , NEMO Consortium (2014) 42 42 !! $Id$ 43 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 101 101 102 102 IF( ln_bfrimp ) THEN 103 # if defined key_vectopt_loop104 DO jj = 1, 1105 DO ji = jpi+2, jpij-jpi-1 ! vector opt. (forced unrolling)106 # else107 103 DO jj = 2, jpjm1 108 104 DO ji = 2, jpim1 109 # endif110 105 ikbu = mbku(ji,jj) ! ocean bottom level at u- and v-points 111 106 ikbv = mbkv(ji,jj) ! (deepest ocean u- and v-points) … … 352 347 !! restore bottom layer avmu(v) 353 348 IF( ln_bfrimp ) THEN 354 # if defined key_vectopt_loop 355 DO jj = 1, 1 356 DO ji = jpi+2, jpij-jpi-1 ! vector opt. (forced unrolling) 357 # else 358 DO jj = 2, jpjm1 359 DO ji = 2, jpim1 360 # endif 361 ikbu = mbku(ji,jj) ! ocean bottom level at u- and v-points 362 ikbv = mbkv(ji,jj) ! (deepest ocean u- and v-points) 363 avmu(ji,jj,ikbu+1) = 0.e0 364 avmv(ji,jj,ikbv+1) = 0.e0 365 END DO 366 END DO 349 DO jj = 2, jpjm1 350 DO ji = 2, jpim1 351 ikbu = mbku(ji,jj) ! ocean bottom level at u- and v-points 352 ikbv = mbkv(ji,jj) ! (deepest ocean u- and v-points) 353 avmu(ji,jj,ikbu+1) = 0._wp 354 avmv(ji,jj,ikbv+1) = 0._wp 355 END DO 356 END DO 367 357 ENDIF 368 358 !
Note: See TracChangeset
for help on using the changeset viewer.