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 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90

    r3443 r4147  
    2929   PUBLIC   p2z_sed_init    ! called in ??? 
    3030 
    31    REAL(wp), PUBLIC ::   sedlam     = 3.86e-7  !: time coefficient of POC remineralization in sediments 
    32    REAL(wp), PUBLIC ::   sedlostpoc = 0.        ! mass of POC lost in sediments  
    33    REAL(wp), PUBLIC ::   vsed       = 3.47e-5  ! detritus sedimentation speed [m/s]  
    34    REAL(wp), PUBLIC ::   xhr        = -0.858    ! coeff for martin''s remineralisation profile 
     31   REAL(wp), PUBLIC ::   sedlam      !: time coefficient of POC remineralization in sediments 
     32   REAL(wp), PUBLIC ::   sedlostpoc ! mass of POC lost in sediments  
     33   REAL(wp), PUBLIC ::   vsed        ! detritus sedimentation speed [m/s]  
     34   REAL(wp), PUBLIC ::   xhr        ! coeff for martin''s remineralisation profile 
    3535 
    3636   !!* Substitution 
    … …  
    151151      !!---------------------------------------------------------------------- 
    152152      NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 
     153      INTEGER :: ios                 ! Local integer output status for namelist read 
    153154 
    154       REWIND( numnatp ) 
    155       READ  ( numnatp, namlobsed ) 
     155      REWIND( numnatp_ref )              ! Namelist namlobsed in reference namelist : Lobster sediments 
     156      READ  ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 
     157901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist', lwp ) 
     158 
     159      REWIND( numnatp_cfg )              ! Namelist namlobsed in configuration namelist : Lobster sediments 
     160      READ  ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 
     161902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 
     162      WRITE ( numonp, namlobsed ) 
    156163 
    157164      IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.