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_user.F90

    r11205 r11244  
    728728   ENDIF 
    729729   ! 
    730    ! convert DOCTOR namelist name into OLD names 
    731    visc_tra      = rn_sponge_tra 
    732    visc_dyn      = rn_sponge_dyn 
    733    ! 
    734    ! Check sponge length: 
    735 !   iminspon = MIN(FLOOR(REAL(jpiglo-4)/REAL(2*Agrif_irhox())), FLOOR(REAL(jpjglo-4)/REAL(2*Agrif_irhox())) ) 
    736 !   IF (lk_mpp) iminspon = MIN(iminspon,FLOOR(REAL(jpi-2)/REAL(Agrif_irhox())), FLOOR(REAL(jpj-2)/REAL(Agrif_irhox())) ) 
    737 !   IF (nn_sponge_len > iminspon)  CALL ctl_stop('agrif sponge length is too large') 
    738730   ! 
    739731   IF( agrif_oce_alloc()  > 0 )   CALL ctl_warn('agrif agrif_oce_alloc: allocation of arrays failed') 
Note: See TracChangeset for help on using the changeset viewer.