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 4979 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90 – NEMO

Ignore:
Timestamp:
2014-12-08T17:39:09+01:00 (9 years ago)
Author:
vancop
Message:

bugfixes found during the merge party

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

    r4892 r4979  
    108108      REAL(wp) ::   zgamma    =  18009._wp    ! for specific heat 
    109109      REAL(wp) ::   zbeta     =  0.117_wp     ! for thermal conductivity (could be 0.13) 
    110       REAL(wp) ::   zraext_s  =  1.e+8_wp     ! extinction coefficient of radiation in the snow 
     110      REAL(wp) ::   zraext_s  =  10.0_wp      ! extinction coefficient of radiation in the snow 
    111111      REAL(wp) ::   zkimin    =  0.10_wp      ! minimum ice thermal conductivity 
    112112      REAL(wp) ::   ztsu_err  =  1.e-5_wp     ! range around which t_su is considered as 0°C  
Note: See TracChangeset for help on using the changeset viewer.