Changeset 3777
- Timestamp:
- 2013-02-08T11:39:22+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90
r3680 r3777 55 55 CYCLE 56 56 CASE(jp_frs) 57 CALL bdy_tra_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt , ib_bdy)57 CALL bdy_tra_frs( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt ) 58 58 CASE(2) 59 59 CALL bdy_tra_spe( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt ) … … 65 65 CALL ctl_stop( 'bdy_tra : unrecognised option for open boundaries for T and S' ) 66 66 END SELECT 67 ! Boundary points should be updated 68 CALL lbc_bdy_lnk( tsa(:,:,:,jp_tem), 'T', 1., ib_bdy ) 69 CALL lbc_bdy_lnk( tsa(:,:,:,jp_sal), 'T', 1., ib_bdy ) 67 70 ENDDO 68 71 ! 69 ! Boundary points should be updated70 IF (nb_bdy>0) CALL lbc_lnk( tsa(:,:,:,jp_tem), 'T', 1. )71 IF (nb_bdy>0) CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1. )72 72 73 73 END SUBROUTINE bdy_tra 74 74 75 SUBROUTINE bdy_tra_frs( idx, dta, kt , ib_bdy)75 SUBROUTINE bdy_tra_frs( idx, dta, kt ) 76 76 !!---------------------------------------------------------------------- 77 77 !! *** SUBROUTINE bdy_tra_frs *** … … 84 84 TYPE(OBC_INDEX), INTENT(in) :: idx ! OBC indices 85 85 TYPE(OBC_DATA), INTENT(in) :: dta ! OBC external data 86 INTEGER, INTENT(in) :: ib_bdy ! BDY set index87 86 !! 88 87 REAL(wp) :: zwgt ! boundary weight … … 103 102 END DO 104 103 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 updated106 104 ! 107 105 IF( kt .eq. nit000 ) CLOSE( unit = 102 )
Note: See TracChangeset
for help on using the changeset viewer.