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/OCE/SBC/sbcblk.F90

    r10511 r10531  
    926926    
    927927 
    928    SUBROUTINE blk_ice_qcn( k_virtual_itd, ptsu, ptb, phs, phi ) 
     928   SUBROUTINE blk_ice_qcn( ld_virtual_itd, ptsu, ptb, phs, phi ) 
    929929      !!--------------------------------------------------------------------- 
    930930      !!                     ***  ROUTINE blk_ice_qcn  *** 
     
    941941      !! 
    942942      !!--------------------------------------------------------------------- 
    943       INTEGER                   , INTENT(in   ) ::   k_virtual_itd   ! single-category option 
     943      LOGICAL                   , INTENT(in   ) ::   ld_virtual_itd  ! single-category option 
    944944      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   ptsu            ! sea ice / snow surface temperature 
    945945      REAL(wp), DIMENSION(:,:)  , INTENT(in   ) ::   ptb             ! sea ice base temperature 
     
    962962      !      I   Enhanced conduction factor  ! 
    963963      ! -------------------------------------! 
    964       ! Emulates the enhancement of conduction by unresolved thin ice (k_virtual_itd = 1/2) 
     964      ! Emulates the enhancement of conduction by unresolved thin ice (ld_virtual_itd = T) 
    965965      ! Fichefet and Morales Maqueda, JGR 1997 
    966966      ! 
    967967      zgfac(:,:,:) = 1._wp 
    968968       
    969       SELECT CASE ( k_virtual_itd ) 
    970       ! 
    971       CASE ( 1 , 2 ) 
     969      IF( ld_virtual_itd ) THEN 
    972970         ! 
    973971         zfac  = 1._wp /  ( rn_cnd_s + rcnd_i ) 
     
    984982         END DO 
    985983         !       
    986       END SELECT 
     984      ENDIF 
    987985       
    988986      ! -------------------------------------------------------------! 
Note: See TracChangeset for help on using the changeset viewer.