Changeset 10425 for NEMO/trunk/tests/WAD
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- Location:
- NEMO/trunk/tests/WAD
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/WAD/MY_SRC/bdyini.F90
r10074 r10425 1133 1133 END DO 1134 1134 END DO 1135 CALL lbc_lnk_multi( bdyumask, 'U', 1. , bdyvmask, 'V', 1. ) ! Lateral boundary cond.1135 CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1. , bdyvmask, 'V', 1. ) ! Lateral boundary cond. 1136 1136 1137 1137 ! bdy masks are now set to zero on boundary points: … … 1169 1169 1170 1170 ! Lateral boundary conditions 1171 CALL lbc_lnk( zfmask, 'F', 1. )1172 CALL lbc_lnk_multi( bdyumask, 'U', 1. , bdyvmask, 'V', 1., bdytmask, 'T', 1. )1171 CALL lbc_lnk( 'bdyini', zfmask, 'F', 1. ) 1172 CALL lbc_lnk_multi( 'bdyini', bdyumask, 'U', 1. , bdyvmask, 'V', 1., bdytmask, 'T', 1. ) 1173 1173 DO ib_bdy = 1, nb_bdy ! Indices and directions of rim velocity components 1174 1174 … … 1280 1280 END DO 1281 1281 ! 1282 IF( lk_mpp ) CALL mpp_sum(bdysurftot ) ! sum over the global domain1282 CALL mpp_sum( 'bdyini', bdysurftot ) ! sum over the global domain 1283 1283 END IF 1284 1284 ! … … 1520 1520 END DO 1521 1521 END DO 1522 IF( lk_mpp ) CALL mpp_sum(ztestmask, 2 ) ! sum over the global domain1522 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1523 1523 1524 1524 IF (ztestmask(1)==1) THEN … … 1564 1564 END DO 1565 1565 END DO 1566 IF( lk_mpp ) CALL mpp_sum(ztestmask, 2 ) ! sum over the global domain1566 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1567 1567 1568 1568 IF (ztestmask(1)==1) THEN … … 1608 1608 END DO 1609 1609 END DO 1610 IF( lk_mpp ) CALL mpp_sum(ztestmask, 2 ) ! sum over the global domain1610 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1611 1611 1612 1612 IF ((ztestmask(1)==1).AND.(icorns(ib,1)==0)) THEN … … 1638 1638 END DO 1639 1639 END DO 1640 IF( lk_mpp ) CALL mpp_sum(ztestmask, 2 ) ! sum over the global domain1640 CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1641 1641 1642 1642 IF ((ztestmask(1)==1).AND.(icornn(ib,1)==0)) THEN -
NEMO/trunk/tests/WAD/MY_SRC/usrdef_zgr.F90
r10074 r10425 234 234 zhu(ji,:) = 0.5_wp * ( zht(ji,:) + zht(ji+1,:) ) 235 235 END DO 236 CALL lbc_lnk( zhu, 'U', 1. ) ! boundary condition: this mask the surrounding grid-points236 CALL lbc_lnk( 'usrdef_zgr', zhu, 'U', 1. ) ! boundary condition: this mask the surrounding grid-points 237 237 ! ! ==>>> set by hand non-zero value on first/last columns & rows 238 238 DO ji = mi0(1), mi1(1) ! first row of global domain only … … 247 247 zhv(:,jj) = 0.5_wp * ( zht(:,jj) + zht(:,jj+1) ) 248 248 END DO 249 CALL lbc_lnk( zhv, 'V', 1. ) ! boundary condition: this mask the surrounding grid-points249 CALL lbc_lnk( 'usrdef_zgr', zhv, 'V', 1. ) ! boundary condition: this mask the surrounding grid-points 250 250 DO jj = mj0(1), mj1(1) ! first row of global domain only 251 251 zhv(:,jj) = zht(:,jj) … … 272 272 273 273 274 CALL lbc_lnk( z2d, 'T', 1. ) ! closed basin since jperio = 0 (see userdef_nam.F90)274 CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. ) ! closed basin since jperio = 0 (see userdef_nam.F90) 275 275 k_top(:,:) = NINT( z2d(:,:) ) 276 276 ! … … 311 311 END DO 312 312 END DO 313 CALL lbc_lnk( pdept, 'T', 1. )314 CALL lbc_lnk( pdepw, 'T', 1. )315 CALL lbc_lnk( pe3t , 'T', 1. )316 CALL lbc_lnk( pe3w , 'T', 1. )317 CALL lbc_lnk( pe3u , 'U', 1. )318 CALL lbc_lnk( pe3uw, 'U', 1. )319 CALL lbc_lnk( pe3f , 'F', 1. )320 CALL lbc_lnk( pe3v , 'V', 1. )321 CALL lbc_lnk( pe3vw, 'V', 1. )313 CALL lbc_lnk( 'usrdef_zgr', pdept, 'T', 1. ) 314 CALL lbc_lnk( 'usrdef_zgr', pdepw, 'T', 1. ) 315 CALL lbc_lnk( 'usrdef_zgr', pe3t , 'T', 1. ) 316 CALL lbc_lnk( 'usrdef_zgr', pe3w , 'T', 1. ) 317 CALL lbc_lnk( 'usrdef_zgr', pe3u , 'U', 1. ) 318 CALL lbc_lnk( 'usrdef_zgr', pe3uw, 'U', 1. ) 319 CALL lbc_lnk( 'usrdef_zgr', pe3f , 'F', 1. ) 320 CALL lbc_lnk( 'usrdef_zgr', pe3v , 'V', 1. ) 321 CALL lbc_lnk( 'usrdef_zgr', pe3vw, 'V', 1. ) 322 322 WHERE( pe3t (:,:,:) == 0._wp ) pe3t (:,:,:) = 1._wp 323 323 WHERE( pe3u (:,:,:) == 0._wp ) pe3u (:,:,:) = 1._wp -
NEMO/trunk/tests/WAD/cpp_WAD.fcm
r9139 r10425 1 bld::tool::fppkeys key_iomput key_mpp_mpi key_nosignedzero1 bld::tool::fppkeys key_iomput key_mpp_mpi
Note: See TracChangeset
for help on using the changeset viewer.