Changeset 20 for branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/bio.com

Timestamp:

10/05/16 14:25:40 (8 years ago)

Author:

vancop

Message:

Ludivine source files

File:

• branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/bio.com (modified) (9 diffs)

branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/bio.com

@@ -66 +66 @@
      &   jn_car,      !:  ...
      &   jn_co2,      !:  ...
-     &   jn_cal
+     &   jn_cal,      !:  ...
+     &   jn_aon,      !:  ...
+     &   jn_eon,      !:  ...
+     &   jn_aop,      !:  ...           
+     &   jn_eop
 
       REAL(8), DIMENSION(ntra_bio_max,nlay_bio) ::
@@ -118 +122 @@
      &   fdiff,
      &   csat_gas,
-     &   sol_gas
+     &   sol_gas,
+     &   FDSI_AD,
+     &   FDIN_AD,
+     &   FDIP_AD
+
 
       COMMON /bioini/
@@ -137 +145 @@
      &   jn_car,      !:  ...
      &   jn_co2,      !:  ...
-     &   jn_cal
+     &   jn_cal,      !:  ...
+     &   jn_aon,      !:  ...
+     &   jn_eon,      !:  ...
+     &   jn_aop,      !:
+     &   jn_eop
 
       COMMON /biophyparams/
@@ -200 +212 @@
      &   ln_gasflux              , !: activate gas flux to atm
      &   ln_carbon               , !: activate carbon cycle
-     &   ln_ikaite                 !: activate CaCO3 
-     
+     &   ln_ikaite               , !: activate CaCO3 
+     &   ln_decoupNC             , !: activate N cycle disconnected from C cycle   
+     &   ln_decoupPC
+
       INTEGER(4) ::
      &   nn_bio_opt              , !: type of biological model (0=NP, 1=NPD Redfield)
@@ -258 +272 @@
      &   e_thr_gasflux           ,
      &   sursat_gas              ,
-     &   caco3_time               
+     &   caco3_time              ,
+     &   ln_decoupNC             ,
+     &   ln_decoupPC
 
       !-----------------------
@@ -329 +345 @@
      &   lim_tem(nlay_bio)       , !: temperature limitation
      &   lim_sal(nlay_bio)       , !: salt limitation
-     &   chlC_bio(nlay_bio)        !: interactive chl-a / C ratio
+     &   chlC_bio(nlay_bio)      , !: interactive chl-a / C ratio
+     &   syn_N(nlay_bio)         , !:
+     &   lys_N(nlay_bio)         , !:
+     &   rsp_N(nlay_bio)         , !:
+     &   rem_N(nlay_bio)         , !:
+     &   syn_P(nlay_bio)         , !:
+     &   lys_P(nlay_bio)         , !:
+     &   rsp_P(nlay_bio)         , !:
+     &   rem_P(nlay_bio)         , !:
+     &   N_C_alg(nlay_bio)       , !: N/C ratio in algae (if ln_decoupNC = TRUE)
+     &   N_C_det(nlay_bio)       , !: N/C ratio in detritic matter (if ln_decoupNC = TRUE)
+     &   lim_din_stock(nlay_bio) , !: limitation en stock DIN
+     &   lim_dip_stock(nlay_bio) , !:
+     &   lim_dsi_stock(nlay_bio) , !:
+     &   P_C_alg(nlay_bio)       , !: P/C ratio in algae (if ln_decoupPC = TRUE)
+     &   P_C_det(nlay_bio)       , !: P/C ratio in algae (if ln_decoupPC = TRUE)
+     &   N_P_alg(nlay_bio)       , !: N/P ratio in algae (if ln_decoupPC = TRUE)
+     &   N_P_det(nlay_bio)         !: N/P ratio in algae (if ln_decoupPC = TRUE)
 
       COMMON /biosources/
@@ -345 +378 @@
      &   lim_tem                 , !:
      &   lim_sal                 , !:
-     &   chlC_bio                  !: 
+     &   chlC_bio                , !: 
+     &   syn_N                   , !:
+     &   lys_N                   , !:
+     &   rsp_N                   , !:
+     &   rem_N                   , !:
+     &   syn_P                   , !:
+     &   lys_P                   , !:
+     &   rsp_P                   , !:
+     &   rem_P                   , !:
+     &   N_C_alg                 , !:
+     &   N_C_det                 , !:
+     &   lim_din_stock           , !:
+     &   lim_dip_stock           , !:
+     &   lim_dsi_stock           , !:
+     &   P_C_alg                 , !:
+     &   P_C_det                 , !:
+     &   N_P_alg                 , !:
+     &   N_P_det                   !:
+
 
       COMMON /biorad/             
@@ -374 +425 @@
      &   po4_c                   , !: N cell quota in diatoms
      &   oxy_c                   , !: Oxygen cell quota in diatoms
-     &   c_molar                   !: carbon molar mass
+     &   c_molar                 , !: carbon molar mass
+     &   ksyn_N                  , !: intensity of N flux compared with C flux
+     &   klys_N                  , !: same
+     &   krsp_N                  , !: same
+     &   krem_N                  , !: same
+     &   ksyn_P                  , !: intensity of N flux compared with C flux
+     &   klys_P                  , !: same
+     &   krsp_P                  , !: same
+     &   krem_P                    !: same
 
       COMMON /bioparams/
@@ -381 +440 @@
      &   krem_bio, krsp_bio, 
      &   rg_bio, rg_bac, chla_c, Estar, si_c, no3_c, po4_c, oxy_c,
-     &   lim_sal_wid, lim_sal_smax, c_molar
-
+     &   lim_sal_wid, lim_sal_smax, c_molar, ksyn_N, klys_N, 
+     &   krsp_N, krem_N, ksyn_P, klys_P, krsp_P, 
+     &   krem_P
+ 
+