Changeset 6904


Ignore:
Timestamp:
08/01/24 11:36:21 (7 months ago)
Author:
cetlod
Message:

Minor changes in PISCES burial parameters

Location:
CONFIG/UNIFORM/v6/NEMO_v6.5
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • CONFIG/UNIFORM/v6/NEMO_v6.5/GENERAL/PARAM/NAMELIST/namelist_pisces_cfg

    r6601 r6904  
    6060!----------------------------------------------------------------------- 
    6161   atccos      = _AUTO_: DEFAULT=450.  ! Constant value atmospheric pCOS (ppt) 
    62    atcco       = 90.e-12    ! units atm (90 ppbv) Fraction molaire du pCO 
     62   atcco       = 90.       ! units atm (90 ppbv) Fraction molaire du pCO 
    6363   atcisp      = 0.        ! units atm (0 ppt/ 0.4 ppt ) Fraction molaire pIsoprene 
    6464   uvlux       = 0.044     ! proportion of UV radiant flux to global solar radiation 
     
    175175/ 
    176176!----------------------------------------------------------------------- 
     177&nampissed     !   Namelist parameters for sediment mobilisation 
     178!----------------------------------------------------------------------- 
     179   nitrfix     =  2.e-7    ! Nitrogen fixation rate 
     180   diazolight  =  30.      ! Diazotrophs sensitivity to light (W/m2) 
     181   concfediaz  =  1.e-10   ! Diazotrophs half-saturation Cste for Iron 
     182   bureffmin   =  0.02     ! Minimum burial efficiency 
     183   bureffvar   =  0.08     ! Variable coef. for burial efficiency 
     184   sedsilfrac  = 0.03      ! percentage of silica loss in the sediments  sedsilfrac 
     185   sedcalfrac  = 0.99      ! percentage of calcite loss in the sediments  sedsilfrac 
     186/ 
     187!----------------------------------------------------------------------- 
    177188&nampisice     !   Prescribed sea ice tracers 
    178189!----------------------------------------------------------------------- 
  • CONFIG/UNIFORM/v6/NEMO_v6.5/SOURCES/p4zsed.F90

    r6601 r6904  
    339339      ! 
    340340      !! 
    341       NAMELIST/nampissed/ nitrfix, diazolight, concfediaz 
     341      NAMELIST/nampissed/ nitrfix, diazolight, concfediaz, bureffmin, bureffvar, & 
     342         &                sedsilfrac, sedcalfrac 
    342343      !!---------------------------------------------------------------------- 
    343344      ! 
     
    347348         WRITE(numout,*) '~~~~~~~~~~~~ ' 
    348349      ENDIF 
    349       !                            !* set file information 
     350      ! 
     351      bureffmin =  0.013    !  Minimum burial efficiency  
     352      bureffvar =  0.053    !   Variable coef. for burial efficiency  
     353      ! 
     354      sedsilfrac = 0.03     ! percentage of silica loss in the sediments 
     355      sedcalfrac = 0.99     ! percentage of calcite loss in the sediments 
     356 
     357      !* set file information 
    350358      READ  ( numnatp_ref, nampissed, IOSTAT = ios, ERR = 901) 
    351359901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampissed in reference namelist' ) 
     
    356364      IF(lwp) THEN 
    357365         WRITE(numout,*) '   Namelist : nampissed ' 
    358          WRITE(numout,*) '      nitrogen fixation rate                       nitrfix = ', nitrfix 
    359          WRITE(numout,*) '      nitrogen fixation sensitivty to light    diazolight  = ', diazolight 
    360          WRITE(numout,*) '      Fe half-saturation cste for diazotrophs  concfediaz  = ', concfediaz 
     366         WRITE(numout,*) '      nitrogen fixation rate                       nitrfix   = ', nitrfix 
     367         WRITE(numout,*) '      nitrogen fixation sensitivty to light    diazolight    = ', diazolight 
     368         WRITE(numout,*) '      Fe half-saturation cste for diazotrophs  concfediaz    = ', concfediaz 
     369         WRITE(numout,*) '      Minimum burial efficiency                    bureffmin = ', bureffmin 
     370         WRITE(numout,*) '      Variable coef. for burial efficiency         bureffvar = ', bureffvar 
     371         WRITE(numout,*) '      percentage of silica loss in the sediments  sedsilfrac = ', sedsilfrac 
     372         WRITE(numout,*) '      percentage of calcite loss in the sediments sedcalfrac = ', sedcalfrac 
    361373      ENDIF 
    362374      ! 
    363375      r1_rday  = 1. / rday 
    364       ! 
    365       sedsilfrac = 0.03     ! percentage of silica loss in the sediments 
    366       sedcalfrac = 0.99     ! percentage of calcite loss in the sediments 
    367376      ! 
    368377      lk_sed = ln_sediment .AND. ln_sed_2way  
Note: See TracChangeset for help on using the changeset viewer.