Changeset 12980 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo
- Timestamp:
- 2020-05-27T15:51:41+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DOM/dommsk.F90
r12807 r12980 235 235 ENDIF 236 236 END DO 237 #if defined key_agrif238 IF( .NOT. AGRIF_Root() ) THEN239 IF ((nbondi == 1).OR.(nbondi == 2)) fmask(jpi-1, : ,jk) = 0.e0 ! east240 IF ((nbondi == -1).OR.(nbondi == 2)) fmask(1 , : ,jk) = 0.e0 ! west241 IF ((nbondj == 1).OR.(nbondj == 2)) fmask(: ,jpj-1,jk) = 0.e0 ! north242 IF ((nbondj == -1).OR.(nbondj == 2)) fmask(: ,1 ,jk) = 0.e0 ! south243 ENDIF244 #endif245 237 END DO 246 238 ! -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/divhor.F90
r12807 r12980 84 84 END_3D 85 85 ! 86 #if defined key_agrif87 IF( .NOT. Agrif_Root() ) THEN88 IF( nbondi == -1 .OR. nbondi == 2 ) hdiv( 2 , : ,:) = 0._wp ! west89 IF( nbondi == 1 .OR. nbondi == 2 ) hdiv(jpi-1, : ,:) = 0._wp ! east90 IF( nbondj == -1 .OR. nbondj == 2 ) hdiv( : , 2 ,:) = 0._wp ! south91 IF( nbondj == 1 .OR. nbondj == 2 ) hdiv( : ,jpj-1,:) = 0._wp ! north92 ENDIF93 #endif94 !95 86 IF( ln_rnf ) CALL sbc_rnf_div( hdiv, Kmm ) !== runoffs ==! (update hdiv field) 96 87 ! -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/sshwzv.F90
r12807 r12980 201 201 ! 202 202 #if defined key_agrif 203 IF( .NOT. AGRIF_Root() ) THEN 204 IF ((nbondi == 1).OR.(nbondi == 2)) pww(jpi-1, : ,:) = 0.e0 ! east 205 IF ((nbondi == -1).OR.(nbondi == 2)) pww( 2 , : ,:) = 0.e0 ! west 206 IF ((nbondj == 1).OR.(nbondj == 2)) pww( : ,jpj-1,:) = 0.e0 ! north 207 IF ((nbondj == -1).OR.(nbondj == 2)) pww( : , 2 ,:) = 0.e0 ! south 203 IF( .NOT. AGRIF_Root() ) THEN 204 ! 205 ! Mask vertical velocity at first/last columns/row 206 ! inside computational domain (cosmetic) 207 ! --- West --- ! 208 DO ji = mi0(2), mi1(2) 209 DO jj = 1, jpj 210 pww(ji,jj,:) = 0._wp 211 ENDDO 212 ENDDO 213 ! 214 ! --- East --- ! 215 DO ji = mi0(jpiglo-1), mi1(jpiglo-1) 216 DO jj = 1, jpj 217 pww(ji,jj,:) = 0._wp 218 ENDDO 219 ENDDO 220 ! 221 ! --- South --- ! 222 DO jj = mj0(2), mj1(2) 223 DO ji = 1, jpi 224 pww(ji,jj,:) = 0._wp 225 ENDDO 226 ENDDO 227 ! 228 ! --- North --- ! 229 DO jj = mj0(jpjglo-1), mj1(jpjglo-1) 230 DO ji = 1, jpi 231 pww(ji,jj,:) = 0._wp 232 ENDDO 233 ENDDO 234 ! 208 235 ENDIF 209 236 #endif -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/SBC/sbccpl.F90
r12939 r12980 364 364 ! 365 365 ! Vectors: change of sign at north fold ONLY if on the local grid 366 IF( TRIM( sn_rcv_tau%cldes ) == 'oce only' .OR. TRIM(sn_rcv_tau%cldes ) == 'oce and ice') THEN ! avoid working with the atmospheric fields if they are not coupled 366 IF( TRIM( sn_rcv_tau%cldes ) == 'oce only' .OR. TRIM( sn_rcv_tau%cldes ) == 'oce and ice' & 367 .OR. TRIM( sn_rcv_tau%cldes ) == 'mixed oce-ice' ) THEN ! avoid working with the atmospheric fields if they are not coupled 368 367 369 IF( TRIM( sn_rcv_tau%clvor ) == 'local grid' ) srcv(jpr_otx1:jpr_itz2)%nsgn = -1. 368 370 -
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/SBC/sbcwave.F90
r12807 r12980 210 210 END_3D 211 211 ! 212 #if defined key_agrif213 IF( .NOT. Agrif_Root() ) THEN214 IF( nbondi == -1 .OR. nbondi == 2 ) ze3divh( 2:nbghostcells+1,: ,:) = 0._wp ! west215 IF( nbondi == 1 .OR. nbondi == 2 ) ze3divh( jpi-nbghostcells:jpi-1,:,:) = 0._wp ! east216 IF( nbondj == -1 .OR. nbondj == 2 ) ze3divh( :,2:nbghostcells+1 ,:) = 0._wp ! south217 IF( nbondj == 1 .OR. nbondj == 2 ) ze3divh( :,jpj-nbghostcells:jpj-1,:) = 0._wp ! north218 ENDIF219 #endif220 !221 212 CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1. ) 222 213 !
Note: See TracChangeset
for help on using the changeset viewer.