Changeset 10531 for NEMO/trunk/src/OCE/SBC
- Timestamp:
- 2019-01-16T14:17:50+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/sbcblk.F90
r10511 r10531 926 926 927 927 928 SUBROUTINE blk_ice_qcn( k_virtual_itd, ptsu, ptb, phs, phi )928 SUBROUTINE blk_ice_qcn( ld_virtual_itd, ptsu, ptb, phs, phi ) 929 929 !!--------------------------------------------------------------------- 930 930 !! *** ROUTINE blk_ice_qcn *** … … 941 941 !! 942 942 !!--------------------------------------------------------------------- 943 INTEGER , INTENT(in ) :: k_virtual_itd! single-category option943 LOGICAL , INTENT(in ) :: ld_virtual_itd ! single-category option 944 944 REAL(wp), DIMENSION(:,:,:), INTENT(inout) :: ptsu ! sea ice / snow surface temperature 945 945 REAL(wp), DIMENSION(:,:) , INTENT(in ) :: ptb ! sea ice base temperature … … 962 962 ! I Enhanced conduction factor ! 963 963 ! -------------------------------------! 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) 965 965 ! Fichefet and Morales Maqueda, JGR 1997 966 966 ! 967 967 zgfac(:,:,:) = 1._wp 968 968 969 SELECT CASE ( k_virtual_itd ) 970 ! 971 CASE ( 1 , 2 ) 969 IF( ld_virtual_itd ) THEN 972 970 ! 973 971 zfac = 1._wp / ( rn_cnd_s + rcnd_i ) … … 984 982 END DO 985 983 ! 986 END SELECT984 ENDIF 987 985 988 986 ! -------------------------------------------------------------!
Note: See TracChangeset
for help on using the changeset viewer.