- Timestamp:
- 2016-06-28T11:53:56+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r6140 r6748 112 112 IF ( ln_loglayer.AND. .NOT.ln_linssh ) THEN ! "log layer" bottom friction coefficient 113 113 114 !$OMP PARALLEL DO private(jj,ji,ikbt,ztmp) 114 115 DO jj = 1, jpj 115 116 DO ji = 1, jpi … … 123 124 ! (ISF) 124 125 IF ( ln_isfcav ) THEN 126 !$OMP PARALLEL DO private(jj,ji,ikbt,ztmp) 125 127 DO jj = 1, jpj 126 128 DO ji = 1, jpi … … 135 137 ! 136 138 ELSE 139 !$OMP PARALLEL WORKSHARE 137 140 zbfrt(:,:) = bfrcoef2d(:,:) 138 141 ztfrt(:,:) = tfrcoef2d(:,:) 139 ENDIF 140 142 !$OMP END PARALLEL WORKSHARE 143 ENDIF 144 145 !$OMP PARALLEL DO private(jj,ji,ikbu,ikbv,zvu,zuv,zecu,zecv) 141 146 DO jj = 2, jpjm1 142 147 DO ji = 2, jpim1 … … 173 178 174 179 IF( ln_isfcav ) THEN 180 !$OMP PARALLEL DO private(jj,ji,ikbu,ikbv,zvu,zuv,zecu,zecv) 175 181 DO jj = 2, jpjm1 176 182 DO ji = 2, jpim1 … … 266 272 CASE( 0 ) 267 273 IF(lwp) WRITE(numout,*) ' free-slip ' 274 !$OMP PARALLEL WORKSHARE 268 275 bfrua(:,:) = 0.e0 269 276 bfrva(:,:) = 0.e0 270 277 tfrua(:,:) = 0.e0 271 278 tfrva(:,:) = 0.e0 279 !$OMP END PARALLEL WORKSHARE 272 280 ! 273 281 CASE( 1 ) … … 296 304 ENDIF 297 305 ! 306 !$OMP PARALLEL WORKSHARE 298 307 bfrua(:,:) = - bfrcoef2d(:,:) 299 308 bfrva(:,:) = - bfrcoef2d(:,:) 309 !$OMP END PARALLEL WORKSHARE 300 310 ! 301 311 IF ( ln_isfcav ) THEN … … 310 320 ENDIF 311 321 ! 322 !$OMP PARALLEL WORKSHARE 312 323 tfrua(:,:) = - tfrcoef2d(:,:) 313 324 tfrva(:,:) = - tfrcoef2d(:,:) 325 !$OMP END PARALLEL WORKSHARE 314 326 END IF 315 327 ! … … 371 383 ! 372 384 IF( ln_loglayer.AND. ln_linssh ) THEN ! set "log layer" bottom friction once for all 385 !$OMP PARALLEL DO private(jj,ji,ikbt,ztmp) 373 386 DO jj = 1, jpj 374 387 DO ji = 1, jpi … … 380 393 END DO 381 394 IF ( ln_isfcav ) THEN 395 !$OMP PARALLEL DO private(jj,ji,ikbt,ztmp) 382 396 DO jj = 1, jpj 383 397 DO ji = 1, jpi … … 419 433 zmaxtfr = -1.e10_wp ! initialise tracker for maximum of bottom friction coefficient 420 434 ! 435 !$OMP PARALLEL DO private(jj,ji,ikbu,ikbv,zfru,zfrv,ictu,ictv,zminbfr,zmaxbfr,zmintfr,zmaxtfr) 421 436 DO jj = 2, jpjm1 422 437 DO ji = 2, jpim1
Note: See TracChangeset
for help on using the changeset viewer.