Changeset 6712
- Timestamp:
- 2016-06-14T16:23:21+02:00 (9 years ago)
- Location:
- branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r6508 r6712 314 314 315 315 ! interior value (2=<jk=<jpkm1) 316 DO jk = 2, jpkm1 316 317 !$OMP PARALLEL DO private(ji,jj, zcoef1) 317 DO jk = 2, jpkm1318 318 DO jj = 2, jpjm1 319 319 DO ji = fs_2, fs_jpim1 ! vector opt. … … 322 322 zhpi(ji,jj,jk) = zhpi(ji,jj,jk-1) & 323 323 & + zcoef1 * ( ( rhd(ji+1,jj,jk) + rhd(ji+1,jj,jk-1) ) & 324 & 325 - ( rhd(ji ,jj,jk) + rhd(ji ,jj,jk-1) ) ) / e1u(ji,jj) 324 & - ( rhd(ji ,jj,jk) + rhd(ji ,jj,jk-1) ) ) / e1u(ji,jj) 326 325 327 326 zhpj(ji,jj,jk) = zhpj(ji,jj,jk-1) & -
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r6508 r6712 81 81 ztrdv(:,:,:) = va(:,:,:) 82 82 ENDIF 83 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji)84 83 DO jk = 2, jpkm1 ! Vertical momentum advection at level w and u- and v- vertical 84 !$OMP PARALLEL DO schedule(static) private(jj, ji) 85 85 DO jj = 2, jpj ! vertical fluxes 86 86 DO ji = fs_2, jpi ! vector opt. … … 88 88 END DO 89 89 END DO 90 !$OMP PARALLEL DO schedule(static) private(jj, ji) 90 91 DO jj = 2, jpjm1 ! vertical momentum advection at w-point 91 92 DO ji = fs_2, fs_jpim1 ! vector opt. -
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r6508 r6712 222 222 END DO 223 223 ! 224 !$OMP PARALLEL DO schedule(static) private(jj, ji )224 !$OMP PARALLEL DO schedule(static) private(jj, ji, ze3ua) 225 225 DO jj = 2, jpjm1 !== second recurrence: SOLk = RHSk - Lk / Dk-1 Lk-1 == 226 226 DO ji = fs_2, fs_jpim1 ! vector opt. … … 388 388 !! restore bottom layer avmu(v) 389 389 IF( ln_bfrimp ) THEN 390 !$OMP PARALLEL DO schedule(static) private(jj, ji )390 !$OMP PARALLEL DO schedule(static) private(jj, ji, ikbu, ikbv) 391 391 DO jj = 2, jpjm1 392 392 DO ji = 2, jpim1 … … 398 398 END DO 399 399 IF (ln_isfcav) THEN 400 !$OMP PARALLEL DO schedule(static) private(jj, ji )400 !$OMP PARALLEL DO schedule(static) private(jj, ji, ikbu, ikbv) 401 401 DO jj = 2, jpjm1 402 402 DO ji = 2, jpim1 -
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r6508 r6712 169 169 !== Local vertical density gradient at T-point == ! (evaluated from N^2) 170 170 ! interior value 171 !$OMP PARALLEL DO schedule(static) private(jk ,jj,ji)171 !$OMP PARALLEL DO schedule(static) private(jk) 172 172 DO jk = 2, jpkm1 173 173 ! ! zdzr = d/dz(prd)= - ( prd ) / grav * mk(pn2) -- at t point … … 801 801 !----------------------------------------------------------------------- 802 802 ! 803 !$OMP PARALLEL DO schedule(static) private(jj, ji, iku, ikv, zbu, zbv, zau, zav, ik, zbw, zci, zcj, zai, zaj, zbi, zbj)803 !$OMP PARALLEL DO schedule(static) private(jj, ji, iku, ikv, zbu, zbv, zau, zav, ik, ikm1, zbw, zci, zcj, zai, zaj, zbi, zbj) 804 804 DO jj = 2, jpjm1 805 805 DO ji = 2, jpim1 -
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r6508 r6712 204 204 ! 205 205 ! second recurrence: Zk = Yk - Ik / Tk-1 Zk-1 206 !$OMP PARALLEL DO schedule(static) private(jj, ji )206 !$OMP PARALLEL DO schedule(static) private(jj, ji, ze3tb, ze3tn) 207 207 DO jj = 2, jpjm1 208 208 DO ji = fs_2, fs_jpim1 … … 214 214 END DO 215 215 DO jk = 2, jpkm1 216 !$OMP PARALLEL DO schedule(static) private(jj, ji )216 !$OMP PARALLEL DO schedule(static) private(jj, ji, ze3tb, ze3tn, zrhs) 217 217 DO jj = 2, jpjm1 218 218 DO ji = fs_2, fs_jpim1 -
branches/2016/dev_v3_6_STABLE_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r6508 r6712 171 171 !! Bruchard OM 2002 172 172 !!---------------------------------------------------------------------- 173 INTEGER :: ji, jj, jk ! dummy loop indices 173 174 INTEGER, INTENT(in) :: kt ! ocean time step 174 175 !!---------------------------------------------------------------------- … … 318 319 zcof = 0.5 * 0.016 * 0.016 / ( zrhoa * zcdrag ) 319 320 imlc(:,:) = mbkt(:,:) + 1 ! Initialization to the number of w ocean point (=2 over land) 320 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zus)321 321 DO jk = jpkm1, 2, -1 322 322 DO jj = 1, jpj ! Last w-level at which zpelc>=0.5*us*us … … 576 576 ! 577 577 IF( ln_mxl0 ) THEN ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rau0*g) 578 !$OMP PARALLEL DO schedule(static) private(jj, ji )578 !$OMP PARALLEL DO schedule(static) private(jj, ji, zraug) 579 579 DO jj = 2, jpjm1 580 580 DO ji = fs_2, fs_jpim1 … … 650 650 END DO 651 651 DO jk = jpkm1, 2, -1 ! from the bottom to the surface : 652 !$OMP PARALLEL DO schedule(static) private(jj, ji )652 !$OMP PARALLEL DO schedule(static) private(jj, ji, zemxl) 653 653 DO jj = 2, jpjm1 654 654 DO ji = fs_2, fs_jpim1 ! vector opt. … … 678 678 END DO 679 679 !CDIR NOVERRCHK 680 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zem xl, zemlp)680 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zemlm, zemlp) 681 681 DO jk = 2, jpkm1 682 682 !CDIR NOVERRCHK
Note: See TracChangeset
for help on using the changeset viewer.