New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3777 – NEMO

Changeset 3777


Ignore:
Timestamp:
2013-02-08T11:39:22+01:00 (11 years ago)
Author:
epico
Message:

fixed bug #1034 Missplacing of the call to lbc_lnk in the bdy_tra
see ticket https://forge.ipsl.jussieu.fr/nemo/ticket/1034

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90

    r3680 r3777  
    5555            CYCLE 
    5656         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 ) 
    5858         CASE(2) 
    5959            CALL bdy_tra_spe( idx_bdy(ib_bdy), dta_bdy(ib_bdy), kt ) 
     
    6565            CALL ctl_stop( 'bdy_tra : unrecognised option for open boundaries for T and S' ) 
    6666         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 ) 
    6770      ENDDO 
    6871      ! 
    69       ! Boundary points should be updated 
    70       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. ) 
    7272 
    7373   END SUBROUTINE bdy_tra 
    7474 
    75    SUBROUTINE bdy_tra_frs( idx, dta, kt, ib_bdy ) 
     75   SUBROUTINE bdy_tra_frs( idx, dta, kt ) 
    7676      !!---------------------------------------------------------------------- 
    7777      !!                 ***  SUBROUTINE bdy_tra_frs  *** 
     
    8484      TYPE(OBC_INDEX), INTENT(in) ::   idx  ! OBC indices 
    8585      TYPE(OBC_DATA),  INTENT(in) ::   dta  ! OBC external data 
    86       INTEGER,         INTENT(in) ::   ib_bdy  ! BDY set index 
    8786      !!  
    8887      REAL(wp) ::   zwgt           ! boundary weight 
     
    103102         END DO 
    104103      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 
    106104      ! 
    107105      IF( kt .eq. nit000 ) CLOSE( unit = 102 ) 
Note: See TracChangeset for help on using the changeset viewer.