Changeset 2997
- Timestamp:
- 2011-10-25T20:14:21+02:00 (12 years ago)
- Location:
- branches/2011/dev_LOCEAN_2011/NEMOGCM
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_2011/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_pisces
r2987 r2997 46 46 conc0 = 2.e-6 ! Phosphate half saturation 47 47 conc1 = 8E-6 ! Phosphate half saturation for diatoms 48 conc2 = 1E-9 ! Iron half saturation for phyto49 conc2m = 3E-9 ! Max iron half saturation for phyto50 conc3 = 2E-9 ! Iron half saturation for diatoms51 conc3m = 8E-9 ! Maxi iron half saturation for diatoms48 conc2 = 2E-9 ! Iron half saturation for phyto 49 conc2m = 4E-9 ! Max iron half saturation for phyto 50 conc3 = 3E-9 ! Iron half saturation for diatoms 51 conc3m = 9E-9 ! Maxi iron half saturation for diatoms 52 52 xsizedia = 5.E-7 ! Minimum size criteria for diatoms 53 53 xsizephy = 1.E-6 ! Minimum size criteria for phyto … … 65 65 &nampisprod ! parameters for phytoplankton growth 66 66 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 67 pislope = 2. ! P-I slope67 pislope = 3. ! P-I slope 68 68 pislope2 = 2. ! P-I slope for diatoms 69 69 excret = 0.05 ! excretion ratio of phytoplankton … … 91 91 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 92 92 part2 = 0.75 ! part of calcite not dissolved in mesozoo guts 93 grazrat2 = 0. 9! maximal mesozoo grazing rate93 grazrat2 = 0.7 ! maximal mesozoo grazing rate 94 94 resrat2 = 0.005 ! exsudation rate of mesozooplankton 95 mzrat2 = 0.0 4! mesozooplankton mortality rate95 mzrat2 = 0.03 ! mesozooplankton mortality rate 96 96 xprefc = 1. ! zoo preference for phyto 97 97 xprefp = 0.3 ! zoo preference for POC … … 104 104 xthresh2 = 0. ! Food threshold for grazing 105 105 xkgraz2 = 20.E-6 ! half sturation constant for meso grazing 106 epsher2 = 0.3 106 epsher2 = 0.33 ! Efficicency of Mesozoo growth 107 107 sigma2 = 0.6 ! Fraction of mesozoo excretion as DOM 108 108 unass2 = 0.3 ! non assimilated fraction of P by mesozoo … … 116 116 resrat = 0.03 ! exsudation rate of zooplankton 117 117 mzrat = 0.0 ! zooplankton mortality rate 118 xpref2c = 0. 2! Microzoo preference for POM118 xpref2c = 0.1 ! Microzoo preference for POM 119 119 xpref2p = 1. ! Microzoo preference for Nanophyto 120 120 xpref2d = 0.6 ! Microzoo preference for Diatoms … … 124 124 xthresh = 0. ! Food threshold for feeding 125 125 xkgraz = 20.E-6 ! half sturation constant for grazing 126 epsher = 0.3 126 epsher = 0.33 ! Efficiency of microzoo growth 127 127 sigma1 = 0.6 ! Fraction of microzoo excretion as DOM 128 128 unass = 0.3 ! non assimilated fraction of phyto by zoo -
branches/2011/dev_LOCEAN_2011/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_pisces
r2987 r2997 46 46 conc0 = 2.e-6 ! Phosphate half saturation 47 47 conc1 = 8E-6 ! Phosphate half saturation for diatoms 48 conc2 = 1E-9 ! Iron half saturation for phyto49 conc2m = 3E-9 ! Max iron half saturation for phyto50 conc3 = 2E-9 ! Iron half saturation for diatoms51 conc3m = 8E-9 ! Maxi iron half saturation for diatoms48 conc2 = 2E-9 ! Iron half saturation for phyto 49 conc2m = 4E-9 ! Max iron half saturation for phyto 50 conc3 = 3E-9 ! Iron half saturation for diatoms 51 conc3m = 9E-9 ! Maxi iron half saturation for diatoms 52 52 xsizedia = 5.E-7 ! Minimum size criteria for diatoms 53 53 xsizephy = 1.E-6 ! Minimum size criteria for phyto … … 65 65 &nampisprod ! parameters for phytoplankton growth 66 66 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 67 pislope = 2. ! P-I slope67 pislope = 3. ! P-I slope 68 68 pislope2 = 2. ! P-I slope for diatoms 69 69 excret = 0.05 ! excretion ratio of phytoplankton … … 91 91 !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 92 92 part2 = 0.75 ! part of calcite not dissolved in mesozoo guts 93 grazrat2 = 0. 9! maximal mesozoo grazing rate93 grazrat2 = 0.7 ! maximal mesozoo grazing rate 94 94 resrat2 = 0.005 ! exsudation rate of mesozooplankton 95 mzrat2 = 0.0 4! mesozooplankton mortality rate95 mzrat2 = 0.03 ! mesozooplankton mortality rate 96 96 xprefc = 1. ! zoo preference for phyto 97 97 xprefp = 0.3 ! zoo preference for POC … … 104 104 xthresh2 = 0. ! Food threshold for grazing 105 105 xkgraz2 = 20.E-6 ! half sturation constant for meso grazing 106 epsher2 = 0.3 106 epsher2 = 0.33 ! Efficicency of Mesozoo growth 107 107 sigma2 = 0.6 ! Fraction of mesozoo excretion as DOM 108 108 unass2 = 0.3 ! non assimilated fraction of P by mesozoo … … 116 116 resrat = 0.03 ! exsudation rate of zooplankton 117 117 mzrat = 0.0 ! zooplankton mortality rate 118 xpref2c = 0. 2! Microzoo preference for POM118 xpref2c = 0.1 ! Microzoo preference for POM 119 119 xpref2p = 1. ! Microzoo preference for Nanophyto 120 120 xpref2d = 0.6 ! Microzoo preference for Diatoms … … 124 124 xthresh = 0. ! Food threshold for feeding 125 125 xkgraz = 20.E-6 ! half sturation constant for grazing 126 epsher = 0.3 126 epsher = 0.33 ! Efficiency of microzoo growth 127 127 sigma1 = 0.6 ! Fraction of microzoo excretion as DOM 128 128 unass = 0.3 ! non assimilated fraction of phyto by zoo -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90
r2977 r2997 457 457 DO jj = 1, jpj 458 458 DO ji = 1,jpi 459 zmax = MAX( heup(ji,jj), hmld(ji,jj) ) 460 zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 5000._wp 459 ! zmax = MAX( heup(ji,jj), hmld(ji,jj) ) 460 ! zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 5000._wp 461 zmax = hmld(ji,jj) 462 zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 4000._wp 461 463 wsbio4(ji,jj,jk) = wsbio2 + ( 200.- wsbio2 ) * zfact 462 464 END DO -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trc.F90
r2977 r2997 23 23 !! parameters for the control of passive tracers 24 24 !! -------------------------------------------------- 25 INTEGER, PUBLIC :: numnat !: the number of the passive tracer NAMELIST 25 INTEGER, PUBLIC :: numnat !: logicla unit for the passive tracer NAMELIST 26 INTEGER, PUBLIC :: numstr !: logical unit for tracer statistics 26 27 27 28 !! passive tracers fields (before,now,after) -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r2977 r2997 94 94 IF( lk_my_trc ) THEN ; CALL trc_ini_my_trc ! MY_TRC tracers 95 95 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 96 ENDIF 97 98 IF( lwp ) THEN 99 ! 100 CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea ) 101 ! 96 102 ENDIF 97 103 … … 153 159 WRITE(numout,*) ' *** Total volume of ocean = ', areatot 154 160 WRITE(numout,*) ' *** Total inital content of all tracers ' 161 WRITE(numout,*) 155 162 DO jn = 1, jptra 156 WRITE(numout, *) ' tracer nb : ', jn, ' name : ', ctrcnm(jn), ' initial content :', trai(jn)163 WRITE(numout,9000) jn, TRIM( ctrcnm(jn) ), trai(jn) 157 164 ENDDO 158 165 WRITE(numout,*) 159 166 ENDIF 160 167 WRITE(numout,*) 161 168 IF(ln_ctl) THEN ! print mean trends (used for debugging) 162 169 CALL prt_ctl_trc_init … … 165 172 CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm ) 166 173 ENDIF 174 9000 FORMAT(' tracer nb : ',i2,' name :',a10,' initial content :',e18.10) 167 175 ! 168 176 END SUBROUTINE trc_init -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r2979 r2997 303 303 zmean = ztraf / areatot 304 304 zdrift = ( ( ztraf - trai(jn) ) / ( trai(jn) + 1.e-12 ) ) * 100._wp 305 IF(lwp) WRITE(numout,*) ' tracer nb : ', jn,' ', TRIM( ctrcnm(jn) ) , & 306 & ' mean = ', zmean, ' min = ', zmin, ' max = ', zmax, ' drift = ', zdrift, ' %' 305 IF(lwp) WRITE(numout,9000) jn, TRIM( ctrcnm(jn) ), zmean, zmin, zmax, zdrift 307 306 END DO 308 307 WRITE(numout,*) 309 308 9000 FORMAT(' tracer nb :',i2,' name :',a10,' mean :',e18.10,' min :',e18.10, & 309 & ' max :',e18.10,' drift :',e18.10, ' %') 310 ! 310 311 END SUBROUTINE trc_rst_stat 311 312 -
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r2977 r2997 47 47 !! Update the passive tracers 48 48 !!------------------------------------------------------------------- 49 INTEGER, INTENT( in ) :: kt ! ocean time-step index 50 INTEGER :: jk ! 49 INTEGER, INTENT( in ) :: kt ! ocean time-step index 50 INTEGER :: jk, jn ! dummy loop indices 51 REAL(wp) :: ztrai 51 52 CHARACTER (len=25) :: charout 52 53 !!------------------------------------------------------------------- … … 90 91 ! 91 92 ENDIF 93 ! 94 ztrai = 0._wp ! content of all tracers 95 DO jn = 1, jptra 96 ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:) ) 97 END DO 98 IF( lwp ) WRITE(numstr,9300) kt, ztrai / areatot 99 9300 FORMAT(' iter :',i4,' global content :',e18.10) 92 100 93 101 END SUBROUTINE trc_stp
Note: See TracChangeset
for help on using the changeset viewer.