- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
r3443 r4147 28 28 PUBLIC p2z_opt_init ! 29 29 30 REAL(wp), PUBLIC :: xkr0 = 0.0232_wp!: water coefficient absorption in red31 REAL(wp), PUBLIC :: xkg0 = 0.225_wp!: water coefficient absorption in green32 REAL(wp), PUBLIC :: xkrp = 0.074_wp!: pigment coefficient absorption in red33 REAL(wp), PUBLIC :: xkgp = 0.037_wp!: pigment coefficient absorption in green34 REAL(wp), PUBLIC :: xlr = 0.674_wp!: exposant for pigment absorption in red35 REAL(wp), PUBLIC :: xlg = 0.629_wp!: exposant for pigment absorption in green36 REAL(wp), PUBLIC :: rpig = 0.7_wp!: chla/chla+phea ratio30 REAL(wp), PUBLIC :: xkr0 !: water coefficient absorption in red 31 REAL(wp), PUBLIC :: xkg0 !: water coefficient absorption in green 32 REAL(wp), PUBLIC :: xkrp !: pigment coefficient absorption in red 33 REAL(wp), PUBLIC :: xkgp !: pigment coefficient absorption in green 34 REAL(wp), PUBLIC :: xlr !: exposant for pigment absorption in red 35 REAL(wp), PUBLIC :: xlg !: exposant for pigment absorption in green 36 REAL(wp), PUBLIC :: rpig !: chla/chla+phea ratio 37 37 ! 38 REAL(wp), PUBLIC :: rcchl = 60_wp! Carbone/Chlorophyl ratio [mgC.mgChla-1]39 REAL(wp), PUBLIC :: redf = 6.56_wp! redfield ratio (C:N) for phyto40 REAL(wp), PUBLIC :: reddom = 6.56_wp! redfield ratio (C:N) for DOM38 REAL(wp), PUBLIC :: rcchl ! Carbone/Chlorophyl ratio [mgC.mgChla-1] 39 REAL(wp), PUBLIC :: redf ! redfield ratio (C:N) for phyto 40 REAL(wp), PUBLIC :: reddom ! redfield ratio (C:N) for DOM 41 41 42 42 !!* Substitution … … 164 164 NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 165 165 NAMELIST/namlobrat/ rcchl, redf, reddom 166 INTEGER :: ios ! Local integer output status for namelist read 166 167 !!---------------------------------------------------------------------- 167 168 168 REWIND( numnatp ) 169 READ ( numnatp, namlobopt ) 169 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options 170 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 171 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist', lwp ) 172 173 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 174 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 175 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 176 WRITE ( numonp, namlobopt ) 170 177 171 178 IF(lwp) THEN … … 182 189 ENDIF 183 190 ! 184 REWIND( numnatp ) 185 READ ( numnatp, namlobrat ) 191 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios 192 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 193 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist', lwp ) 194 195 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 196 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 197 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 198 WRITE ( numonp, namlobrat ) 186 199 187 200 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.