Changeset 12307


Ignore:
Timestamp:
2020-01-08T16:23:48+01:00 (3 weeks 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.