- Timestamp:
- 2018-11-15T17:27:18+01:00 (5 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY
- Files:
-
- 5 edited
-
bdydyn2d.F90 (modified) (5 diffs)
-
bdydyn3d.F90 (modified) (6 diffs)
-
bdyice.F90 (modified) (4 diffs)
-
bdytra.F90 (modified) (1 diff)
-
bdyvol.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdydyn2d.F90
r10068 r10314 109 109 pva2d(ii,ij) = ( pva2d(ii,ij) + zwgt * ( dta%v2d(jb) - pva2d(ii,ij) ) ) * vmask(ii,ij,1) 110 110 END DO 111 CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy )112 CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy) ! Boundary points should be updated111 CALL lbc_bdy_lnk( 'bdydyn2d', pua2d, 'U', -1., ib_bdy ) 112 CALL lbc_bdy_lnk( 'bdydyn2d', pva2d, 'V', -1., ib_bdy) ! Boundary points should be updated 113 113 ! 114 114 END SUBROUTINE bdy_dyn2d_frs … … 169 169 END DO 170 170 171 CALL lbc_bdy_lnk( spgu(:,:), 'T', 1., ib_bdy )171 CALL lbc_bdy_lnk( 'bdydyn2d', spgu(:,:), 'T', 1., ib_bdy ) 172 172 ! 173 173 igrd = 2 ! Flather bc on u-velocity; … … 207 207 pva2d(ii,ij) = zforc + (1._wp - z1_2*zflag) * zcorr * vmask(ii,ij,1) 208 208 END DO 209 CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated210 CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy ) !209 CALL lbc_bdy_lnk( 'bdydyn2d', pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated 210 CALL lbc_bdy_lnk( 'bdydyn2d', pva2d, 'V', -1., ib_bdy ) ! 211 211 ! 212 212 END SUBROUTINE bdy_dyn2d_fla … … 243 243 CALL bdy_orlanski_2d( idx, igrd, pvb2d, pva2d, dta%v2d, ll_npo ) 244 244 ! 245 CALL lbc_bdy_lnk( pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated246 CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy ) !245 CALL lbc_bdy_lnk( 'bdydyn2d', pua2d, 'U', -1., ib_bdy ) ! Boundary points should be updated 246 CALL lbc_bdy_lnk( 'bdydyn2d', pva2d, 'V', -1., ib_bdy ) ! 247 247 ! 248 248 END SUBROUTINE bdy_dyn2d_orlanski … … 291 291 292 292 ! Boundary points should be updated 293 CALL lbc_bdy_lnk( zssh(:,:), 'T', 1., ib_bdy )293 CALL lbc_bdy_lnk( 'bdydyn2d', zssh(:,:), 'T', 1., ib_bdy ) 294 294 END DO 295 295 -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdydyn3d.F90
r10170 r10314 97 97 END DO 98 98 END DO 99 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated100 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )99 CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy ) ! Boundary points should be updated 100 CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy ) 101 101 ! 102 102 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 144 144 END DO 145 145 END DO 146 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated147 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )146 CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy ) ! Boundary points should be updated 147 CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy ) 148 148 ! 149 149 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 187 187 END DO 188 188 ! 189 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ; CALL lbc_bdy_lnk(va, 'V', -1.,ib_bdy ) ! Boundary points should be updated189 CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy ) ; CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1.,ib_bdy ) ! Boundary points should be updated 190 190 ! 191 191 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 234 234 END DO 235 235 END DO 236 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated237 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )236 CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy ) ! Boundary points should be updated 237 CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy ) 238 238 ! 239 239 IF( kt == nit000 ) CLOSE( unit = 102 ) … … 270 270 CALL bdy_orlanski_3d( idx, igrd, vb, va, dta%v3d, ll_npo ) 271 271 ! 272 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated273 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )272 CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy ) ! Boundary points should be updated 273 CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy ) 274 274 ! 275 275 END SUBROUTINE bdy_dyn3d_orlanski … … 351 351 CALL bdy_nmn( idx, igrd, va ) 352 352 ! 353 CALL lbc_bdy_lnk( ua, 'U', -1., ib_bdy ) ! Boundary points should be updated354 CALL lbc_bdy_lnk( va, 'V', -1., ib_bdy )353 CALL lbc_bdy_lnk( 'bdydyn3d', ua, 'U', -1., ib_bdy ) ! Boundary points should be updated 354 CALL lbc_bdy_lnk( 'bdydyn3d', va, 'V', -1., ib_bdy ) 355 355 ! 356 356 END SUBROUTINE bdy_dyn3d_nmn -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdyice.F90
r10069 r10314 135 135 ENDDO 136 136 ENDDO 137 CALL lbc_bdy_lnk( a_i(:,:,:), 'T', 1., jbdy )138 CALL lbc_bdy_lnk( h_i(:,:,:), 'T', 1., jbdy )139 CALL lbc_bdy_lnk( h_s(:,:,:), 'T', 1., jbdy )137 CALL lbc_bdy_lnk( 'bdyice', a_i(:,:,:), 'T', 1., jbdy ) 138 CALL lbc_bdy_lnk( 'bdyice', h_i(:,:,:), 'T', 1., jbdy ) 139 CALL lbc_bdy_lnk( 'bdyice', h_s(:,:,:), 'T', 1., jbdy ) 140 140 141 141 DO jl = 1, jpl … … 244 244 END DO ! jl 245 245 246 CALL lbc_bdy_lnk( a_i (:,:,:) , 'T', 1., jbdy )247 CALL lbc_bdy_lnk( h_i (:,:,:) , 'T', 1., jbdy )248 CALL lbc_bdy_lnk( h_s (:,:,:) , 'T', 1., jbdy )249 CALL lbc_bdy_lnk( oa_i(:,:,:) , 'T', 1., jbdy )250 CALL lbc_bdy_lnk( a_ip(:,:,:) , 'T', 1., jbdy )251 CALL lbc_bdy_lnk( v_ip(:,:,:) , 'T', 1., jbdy )252 CALL lbc_bdy_lnk( s_i (:,:,:) , 'T', 1., jbdy )253 CALL lbc_bdy_lnk( t_su(:,:,:) , 'T', 1., jbdy )254 CALL lbc_bdy_lnk( v_i (:,:,:) , 'T', 1., jbdy )255 CALL lbc_bdy_lnk( v_s (:,:,:) , 'T', 1., jbdy )256 CALL lbc_bdy_lnk( sv_i(:,:,:) , 'T', 1., jbdy )257 CALL lbc_bdy_lnk( t_s (:,:,:,:), 'T', 1., jbdy )258 CALL lbc_bdy_lnk( e_s (:,:,:,:), 'T', 1., jbdy )259 CALL lbc_bdy_lnk( t_i (:,:,:,:), 'T', 1., jbdy )260 CALL lbc_bdy_lnk( e_i (:,:,:,:), 'T', 1., jbdy )246 CALL lbc_bdy_lnk( 'bdyice', a_i (:,:,:) , 'T', 1., jbdy ) 247 CALL lbc_bdy_lnk( 'bdyice', h_i (:,:,:) , 'T', 1., jbdy ) 248 CALL lbc_bdy_lnk( 'bdyice', h_s (:,:,:) , 'T', 1., jbdy ) 249 CALL lbc_bdy_lnk( 'bdyice', oa_i(:,:,:) , 'T', 1., jbdy ) 250 CALL lbc_bdy_lnk( 'bdyice', a_ip(:,:,:) , 'T', 1., jbdy ) 251 CALL lbc_bdy_lnk( 'bdyice', v_ip(:,:,:) , 'T', 1., jbdy ) 252 CALL lbc_bdy_lnk( 'bdyice', s_i (:,:,:) , 'T', 1., jbdy ) 253 CALL lbc_bdy_lnk( 'bdyice', t_su(:,:,:) , 'T', 1., jbdy ) 254 CALL lbc_bdy_lnk( 'bdyice', v_i (:,:,:) , 'T', 1., jbdy ) 255 CALL lbc_bdy_lnk( 'bdyice', v_s (:,:,:) , 'T', 1., jbdy ) 256 CALL lbc_bdy_lnk( 'bdyice', sv_i(:,:,:) , 'T', 1., jbdy ) 257 CALL lbc_bdy_lnk( 'bdyice', t_s (:,:,:,:), 'T', 1., jbdy ) 258 CALL lbc_bdy_lnk( 'bdyice', e_s (:,:,:,:), 'T', 1., jbdy ) 259 CALL lbc_bdy_lnk( 'bdyice', t_i (:,:,:,:), 'T', 1., jbdy ) 260 CALL lbc_bdy_lnk( 'bdyice', e_i (:,:,:,:), 'T', 1., jbdy ) 261 261 ! 262 262 END SUBROUTINE bdy_ice_frs … … 317 317 ! 318 318 END DO 319 CALL lbc_bdy_lnk( u_ice(:,:), 'U', -1., jbdy )319 CALL lbc_bdy_lnk( 'bdyice', u_ice(:,:), 'U', -1., jbdy ) 320 320 ! 321 321 CASE ( 'V' ) … … 340 340 ! 341 341 END DO 342 CALL lbc_bdy_lnk( v_ice(:,:), 'V', -1., jbdy )342 CALL lbc_bdy_lnk( 'bdyice', v_ice(:,:), 'V', -1., jbdy ) 343 343 ! 344 344 END SELECT -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdytra.F90
r10068 r10314 71 71 END SELECT 72 72 ! Boundary points should be updated 73 CALL lbc_bdy_lnk( tsa(:,:,:,jn), 'T', 1., ib_bdy )73 CALL lbc_bdy_lnk( 'bdytra', tsa(:,:,:,jn), 'T', 1., ib_bdy ) 74 74 ! 75 75 END DO -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/BDY/bdyvol.F90
r10297 r10314 87 87 IF( lk_mpp ) CALL mpp_sum( 'bdyvol', z_cflxemp ) ! sum over the global domain 88 88 !!gm by : 89 !!gm z_cflxemp = glob_sum( ( emp(:,:)-rnf(:,:)+fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau089 !!gm z_cflxemp = glob_sum( 'bdyvol', ( emp(:,:)-rnf(:,:)+fwfisf(:,:) ) * bdytmask(:,:) * e1e2t(:,:) ) / rau0 90 90 !!gm 91 91
Note: See TracChangeset
for help on using the changeset viewer.
