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 7482 for branches/2016 – NEMO

Changeset 7482 for branches/2016


Ignore:
Timestamp:
2016-12-09T10:12:57+01:00 (7 years ago)
Author:
timgraham
Message:

Remove #if defined key_bdy statements that got in somehow at the merge.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r7439 r7482  
    708708         CALL lbc_lnk( ssha_e, 'T',  1._wp ) 
    709709 
    710 #if defined key_bdy 
    711710         ! Duplicate sea level across open boundaries (this is only cosmetic if linssh=T) 
    712          IF( lk_bdy )   CALL bdy_ssh( ssha_e ) 
    713 #endif 
     711         IF( ln_bdy )   CALL bdy_ssh( ssha_e ) 
    714712#if defined key_agrif 
    715713         IF( .NOT.Agrif_Root() )   CALL agrif_ssh_ts( jn ) 
     
    966964         CALL lbc_lnk_multi( ua_e, 'U', -1._wp, va_e , 'V', -1._wp ) 
    967965         ! 
    968 #if defined key_bdy   
    969966         !                                                 ! open boundaries 
    970          IF( lk_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e ) 
    971 #endif 
     967         IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e ) 
    972968#if defined key_agrif                                                            
    973969         IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif 
Note: See TracChangeset for help on using the changeset viewer.