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 12307 – NEMO

Changeset 12307


Ignore:
Timestamp:
2020-01-08T16:23:48+01:00 (3 years ago)
Author:
dancopsey
Message:

Remove the loop that contains the code that is causing the problem.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_remove_isnow_cond/src/ICE/icethd_zdf_bl99.F90

    r11715 r12307  
    309309            END DO 
    310310         END DO 
    311          DO ji = 1, npti   ! Snow-ice interface 
    312             IF ( .NOT. l_T_converged(ji) ) & 
    313                zkappa_i(ji,0) = zkappa_s(ji,nlay_s) * isnow(ji) + zkappa_i(ji,0) * ( 1._wp - isnow(ji) ) 
    314          END DO 
     311 
    315312         ! 
    316313         !-------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.