New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10531 for NEMO/trunk/src/ICE/icethd_zdf_bl99.F90 – NEMO

Ignore:
Timestamp:
2019-01-16T14:17:50+01:00 (5 years 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.