- Timestamp:
- 2018-01-04T13:30:03+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/DIA/diaprod.F90
r6491 r9176 88 88 IF( iom_use("ut") ) THEN 89 89 z3d(:,:,:) = 0.e0 90 !$OMP PARALLEL DO 90 91 DO jk = 1, jpkm1 91 92 DO jj = 2, jpjm1 … … 100 101 IF( iom_use("vt") ) THEN 101 102 z3d(:,:,:) = 0.e0 103 !$OMP PARALLEL DO 102 104 DO jk = 1, jpkm1 103 105 DO jj = 2, jpjm1 … … 117 119 END DO 118 120 END DO 121 !$OMP PARALLEL DO 119 122 DO jk = 2, jpkm1 120 123 DO jj = 2, jpjm1 … … 129 132 IF( iom_use("us") ) THEN 130 133 z3d(:,:,:) = 0.e0 134 !$OMP PARALLEL DO 131 135 DO jk = 1, jpkm1 132 136 DO jj = 2, jpjm1 … … 141 145 IF( iom_use("vs") ) THEN 142 146 z3d(:,:,:) = 0.e0 147 !$OMP PARALLEL DO 143 148 DO jk = 1, jpkm1 144 149 DO jj = 2, jpjm1 … … 158 163 END DO 159 164 END DO 165 !$OMP PARALLEL DO 160 166 DO jk = 2, jpkm1 161 167 DO jj = 2, jpjm1 … … 170 176 IF( iom_use("urhop") ) THEN 171 177 z3d(:,:,:) = 0.e0 178 !$OMP PARALLEL DO 172 179 DO jk = 1, jpkm1 173 180 DO jj = 2, jpjm1 … … 182 189 IF( iom_use("vrhop") ) THEN 183 190 z3d(:,:,:) = 0.e0 191 !$OMP PARALLEL DO 184 192 DO jk = 1, jpkm1 185 193 DO jj = 2, jpjm1 … … 199 207 END DO 200 208 END DO 209 !$OMP PARALLEL DO 201 210 DO jk = 2, jpkm1 202 211 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.