- Timestamp:
- 2016-06-24T09:50:27+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r3874_FASTNEt/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn2d.F90
r3680 r6736 5 5 !!====================================================================== 6 6 !! History : 3.4 ! 2011 (D. Storkey) new module as part of BDY rewrite 7 !! 3.5 ! 2012 (S. Mocavero, I. Epicoco) Optimization of BDY communications8 7 !!---------------------------------------------------------------------- 9 8 #if defined key_bdy … … 52 51 CYCLE 53 52 CASE(jp_frs) 54 CALL bdy_dyn2d_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy) , ib_bdy)53 CALL bdy_dyn2d_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy) ) 55 54 CASE(jp_flather) 56 CALL bdy_dyn2d_fla( idx_bdy(ib_bdy), dta_bdy(ib_bdy) , ib_bdy)55 CALL bdy_dyn2d_fla( idx_bdy(ib_bdy), dta_bdy(ib_bdy) ) 57 56 CASE DEFAULT 58 57 CALL ctl_stop( 'bdy_dyn2d : unrecognised option for open boundaries for barotropic variables' ) … … 62 61 END SUBROUTINE bdy_dyn2d 63 62 64 SUBROUTINE bdy_dyn2d_frs( idx, dta , ib_bdy)63 SUBROUTINE bdy_dyn2d_frs( idx, dta ) 65 64 !!---------------------------------------------------------------------- 66 65 !! *** SUBROUTINE bdy_dyn2d_frs *** … … 75 74 TYPE(OBC_INDEX), INTENT(in) :: idx ! OBC indices 76 75 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 77 INTEGER, INTENT(in) :: ib_bdy ! BDY set index78 76 !! 79 77 INTEGER :: jb, jk ! dummy loop indices … … 99 97 pv2d(ii,ij) = ( pv2d(ii,ij) + zwgt * ( dta%v2d(jb) - pv2d(ii,ij) ) ) * vmask(ii,ij,1) 100 98 END DO 101 CALL lbc_ bdy_lnk( pu2d, 'U', -1., ib_bdy)102 CALL lbc_ bdy_lnk( pv2d, 'V', -1., ib_bdy) ! Boundary points should be updated99 CALL lbc_lnk( pu2d, 'U', -1. ) 100 CALL lbc_lnk( pv2d, 'V', -1. ) ! Boundary points should be updated 103 101 ! 104 102 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_frs') … … 108 106 109 107 110 SUBROUTINE bdy_dyn2d_fla( idx, dta , ib_bdy)108 SUBROUTINE bdy_dyn2d_fla( idx, dta ) 111 109 !!---------------------------------------------------------------------- 112 110 !! *** SUBROUTINE bdy_dyn2d_fla *** … … 129 127 TYPE(OBC_INDEX), INTENT(in) :: idx ! OBC indices 130 128 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 131 INTEGER, INTENT(in) :: ib_bdy ! BDY set index132 129 133 130 INTEGER :: jb, igrd ! dummy loop indices … … 180 177 pv2d(ii,ij) = zforc + zcorr * vmask(ii,ij,1) 181 178 END DO 182 CALL lbc_ bdy_lnk( pu2d, 'U', -1., ib_bdy) ! Boundary points should be updated183 CALL lbc_ bdy_lnk( pv2d, 'V', -1., ib_bdy) !179 CALL lbc_lnk( pu2d, 'U', -1. ) ! Boundary points should be updated 180 CALL lbc_lnk( pv2d, 'V', -1. ) ! 184 181 ! 185 182 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_fla')
Note: See TracChangeset
for help on using the changeset viewer.