- Timestamp:
- 2017-12-15T14:59:08+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90
r9033 r9076 975 975 976 976 977 SUBROUTINE blk_ice_qcn( k_ monocat, ptsu, ptb, phs, phi )977 SUBROUTINE blk_ice_qcn( k_virtual_itd, ptsu, ptb, phs, phi ) 978 978 !!--------------------------------------------------------------------- 979 979 !! *** ROUTINE blk_ice_qcn *** … … 990 990 !! 991 991 !!--------------------------------------------------------------------- 992 INTEGER , INTENT(in ) :: k_ monocat! single-category option993 REAL(wp), DIMENSION(:,:,:), INTENT(inout) :: ptsu ! sea ice / snow surface temperature994 REAL(wp), DIMENSION(:,:) , INTENT(in ) :: ptb ! sea ice base temperature995 REAL(wp), DIMENSION(:,:,:), INTENT(in ) :: phs ! snow thickness996 REAL(wp), DIMENSION(:,:,:), INTENT(in ) :: phi ! sea ice thickness992 INTEGER , INTENT(in ) :: k_virtual_itd ! single-category option 993 REAL(wp), DIMENSION(:,:,:), INTENT(inout) :: ptsu ! sea ice / snow surface temperature 994 REAL(wp), DIMENSION(:,:) , INTENT(in ) :: ptb ! sea ice base temperature 995 REAL(wp), DIMENSION(:,:,:), INTENT(in ) :: phs ! snow thickness 996 REAL(wp), DIMENSION(:,:,:), INTENT(in ) :: phi ! sea ice thickness 997 997 ! 998 998 INTEGER , PARAMETER :: nit = 10 ! number of iterations … … 1013 1013 ! I Enhanced conduction factor ! 1014 1014 ! -------------------------------------! 1015 ! Emulates the enhancement of conduction by unresolved thin ice (k_ monocat = 1/3)1015 ! Emulates the enhancement of conduction by unresolved thin ice (k_virtual_itd = 1/2) 1016 1016 ! Fichefet and Morales Maqueda, JGR 1997 1017 1017 ! 1018 1018 zgfac(:,:,:) = 1._wp 1019 1019 1020 SELECT CASE ( k_ monocat )1021 ! 1022 CASE ( 1 , 3)1020 SELECT CASE ( k_virtual_itd ) 1021 ! 1022 CASE ( 1 , 2 ) 1023 1023 ! 1024 1024 zfac = 1._wp / ( rn_cnd_s + rcdic )
Note: See TracChangeset
for help on using the changeset viewer.