- Timestamp:
- 2012-11-27T15:42:24+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90
r3651 r3680 7 7 !! 3.0 ! 2008-04 (NEMO team) add in the reference version 8 8 !! 3.4 ! 2011 (D. Storkey) rewrite in preparation for OBC-BDY merge 9 !! 3.5 ! 2012 (S. Mocavero, I. Epicoco) Optimization of BDY communications 9 10 !!---------------------------------------------------------------------- 10 11 #if defined key_bdy … … 54 55 CYCLE 55 56 CASE(jp_frs) 56 CALL bdy_tra_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt )57 CALL bdy_tra_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt, ib_bdy ) 57 58 CASE(2) 58 59 CALL bdy_tra_spe( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt ) … … 72 73 END SUBROUTINE bdy_tra 73 74 74 SUBROUTINE bdy_tra_frs( idx, dta, kt )75 SUBROUTINE bdy_tra_frs( idx, dta, kt, ib_bdy ) 75 76 !!---------------------------------------------------------------------- 76 77 !! *** SUBROUTINE bdy_tra_frs *** … … 83 84 TYPE(OBC_INDEX), INTENT(in) :: idx ! OBC indices 84 85 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 86 INTEGER, INTENT(in) :: ib_bdy ! BDY set index 85 87 !! 86 88 REAL(wp) :: zwgt ! boundary weight … … 101 103 END DO 102 104 END DO 105 CALL lbc_bdy_lnk( tsa(:,:,:,jp_tem), 'T', 1., ib_bdy ) ; CALL lbc_bdy_lnk( tsa(:,:,:,jp_sal), 'T', 1., ib_bdy ) ! Boundary points should be updated 103 106 ! 104 107 IF( kt .eq. nit000 ) CLOSE( unit = 102 )
Note: See TracChangeset
for help on using the changeset viewer.