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