Changeset 7986 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

Timestamp:

2017-04-28T17:21:58+02:00 (7 years ago)

Author:

marc

Message:

Pulled detritus processes out of trcbio_medusa.F90

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90 (modified) (6 diffs)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

@@ -30 +30 @@
 # endif
 
+   !! integrated source and sink terms
+   REAL(wp) ::    b0
+
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fthetan,faln,fchn1,fchn
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fjln,fprn,frn
@@ -74 +77 @@
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fmegrow,fmeexcr,fmeresp
    !!
-   !! mortality/Remineralisation (defunct parameter "fz" removed)
+   !! mortality/Remineralisation
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fdpn,fdpd,fdpds,fdzmi,fdzme,fdd
 # if defined key_roam
@@ -80 +83 @@
 # endif
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fdpn2,fdpd2,fdpds2,fdzmi2,fdzme2
-
-   !! Mortality/Remineralisation
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslown, fslowc
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslownflux, fslowcflux
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregenfast,fregenfastsi
@@ -100 +102 @@
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fccd
    REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fccd_dep
+
+   !! AXY (08/07/11): fate of fast detritus reaching the seafloor
+   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: ffast2slown,ffast2slowc
 
    !! water column nutrient and flux integrals
@@ -297 +302 @@
                fdpn2(jpi,jpj),fdpd2(jpi,jpj),fdpds2(jpi,jpj),         &
                fdzmi2(jpi,jpj),fdzme2(jpi,jpj),                       &
+               fslown(jpi,jpj), fslowc(jpi,jpj),                      &
                fslownflux(jpi,jpj),fslowcflux(jpi,jpj),               &
                fregenfast(jpi,jpj),fregenfastsi(jpi,jpj),             &
@@ -314 +320 @@
                fccd(jpi,jpj),                                         &
                fccd_dep(jpi,jpj),                                     &
+               ffast2slown(jpi,jpj),ffast2slowc(jpi,jpj),             &
                ftot_n(jpi,jpj),ftot_si(jpi,jpj),ftot_fe(jpi,jpj),     &
                fflx_n(jpi,jpj),fflx_si(jpi,jpj),fflx_fe(jpi,jpj),     &