- 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/dynspg.F90
r6748 r7037 133 133 zintp = REAL( MOD( kt-1, nn_fsbc ) ) / REAL( nn_fsbc ) 134 134 zgrau0r = - grav * r1_rau0 135 !$OMP PARALLEL 136 !$OMP WORKSHARE 135 137 zpice(:,:) = ( zintp * snwice_mass(:,:) + ( 1.- zintp ) * snwice_mass_b(:,:) ) * zgrau0r 136 !$OMP PARALLEL DO schedule(static) private(jj, ji) 138 !$OMP END WORKSHARE 139 !$OMP DO schedule(static) private(jj, ji) 137 140 DO jj = 2, jpjm1 138 141 DO ji = fs_2, fs_jpim1 ! vector opt. … … 141 144 END DO 142 145 END DO 146 !$OMP END DO NOWAIT 147 !$OMP END PARALLEL 143 148 ! 144 149 CALL wrk_dealloc( jpi,jpj, zpice )
Note: See TracChangeset
for help on using the changeset viewer.