Changeset 10532


Ignore:
Timestamp:
2019-01-16T14:39:38+01:00 (15 months ago)
Author:
clem
Message:

remove ln_pnd_fwb from the ice code

Location:
NEMO/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/SHARED/namelist_ice_ref

    r10531 r10532  
    2525   nlay_i           =   2             !  number of ice  layers 
    2626   nlay_s           =   1             !  number of snow layers (only 1 is working) 
    27    ln_virtual_itd   =   .FALSE.       !  virtual ITD mono-category parameterization (jpl=1 only) 
     27   ln_virtual_itd   =   .false.       !  virtual ITD mono-category parameterization (jpl=1 only) 
    2828                                      !     i.e. enhanced thermal conductivity & virtual thin ice melting 
    2929   ln_icedyn        = .true.          !  ice dynamics (T) or not (F) 
     
    165165                                      !     1: constant ice salinity (S=rn_icesal) 
    166166                                      !     2: varying salinity parameterization S(z,t) 
    167                                       !     3: prescribed salinity profile S(z), Schwarzacher, 1959 
     167                                      !     3: prescribed salinity profile S(z) (Schwarzacher 1959) 
    168168   rn_icesal        =   4.            !      (nn_icesal=1) ice salinity (g/kg) 
    169169   rn_sal_gd        =   5.            !      (nn_icesal=2) restoring ice salinity, gravity drainage (g/kg) 
     
    178178!------------------------------------------------------------------------------ 
    179179   ln_pnd_H12       = .false.         !  activate evolutive melt ponds (from Holland et al 2012) 
    180       ln_pnd_fwb    = .false.         !     melt ponds store freshwater or not 
    181    ln_pnd_CST       = .false.         !  activate constant melt ponds 
    182       rn_apnd       =   0.2           !     prescribed pond fraction, at Tsu=0 
    183       rn_hpnd       =   0.05          !     prescribed pond depth, at Tsu=0 
     180   ln_pnd_CST       = .false.         !  activate constant  melt ponds 
     181      rn_apnd       =   0.2           !     prescribed pond fraction, at Tsu=0 degC 
     182      rn_hpnd       =   0.05          !     prescribed pond depth,    at Tsu=0 degC 
    184183   ln_pnd_alb       = .false.         !  melt ponds affect albedo or not 
    185184/ 
  • NEMO/trunk/src/ICE/ice.F90

    r10531 r10532  
    182182   !                                     !!** ice-ponds namelist (namthd_pnd) 
    183183   LOGICAL , PUBLIC ::   ln_pnd_H12       !: Melt ponds scheme from Holland et al 2012 
    184    LOGICAL , PUBLIC ::   ln_pnd_fwb       !: melt ponds store freshwater 
    185184   LOGICAL , PUBLIC ::   ln_pnd_CST       !: Melt ponds scheme with constant fraction and depth 
    186185   REAL(wp), PUBLIC ::   rn_apnd          !: prescribed pond fraction (0<rn_apnd<1) 
  • NEMO/trunk/src/ICE/icethd_pnd.F90

    r10069 r10532  
    166166            ! 
    167167            ! melt pond mass flux (<0) 
    168             IF( ln_pnd_fwb .AND. zdv_mlt > 0._wp ) THEN 
     168            IF( zdv_mlt > 0._wp ) THEN 
    169169               zfac = zfr_mlt * zdv_mlt * rhow * r1_rdtice 
    170170               wfx_pnd_1d(ji) = wfx_pnd_1d(ji) - zfac 
     
    205205      INTEGER  ::   ios, ioptio   ! Local integer 
    206206      !! 
    207       NAMELIST/namthd_pnd/  ln_pnd_H12, ln_pnd_fwb, ln_pnd_CST, rn_apnd, rn_hpnd, ln_pnd_alb 
     207      NAMELIST/namthd_pnd/  ln_pnd_H12, ln_pnd_CST, rn_apnd, rn_hpnd, ln_pnd_alb 
    208208      !!------------------------------------------------------------------- 
    209209      ! 
     
    221221         WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    222222         WRITE(numout,*) '   Namelist namicethd_pnd:' 
    223          WRITE(numout,*) '      Evolutive melt pond fraction and depth (Holland et al 2012)  ln_pnd_H12 = ', ln_pnd_H12 
    224          WRITE(numout,*) '         Melt ponds store fresh water or not                       ln_pnd_fwb = ', ln_pnd_fwb 
    225          WRITE(numout,*) '      Prescribed melt pond fraction and depth                      ln_pnd_Cst = ', ln_pnd_CST 
     223         WRITE(numout,*) '      Evolutive  melt pond fraction and depth (Holland et al 2012) ln_pnd_H12 = ', ln_pnd_H12 
     224         WRITE(numout,*) '      Prescribed melt pond fraction and depth                      ln_pnd_CST = ', ln_pnd_CST 
    226225         WRITE(numout,*) '         Prescribed pond fraction                                  rn_apnd    = ', rn_apnd 
    227226         WRITE(numout,*) '         Prescribed pond depth                                     rn_hpnd    = ', rn_hpnd 
     
    238237      SELECT CASE( nice_pnd ) 
    239238      CASE( np_pndNO )          
    240          IF(ln_pnd_fwb) THEN ; ln_pnd_fwb = .FALSE. ; CALL ctl_warn( 'ln_pnd_fwb=false when no ponds' ) ; ENDIF 
    241          IF(ln_pnd_alb) THEN ; ln_pnd_alb = .FALSE. ; CALL ctl_warn( 'ln_pnd_alb=false when no ponds' ) ; ENDIF 
    242       CASE( np_pndCST) 
    243          IF(ln_pnd_fwb) THEN ; ln_pnd_fwb = .FALSE. ; CALL ctl_warn( 'ln_pnd_fwb=false when ln_pnd_CST=true' ) ; ENDIF 
     239         IF( ln_pnd_alb ) THEN ; ln_pnd_alb = .FALSE. ; CALL ctl_warn( 'ln_pnd_alb=false when no ponds' ) ; ENDIF 
    244240      END SELECT 
    245241      ! 
Note: See TracChangeset for help on using the changeset viewer.