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 14158 – NEMO

Changeset 14158


Ignore:
Timestamp:
2020-12-11T12:19:59+01:00 (3 years ago)
Author:
cguiavarch
Message:

Back-porting the rn_pnd_flush namelist logical from the trunk to 4.0.3 GO8 package branch.
NB. this will not be required for future versions of the GO8 package branch for NEMO version >=4.0.5

Location:
NEMO/branches/UKMO/NEMO_4.0.4_GO8_package
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/cfgs/SHARED/namelist_ice_ref

    r13346 r14158  
    198198         rn_apnd_min =   0.15         !     minimum ice fraction that contributes to melt pond. range: 0.0 -- 0.15 ?? 
    199199         rn_apnd_max =   0.85         !     maximum ice fraction that contributes to melt pond. range: 0.7 -- 0.85 ?? 
     200         rn_pnd_flush=   0.01         !     pond flushing efficiency (tuning parameter) (LEV) 
    200201      ln_pnd_CST     = .false.        !  constant  melt ponds 
    201202         rn_apnd     =   0.2          !     prescribed pond fraction, at Tsu=0 degC 

  • NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/ice.F90

    r14075 r14158  
    211211   REAL(wp), PUBLIC ::   rn_apnd_min      !: Minimum ice fraction that contributes to melt ponds 
    212212   REAL(wp), PUBLIC ::   rn_apnd_max      !: Maximum ice fraction that contributes to melt ponds 
     213   REAL(wp), PUBLIC ::   rn_pnd_flush     !: Pond flushing efficiency (tuning parameter) 
    213214   LOGICAL , PUBLIC ::   ln_pnd_CST       !: Melt ponds scheme with constant fraction and depth 
    214215   REAL(wp), PUBLIC ::   rn_apnd          !: prescribed pond fraction (0<rn_apnd<1) 

  • NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icethd_pnd.F90

    r14075 r14158  
    145145      !!                                  a_ip/a_i = a_ip_frac = h_ip / zaspect 
    146146      !! 
    147       !! ** Tunable parameters : ln_pnd_lids, rn_apnd_max, rn_apnd_min 
     147      !! ** Tunable parameters : rn_apnd_max, rn_apnd_min, rn_pnd_flush 
    148148      !!  
    149149      !! ** Note       :   mostly stolen from CICE 
    … …  
    274274             
    275275            ! Do the drainage using Darcy's law 
    276             zdv_flush   = -zperm * rau0 * grav * zhp * rdt_ice / (zvisc * h_i_1d(ji)) * a_ip_1d(ji) 
     276            zdv_flush   = -zperm * rau0 * grav * zhp * rdt_ice / (zvisc * h_i_1d(ji)) * a_ip_1d(ji) * rn_pnd_flush ! tunable rn_pnd_flush from hunke et al. (2013) 
    277277            zdv_flush   = MAX( zdv_flush, -v_ip_1d(ji) ) 
    278278            v_ip_1d(ji) = v_ip_1d(ji) + zdv_flush 
    … …  
    317317      INTEGER  ::   ios, ioptio   ! Local integer 
    318318      !! 
    319       NAMELIST/namthd_pnd/  ln_pnd, ln_pnd_LEV , rn_apnd_min, rn_apnd_max, & 
     319      NAMELIST/namthd_pnd/  ln_pnd, ln_pnd_LEV , rn_apnd_min, rn_apnd_max, rn_pnd_flush, & 
    320320         &                          ln_pnd_CST , rn_apnd, rn_hpnd,         & 
    321321         &                          ln_pnd_lids, ln_pnd_alb 
    … …  
    339339         WRITE(numout,*) '            Minimum ice fraction that contributes to melt ponds   rn_apnd_min  = ', rn_apnd_min 
    340340         WRITE(numout,*) '            Maximum ice fraction that contributes to melt ponds   rn_apnd_max  = ', rn_apnd_max 
     341         WRITE(numout,*) '            Pond flushing efficiency                              rn_pnd_flush = ', rn_pnd_flush 
    341342         WRITE(numout,*) '         Constant ice melt pond scheme                            ln_pnd_CST   = ', ln_pnd_CST 
    342343         WRITE(numout,*) '            Prescribed pond fraction                              rn_apnd      = ', rn_apnd 
Note: See TracChangeset for help on using the changeset viewer.