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 7813 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90 – NEMO

Ignore:
Timestamp:
2017-03-20T17:17:45+01:00 (7 years ago)
Author:
clem
Message:

synchronize trunk with 3.6

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r7753 r7813  
    571571      !!------------------------------------------------------------------- 
    572572      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    573       NAMELIST/namicethd/ rn_kappa_i, nn_conv_dif, rn_terr_dif, nn_ice_thcon,ln_it_qnsice,nn_monocat,  & 
    574          &                ln_limdH, rn_betas,                                                          & 
    575          &                ln_limdA, rn_beta, rn_dmin,                                                  & 
     573      NAMELIST/namicethd/ rn_kappa_i, nn_conv_dif, rn_terr_dif, nn_ice_thcon, ln_it_qnsice, nn_monocat, rn_cdsn,  & 
     574         &                ln_limdH, rn_betas,                                                                     & 
     575         &                ln_limdA, rn_beta, rn_dmin,                                                             & 
    576576         &                ln_limdO, rn_hnewice, ln_frazil, rn_maxfrazb, rn_vfrazb, rn_Cfrazb, rn_himin 
    577577      !!------------------------------------------------------------------- 
     
    585585902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
    586586      IF(lwm) WRITE ( numoni, namicethd ) 
     587      ! 
     588      IF ( ( jpl > 1 ) .AND. ( nn_monocat == 1 ) ) THEN  
     589         nn_monocat = 0 
     590         IF(lwp) WRITE(numout,*) 
     591         IF(lwp) WRITE(numout,*) '   nn_monocat forced to 0 as jpl>1, i.e. multi-category case is chosen' 
     592      ENDIF 
    587593      ! 
    588594      IF(lwp) THEN                          ! control print 
     
    596602         WRITE(numout,*)'      iterate the surface non-solar flux (T) or not (F)       ln_it_qnsice = ', ln_it_qnsice 
    597603         WRITE(numout,*)'      virtual ITD mono-category parameterizations (1) or not  nn_monocat   = ', nn_monocat 
     604         WRITE(numout,*)'      thermal conductivity of the snow                        rn_cdsn      = ', rn_cdsn 
    598605         WRITE(numout,*)'   -- limthd_dh --' 
    599606         WRITE(numout,*)'      activate ice thick change from top/bot (T) or not (F)   ln_limdH     = ', ln_limdH 
     
    614621         WRITE(numout,*)'      check heat conservation in the ice/snow                 con_i        = ', con_i 
    615622      ENDIF 
    616       IF( jpl > 1 .AND. nn_monocat == 1 ) THEN  
    617          nn_monocat = 0 
    618          IF(lwp) WRITE(numout,*) 
    619          IF(lwp) WRITE(numout,*) '   nn_monocat forced to 0 as jpl>1, i.e. multi-category case is chosen' 
    620       ENDIF 
    621623      ! 
    622624   END SUBROUTINE lim_thd_init 
Note: See TracChangeset for help on using the changeset viewer.