- Timestamp:
- 2013-11-04T12:51:55+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r3443 r4147 29 29 PUBLIC p2z_sed_init ! called in ??? 30 30 31 REAL(wp), PUBLIC :: sedlam = 3.86e-7!: time coefficient of POC remineralization in sediments32 REAL(wp), PUBLIC :: sedlostpoc = 0.! mass of POC lost in sediments33 REAL(wp), PUBLIC :: vsed = 3.47e-5! detritus sedimentation speed [m/s]34 REAL(wp), PUBLIC :: xhr = -0.858! coeff for martin''s remineralisation profile31 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 35 35 36 36 !!* Substitution … … 151 151 !!---------------------------------------------------------------------- 152 152 NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 153 INTEGER :: ios ! Local integer output status for namelist read 153 154 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) 157 901 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 ) 161 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 162 WRITE ( numonp, namlobsed ) 156 163 157 164 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.