Ignore:
Timestamp:
2019-01-16T17:49:45+01:00 (19 months ago)
Author:
clem
Message:

change some more names in the ice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icethd_dh.F90

    r10069 r10534  
    126126      !                       ! Available heat for surface and bottom ablation ! 
    127127      !                       ! ============================================== ! 
    128       SELECT CASE( nice_jules ) 
    129128      ! 
    130       CASE( np_jules_ACTIVE ) 
     129      IF( ln_cndflx .AND. .NOT.ln_cndemulate ) THEN 
    131130         ! 
    132131         DO ji = 1, npti 
     
    134133         END DO 
    135134         ! 
    136       CASE( np_jules_OFF , np_jules_EMULE ) 
     135      ELSE 
    137136         ! 
    138137         DO ji = 1, npti 
     
    142141         END DO 
    143142         ! 
    144       END SELECT 
     143      ENDIF 
    145144      ! 
    146145      DO ji = 1, npti 
Note: See TracChangeset for help on using the changeset viewer.