Ignore:
Timestamp:
2019-01-16T14:17:50+01:00 (19 months ago)
Author:
clem
Message:

remove nn_virtual_itd options and replace them by ln_virtual_itd

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icethd_zdf_bl99.F90

    r10425 r10531  
    265265         zghe(1:npti) = 1._wp 
    266266         ! 
    267          SELECT CASE ( nn_virtual_itd ) 
    268          ! 
    269          CASE ( 1 , 2 ) 
     267         IF( ln_virtual_itd ) THEN 
    270268            ! 
    271269            zepsilon = 0.1_wp 
     
    277275            END DO 
    278276            ! 
    279          END SELECT 
     277         ENDIF 
    280278         ! 
    281279         !----------------- 
Note: See TracChangeset for help on using the changeset viewer.