- Timestamp:
- 2016-10-18T15:32:04+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap_blp.F90
r6748 r7037 75 75 ! 76 76 ! ! =============== 77 !$OMP PARALLEL 77 78 DO jk = 1, jpkm1 ! Horizontal slab 78 79 ! ! =============== 79 !$OMP PARALLELDO schedule(static) private(jj, ji)80 !$OMP DO schedule(static) private(jj, ji) 80 81 DO jj = 2, jpj 81 82 DO ji = fs_2, jpi ! vector opt. … … 94 95 END DO 95 96 ! 96 !$OMP PARALLELDO schedule(static) private(jj, ji)97 !$OMP DO schedule(static) private(jj, ji) 97 98 DO jj = 2, jpjm1 ! - curl( curl) + grad( div ) 98 99 DO ji = fs_2, fs_jpim1 ! vector opt. … … 108 109 ! ! =============== 109 110 END DO ! End of slab 111 !$OMP END PARALLEL 110 112 ! ! =============== 111 113 CALL wrk_dealloc( jpi, jpj, zcur, zdiv ) … … 146 148 ENDIF 147 149 ! 150 !$OMP PARALLEL WORKSHARE 148 151 zulap(:,:,:) = 0._wp 149 152 zvlap(:,:,:) = 0._wp 153 !$OMP END PARALLEL WORKSHARE 150 154 ! 151 155 CALL dyn_ldf_lap( kt, pub, pvb, zulap, zvlap, 1 ) ! rotated laplacian applied to ptb (output in zlap)
Note: See TracChangeset
for help on using the changeset viewer.