Changeset 10531 for NEMO/trunk/src/OCE/SBC/sbcblk.F90

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:

• NEMO/trunk/src/OCE/SBC/sbcblk.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/SBC/sbcblk.F90

@@ -926 +926 @@
    
 
-   SUBROUTINE blk_ice_qcn( k_virtual_itd, ptsu, ptb, phs, phi )
+   SUBROUTINE blk_ice_qcn( ld_virtual_itd, ptsu, ptb, phs, phi )
       !!---------------------------------------------------------------------
       !!                     ***  ROUTINE blk_ice_qcn  ***
@@ -941 +941 @@
       !!
       !!---------------------------------------------------------------------
-      INTEGER                   , INTENT(in   ) ::   k_virtual_itd   ! single-category option
+      LOGICAL                   , INTENT(in   ) ::   ld_virtual_itd  ! single-category option
       REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   ptsu            ! sea ice / snow surface temperature
       REAL(wp), DIMENSION(:,:)  , INTENT(in   ) ::   ptb             ! sea ice base temperature
@@ -962 +962 @@
       !      I   Enhanced conduction factor  !
       ! -------------------------------------!
-      ! Emulates the enhancement of conduction by unresolved thin ice (k_virtual_itd = 1/2)
+      ! Emulates the enhancement of conduction by unresolved thin ice (ld_virtual_itd = T)
       ! Fichefet and Morales Maqueda, JGR 1997
       !
       zgfac(:,:,:) = 1._wp
       
-      SELECT CASE ( k_virtual_itd )
-      !
-      CASE ( 1 , 2 )
+      IF( ld_virtual_itd ) THEN
          !
          zfac  = 1._wp /  ( rn_cnd_s + rcnd_i )
@@ -984 +982 @@
          END DO
          !      
-      END SELECT
+      ENDIF
       
       ! -------------------------------------------------------------!