- Timestamp:
- 2018-05-22T11:09:09+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r6498 r9616 109 109 ! 110 110 ! ! =============== 111 !$OMP PARALLEL 111 112 DO jk = 2, jpkm1 ! Horizontal slab 112 113 ! ! =============== 113 114 ! Define the mask 114 115 ! --------------- 116 !$OMP DO PRIVATE(zrw, zaw, zbw, zdt, zds) 115 117 DO jj = 1, jpj ! R=zrau = (alpha / beta) (dk[t] / dk[s]) 116 118 DO ji = 1, jpi … … 130 132 END DO 131 133 134 !$OMP DO 132 135 DO jj = 1, jpj ! indicators: 133 136 DO ji = 1, jpi … … 156 159 END DO 157 160 ! mask zmsk in order to have avt and avs masked 158 zmsks(:,:) = zmsks(:,:) * wmask(:,:,jk) 159 161 !$OMP DO 162 DO jj = 1, jpj 163 DO ji = 1, jpi 164 zmsks(ji,jj) = zmsks(ji,jj) * wmask(ji,jj,jk) 165 END DO 166 ENDDO 160 167 161 168 ! Update avt and avs 162 169 ! ------------------ 163 170 ! Constant eddy coefficient: reset to the background value 164 ! CDIR NOVERRCHK171 !$OMP DO PRIVATE(zinr, zrr, zavfs, zavft, zavdt, zavds) 165 172 DO jj = 1, jpj 166 !CDIR NOVERRCHK167 173 DO ji = 1, jpi 168 174 zinr = 1._wp / zrau(ji,jj) … … 192 198 ! -------------------------------- 193 199 !!gm to be changed following the definition of avm. 200 !$OMP DO 194 201 DO jj = 1, jpjm1 195 202 DO ji = 1, fs_jpim1 ! vector opt. … … 204 211 ! ! =============== 205 212 END DO ! End of slab 213 !$OMP END PARALLEL 206 214 ! ! =============== 207 215 !
Note: See TracChangeset
for help on using the changeset viewer.