Ignore:
Timestamp:
2019-01-16T14:17:50+01:00 (19 months ago)
Author:
clem
Message:

remove nn_virtual_itd options and replace them by ln_virtual_itd

File:
1 edited

Legend:

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

    r10511 r10531  
    233233                              CALL ice_thd_temp                     ! --- temperature update --- ! 
    234234            ! 
    235 !!gm please create a new logical (l_thd_mono or a better explicit name) set one for all in icestp.F90 module 
    236 !!gm        l_thd_mono = ln_icedH .AND. ( ( nn_virtual_itd == 1 .OR. nn_virtual_itd == 4 ) .AND. jpl == 1 ) 
    237 !!gm        by the way, the different options associated with nn_virtual_itd =1 to 4  are quite impossible to identify 
    238 !!gm        more comment to add when ready the namelist, with an explicit print in the ocean.output 
    239             IF( ln_icedH ) THEN 
    240                IF ( ( nn_virtual_itd == 1 .OR. nn_virtual_itd == 3 ) .AND. jpl == 1 ) THEN 
    241                               CALL ice_thd_mono                      ! --- extra lateral melting if virtual_itd --- ! 
    242                END IF 
    243             END IF 
     235            IF( ln_icedH .AND. ln_virtual_itd ) & 
     236               &              CALL ice_thd_mono                     ! --- extra lateral melting if virtual_itd --- ! 
    244237            ! 
    245238            IF( ln_icedA )    CALL ice_thd_da                       ! --- lateral melting --- ! 
Note: See TracChangeset for help on using the changeset viewer.