Changeset 12094


Ignore:
Timestamp:
2019-12-06T15:31:56+01:00 (8 months ago)
Author:
deazer
Message:

Allow ts_init to work properly for already interpolated scoords
Allow bdy to be spread over arbitary rim points

Location:
NEMO/branches/UKMO/NEMO_4.0.1_MIRROR_CO8_package/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_MIRROR_CO8_package/src/OCE/BDY/bdyini.F90

    r11715 r12094  
    597597            DO ib = 1, idx_bdy(ib_bdy)%nblen(igrd) 
    598598               ir = MAX( 1, idx_bdy(ib_bdy)%nbr(ib,igrd) )   ! both rim 0 and rim 1 have the same weights 
    599                idx_bdy(ib_bdy)%nbw(ib,igrd) = 1.- TANH( REAL( ir - 1 ) *0.5 )      ! tanh formulation 
     599!               idx_bdy(ib_bdy)%nbw(ib,igrd) = 1.- TANH( REAL( ir - 1 ) *0.5 )      ! tanh formulation 
     600               idx_bdy(ib_bdy)%nbw(ib,igrd) = 1.- TANH( FLOAT( ir - 1 ) * 0.5 &  
     601                                              &  *(10./FLOAT(nn_rimwidth(ib_bdy))) ) ! JGraham:modified for rim=15 
    600602               !               idx_bdy(ib_bdy)%nbw(ib,igrd) = (REAL(nn_rimwidth(ib_bdy)+1-ir)/REAL(nn_rimwidth(ib_bdy)))**2.  ! quadratic 
    601603               !               idx_bdy(ib_bdy)%nbw(ib,igrd) =  REAL(nn_rimwidth(ib_bdy)+1-ir)/REAL(nn_rimwidth(ib_bdy))       ! linear 
  • NEMO/branches/UKMO/NEMO_4.0.1_MIRROR_CO8_package/src/OCE/DOM/dtatsd.F90

    r11715 r12094  
    179179      ptsd(:,:,:,jp_sal) = sf_tsd(jp_sal)%fnow(:,:,:)  
    180180      ! 
    181       IF( ln_sco ) THEN                   !==   s- or mixed s-zps-coordinate   ==! 
     181      IF( ln_sco .and. 1.eq.0 ) THEN                   !==   s- or mixed s-zps-coordinate   ==! 
    182182         ! 
    183183         IF( kt == nit000 .AND. lwp )THEN 
Note: See TracChangeset for help on using the changeset viewer.