Ignore:
Timestamp:
2019-07-10T14:58:47+02:00 (15 months ago)
Author:
jchanut
Message:

#2199, clean old namelist variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10973_AGRIF-01_jchanut_small_jpi_jpj/src/NST/agrif_oce_sponge.F90

    r11205 r11244  
    154154         DO jj = 2, jpjm1 
    155155            DO ji = 2, jpim1   ! vector opt. 
    156                fsaht_spu(ji,jj) = 0.5_wp * visc_tra * ( ztabramp(ji,jj) + ztabramp(ji+1,jj  ) ) 
    157                fsaht_spv(ji,jj) = 0.5_wp * visc_tra * ( ztabramp(ji,jj) + ztabramp(ji  ,jj+1) ) 
     156               fsaht_spu(ji,jj) = 0.5_wp * rn_sponge_tra * ( ztabramp(ji,jj) + ztabramp(ji+1,jj  ) ) 
     157               fsaht_spv(ji,jj) = 0.5_wp * rn_sponge_tra * ( ztabramp(ji,jj) + ztabramp(ji  ,jj+1) ) 
    158158            END DO 
    159159         END DO 
     
    170170         DO jj = 2, jpjm1 
    171171            DO ji = 2, jpim1   ! vector opt. 
    172                fsahm_spt(ji,jj) = visc_dyn * ztabramp(ji,jj) 
    173                fsahm_spf(ji,jj) = 0.25_wp * visc_dyn * ( ztabramp(ji  ,jj  ) + ztabramp(ji  ,jj+1) & 
    174                                                      &  +ztabramp(ji+1,jj+1) + ztabramp(ji+1,jj  ) ) 
     172               fsahm_spt(ji,jj) = rn_sponge_dyn * ztabramp(ji,jj) 
     173               fsahm_spf(ji,jj) = 0.25_wp * rn_sponge_dyn * ( ztabramp(ji  ,jj  ) + ztabramp(ji  ,jj+1) & 
     174                                                          &  +ztabramp(ji+1,jj+1) + ztabramp(ji+1,jj  ) ) 
    175175            END DO 
    176176         END DO 
Note: See TracChangeset for help on using the changeset viewer.