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 10532 for NEMO/trunk/src/ICE/icethd_pnd.F90 – NEMO

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

remove ln_pnd_fwb from the ice code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.