- 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/DIA/diafwb.F90
r6748 r7037 75 75 IF( lk_mpp ) CALL mpp_sum( a_sshb ) ! sum over the global domain 76 76 77 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji,zwei ,a_salb)77 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji,zwei) REDUCTION(+:a_salb) 78 78 DO jk = 1, jpkm1 79 79 DO jj = 2, jpjm1 … … 102 102 IF( lk_mpp ) CALL mpp_sum( zarea ) ! sum over the global domain 103 103 104 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji,zwei ,a_saln,zvol)104 !$OMP PARALLEL DO schedule(static) private(jk,jj,ji,zwei) REDUCTION (+:a_saln,zvol) 105 105 DO jk = 1, jpkm1 106 106 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.