- Timestamp:
- 2016-12-09T10:12:57+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r7439 r7482 708 708 CALL lbc_lnk( ssha_e, 'T', 1._wp ) 709 709 710 #if defined key_bdy711 710 ! 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 ) 714 712 #if defined key_agrif 715 713 IF( .NOT.Agrif_Root() ) CALL agrif_ssh_ts( jn ) … … 966 964 CALL lbc_lnk_multi( ua_e, 'U', -1._wp, va_e , 'V', -1._wp ) 967 965 ! 968 #if defined key_bdy969 966 ! ! 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 ) 972 968 #if defined key_agrif 973 969 IF( .NOT.Agrif_Root() ) CALL agrif_dyn_ts( jn ) ! Agrif
Note: See TracChangeset
for help on using the changeset viewer.