Changeset 13286 for NEMO/trunk/src/OCE/DYN/sshwzv.F90
- Timestamp:
- 2020-07-09T17:48:29+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools /@HEADtools4 ^/utils/tools@HEAD tools 5 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM … … 8 8 9 9 # SETTE 10 ^/utils/CI/ sette@12931sette10 ^/utils/CI/r12931_sette_ticket2366@HEAD sette
-
- Property svn:externals
-
NEMO/trunk/src/OCE/DYN/sshwzv.F90
r13237 r13286 28 28 USE bdydyn2d ! bdy_ssh routine 29 29 #if defined key_agrif 30 USE agrif_oce 30 31 USE agrif_oce_interp 31 32 #endif … … 215 216 ENDIF 216 217 ! 217 #if defined key_agrif 218 IF( .NOT. AGRIF_Root() ) THEN 218 #if defined key_agrif 219 IF( .NOT. AGRIF_Root() ) THEN 220 ! 219 221 ! Mask vertical velocity at first/last columns/row 220 222 ! inside computational domain (cosmetic) 221 ! --- West --- ! 222 IF( lk_west) THEN 223 DO ji = mi0(2), mi1(2) 224 DO jj = 1, jpj 225 pww(ji,jj,:) = 0._wp 226 ENDDO 227 ENDDO 228 ENDIF 229 ! 230 ! --- East --- ! 231 IF( lk_east) THEN 232 DO ji = mi0(jpiglo-1), mi1(jpiglo-1) 233 DO jj = 1, jpj 234 pww(ji,jj,:) = 0._wp 235 ENDDO 236 ENDDO 237 ENDIF 238 ! 239 ! --- South --- ! 240 IF( lk_south) THEN 241 DO jj = mj0(2), mj1(2) 242 DO ji = 1, jpi 243 pww(ji,jj,:) = 0._wp 244 ENDDO 245 ENDDO 246 ENDIF 247 ! 248 ! --- North --- ! 249 IF( lk_north) THEN 250 DO jj = mj0(jpjglo-1), mj1(jpjglo-1) 251 DO ji = 1, jpi 252 pww(ji,jj,:) = 0._wp 253 ENDDO 254 ENDDO 255 ENDIF 223 DO jk = 1, jpkm1 224 IF( lk_west ) THEN ! --- West --- ! 225 DO ji = mi0(2+nn_hls), mi1(2+nn_hls) 226 DO jj = 1, jpj 227 pww(ji,jj,jk) = 0._wp 228 END DO 229 END DO 230 ENDIF 231 IF( lk_east ) THEN ! --- East --- ! 232 DO ji = mi0(jpiglo-1-nn_hls), mi1(jpiglo-1-nn_hls) 233 DO jj = 1, jpj 234 pww(ji,jj,jk) = 0._wp 235 END DO 236 END DO 237 ENDIF 238 IF( lk_south ) THEN ! --- South --- ! 239 DO jj = mj0(2+nn_hls), mj1(2+nn_hls) 240 DO ji = 1, jpi 241 pww(ji,jj,jk) = 0._wp 242 END DO 243 END DO 244 ENDIF 245 IF( lk_north ) THEN ! --- North --- ! 246 DO jj = mj0(jpjglo-1-nn_hls), mj1(jpjglo-1-nn_hls) 247 DO ji = 1, jpi 248 pww(ji,jj,jk) = 0._wp 249 END DO 250 END DO 251 ENDIF 252 ! 253 END DO 256 254 ! 257 255 ENDIF 258 #endif 256 #endif 259 257 ! 260 258 IF( ln_timing ) CALL timing_stop('wzv')
Note: See TracChangeset
for help on using the changeset viewer.