- Timestamp:
- 2014-01-17T17:56:32+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn2d.F90
r4292 r4354 41 41 CONTAINS 42 42 43 SUBROUTINE bdy_dyn2d( kt )43 SUBROUTINE bdy_dyn2d( kt, pua2d, pva2d, pub2d, pvb2d, phur, phvr, pssh ) 44 44 !!---------------------------------------------------------------------- 45 45 !! *** SUBROUTINE bdy_dyn2d *** … … 49 49 !!---------------------------------------------------------------------- 50 50 INTEGER, INTENT(in) :: kt ! Main time step counter 51 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 52 REAL(wp), DIMENSION(jpi,jpj), INTENT(in ) :: pub2d, pvb2d 53 REAL(wp), DIMENSION(jpi,jpj), INTENT(in ) :: phur, phvr 54 REAL(wp), DIMENSION(jpi,jpj), INTENT(in ) :: pssh 51 55 !! 52 56 INTEGER :: ib_bdy ! Loop counter … … 58 62 CYCLE 59 63 CASE('frs') 60 CALL bdy_dyn2d_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy )64 CALL bdy_dyn2d_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy, pua2d, pva2d ) 61 65 CASE('flather') 62 CALL bdy_dyn2d_fla( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy )66 CALL bdy_dyn2d_fla( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy, pua2d, pva2d, pssh, phur, phvr ) 63 67 CASE('orlanski') 64 CALL bdy_dyn2d_orlanski( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy, ll_npo=.false. ) 68 CALL bdy_dyn2d_orlanski( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy, & 69 & pua2d, pva2d, pub2d, pvb2d, ll_npo=.false.) 65 70 CASE('orlanski_npo') 66 CALL bdy_dyn2d_orlanski( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy, ll_npo=.true. ) 71 CALL bdy_dyn2d_orlanski( idx_bdy(ib_bdy), dta_bdy(ib_bdy), ib_bdy, & 72 & pua2d, pva2d, pub2d, pvb2d, ll_npo=.true. ) 67 73 CASE DEFAULT 68 74 CALL ctl_stop( 'bdy_dyn2d : unrecognised option for open boundaries for barotropic variables' ) … … 72 78 END SUBROUTINE bdy_dyn2d 73 79 74 SUBROUTINE bdy_dyn2d_frs( idx, dta, ib_bdy )80 SUBROUTINE bdy_dyn2d_frs( idx, dta, ib_bdy, pua2d, pva2d ) 75 81 !!---------------------------------------------------------------------- 76 82 !! *** SUBROUTINE bdy_dyn2d_frs *** … … 86 92 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 87 93 INTEGER, INTENT(in) :: ib_bdy ! BDY set index 94 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 88 95 !! 89 96 INTEGER :: jb, jk ! dummy loop indices … … 118 125 119 126 120 SUBROUTINE bdy_dyn2d_fla( idx, dta, ib_bdy )127 SUBROUTINE bdy_dyn2d_fla( idx, dta, ib_bdy, pua2d, pva2d, pssh, phur, phvr ) 121 128 !!---------------------------------------------------------------------- 122 129 !! *** SUBROUTINE bdy_dyn2d_fla *** … … 140 147 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 141 148 INTEGER, INTENT(in) :: ib_bdy ! BDY set index 149 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 150 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pssh, phur, phvr 142 151 143 152 INTEGER :: jb, igrd ! dummy loop indices … … 212 221 213 222 214 SUBROUTINE bdy_dyn2d_orlanski( idx, dta, ib_bdy, ll_npo )223 SUBROUTINE bdy_dyn2d_orlanski( idx, dta, ib_bdy, pua2d, pva2d, pub2d, pvb2d, ll_npo ) 215 224 !!---------------------------------------------------------------------- 216 225 !! *** SUBROUTINE bdy_dyn2d_orlanski *** … … 226 235 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 227 236 INTEGER, INTENT(in) :: ib_bdy ! number of current open boundary set 237 REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 238 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pub2d, pvb2d 228 239 LOGICAL, INTENT(in) :: ll_npo ! flag for NPO version 229 240
Note: See TracChangeset
for help on using the changeset viewer.