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/icestp.F90

    r10519 r10531  
    297297      INTEGER  ::   ios                 ! Local integer 
    298298      !! 
    299       NAMELIST/nampar/ jpl, nlay_i, nlay_s, nn_virtual_itd, ln_icedyn, ln_icethd, rn_amax_n, rn_amax_s,  & 
     299      NAMELIST/nampar/ jpl, nlay_i, nlay_s, ln_virtual_itd, ln_icedyn, ln_icethd, rn_amax_n, rn_amax_s,  & 
    300300         &             cn_icerst_in, cn_icerst_indir, cn_icerst_out, cn_icerst_outdir 
    301301      !!------------------------------------------------------------------- 
     
    317317         WRITE(numout,*) '         number of ice  layers                               nlay_i    = ', nlay_i 
    318318         WRITE(numout,*) '         number of snow layers                               nlay_s    = ', nlay_s 
    319          WRITE(numout,*) '         virtual ITD param for jpl=1 (1-3) or not (0)   nn_virtual_itd = ', nn_virtual_itd 
     319         WRITE(numout,*) '         virtual ITD param for jpl=1 (T) or not (F)     ln_virtual_itd = ', ln_virtual_itd 
    320320         WRITE(numout,*) '         Ice dynamics       (T) or not (F)                   ln_icedyn = ', ln_icedyn 
    321321         WRITE(numout,*) '         Ice thermodynamics (T) or not (F)                   ln_icethd = ', ln_icethd 
     
    324324      ENDIF 
    325325      !                                        !--- check consistency 
    326       IF ( jpl > 1 .AND. nn_virtual_itd == 1 ) THEN 
    327          nn_virtual_itd = 0 
     326      IF ( jpl > 1 .AND. ln_virtual_itd ) THEN 
     327         ln_virtual_itd = .FALSE. 
    328328         IF(lwp) WRITE(numout,*) 
    329          IF(lwp) WRITE(numout,*) '   nn_virtual_itd forced to 0 as jpl>1, no need with multiple categories to emulate them' 
     329         IF(lwp) WRITE(numout,*) '   ln_virtual_itd forced to false as jpl>1, no need with multiple categories to emulate them' 
    330330      ENDIF 
    331331      ! 
Note: See TracChangeset for help on using the changeset viewer.