Changeset 10362 for NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90
- Timestamp:
- 2018-11-30T16:38:17+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90
r10227 r10362 14 14 USE oce_trc ! Shared ocean-passive tracers variables 15 15 USE trc ! Tracers defined 16 USE p4zlim 16 17 USE sms_pisces ! PISCES variables 17 18 USE iom ! I/O manager … … 25 26 26 27 !! * Shared module variables 27 REAL(wp), PUBLIC :: concnno3 !: NO3, PO4 half saturation28 28 REAL(wp), PUBLIC :: concpno3 !: NO3, PO4 half saturation 29 REAL(wp), PUBLIC :: concdno3 !: Phosphate half saturation for diatoms30 REAL(wp), PUBLIC :: concnnh4 !: NH4 half saturation for phyto31 29 REAL(wp), PUBLIC :: concpnh4 !: NH4 half saturation for phyto 32 REAL(wp), PUBLIC :: concdnh4 !: NH4 half saturation for diatoms33 30 REAL(wp), PUBLIC :: concnpo4 !: NH4 half saturation for diatoms 34 31 REAL(wp), PUBLIC :: concppo4 !: NH4 half saturation for diatoms 35 32 REAL(wp), PUBLIC :: concdpo4 !: NH4 half saturation for diatoms 36 REAL(wp), PUBLIC :: concnfer !: Iron half saturation for nanophyto37 33 REAL(wp), PUBLIC :: concpfer !: Iron half saturation for nanophyto 38 REAL(wp), PUBLIC :: concdfer !: Iron half saturation for diatoms39 REAL(wp), PUBLIC :: concbno3 !: NO3 half saturation for bacteria40 REAL(wp), PUBLIC :: concbnh4 !: NH4 half saturation for bacteria41 34 REAL(wp), PUBLIC :: concbpo4 !: PO4 half saturation for bacteria 42 REAL(wp), PUBLIC :: xsizedia !: Minimum size criteria for diatoms43 35 REAL(wp), PUBLIC :: xsizepic !: Minimum size criteria for diatoms 44 REAL(wp), PUBLIC :: xsizephy !: Minimum size criteria for nanophyto45 REAL(wp), PUBLIC :: xsizern !: Size ratio for nanophytoplankton46 36 REAL(wp), PUBLIC :: xsizerp !: Size ratio for nanophytoplankton 47 REAL(wp), PUBLIC :: xsizerd !: Size ratio for diatoms48 REAL(wp), PUBLIC :: xksi1 !: half saturation constant for Si uptake49 REAL(wp), PUBLIC :: xksi2 !: half saturation constant for Si/C50 REAL(wp), PUBLIC :: xkdoc !: 2nd half-sat. of DOC remineralization51 REAL(wp), PUBLIC :: concbfe !: Fe half saturation for bacteria52 REAL(wp), PUBLIC :: oxymin !: half saturation constant for anoxia53 37 REAL(wp), PUBLIC :: qfnopt !: optimal Fe quota for nanophyto 54 38 REAL(wp), PUBLIC :: qfpopt !: optimal Fe quota for nanophyto 55 39 REAL(wp), PUBLIC :: qfdopt !: optimal Fe quota for diatoms 56 REAL(wp), PUBLIC :: caco3r !: mean rainratio57 40 REAL(wp), PUBLIC :: qnnmin !: optimal Fe quota for diatoms 58 41 REAL(wp), PUBLIC :: qnnmax !: optimal Fe quota for diatoms … … 89 72 90 73 !!* Phytoplankton limitation terms 91 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xnanono3 !: ???92 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xdiatno3 !: ???93 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xnanonh4 !: ???94 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xdiatnh4 !: ???95 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xnanopo4 !: ???96 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xdiatpo4 !: ???97 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimphy !: ???98 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimdia !: ???99 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimnfe !: ???100 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimdfe !: ???101 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimsi !: ???102 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimbac !: ??103 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xlimbacl !: ??104 74 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xpicono3 !: ??? 105 75 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: xpiconh4 !: ??? … … 574 544 & xpicopo4(jpi,jpj,jpk), xpicodop(jpi,jpj,jpk), & 575 545 & xnanodop(jpi,jpj,jpk), xdiatdop(jpi,jpj,jpk), & 576 & xnanono3(jpi,jpj,jpk), xdiatno3(jpi,jpj,jpk), &577 & xnanonh4(jpi,jpj,jpk), xdiatnh4(jpi,jpj,jpk), &578 & xnanopo4(jpi,jpj,jpk), xdiatpo4(jpi,jpj,jpk), &579 & xlimphy (jpi,jpj,jpk), xlimdia (jpi,jpj,jpk), &580 & xlimnfe (jpi,jpj,jpk), xlimdfe (jpi,jpj,jpk), &581 & xlimbac (jpi,jpj,jpk), xlimbacl(jpi,jpj,jpk), &582 546 & xnanofer(jpi,jpj,jpk), xdiatfer(jpi,jpj,jpk), & 583 547 & xpicofer(jpi,jpj,jpk), xlimpfe (jpi,jpj,jpk), & 584 548 & fvnuptk (jpi,jpj,jpk), fvduptk (jpi,jpj,jpk), & 585 & fvpuptk (jpi,jpj,jpk), xlimpic (jpi,jpj,jpk), & 586 & xlimsi (jpi,jpj,jpk), STAT=ierr(1) ) 549 & fvpuptk (jpi,jpj,jpk), xlimpic (jpi,jpj,jpk), STAT=ierr(1) ) 587 550 ! 588 551 !* Minimum/maximum quotas of phytoplankton
Note: See TracChangeset
for help on using the changeset viewer.