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 9929 for NEMO/trunk/src/ICE/icethd_zdf_bl99.F90 – NEMO

Ignore:
Timestamp:
2018-07-11T15:59:30+02:00 (6 years ago)
Author:
clem
Message:

remove unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/ICE/icethd_zdf_bl99.F90

    r9916 r9929  
    805805               cnd_ice_1d(ji) = 2._wp * zkappa_i(ji,0) 
    806806            ELSE 
    807                cnd_ice_1d(ji) = 2._wp * ztcond_i(ji,0) / 0.1_wp 
     807               cnd_ice_1d(ji) = 2._wp * ztcond_i(ji,0) * 10._wp 
    808808            ENDIF 
    809809         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.