Changeset 20 for branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_bio_param.f

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/ice_bio_param.f (modified) (6 diffs)

branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_bio_param.f

@@ -93 +93 @@
       READ(numbio,*) ln_ikaite   ! activate ikaite
       READ(numbio,*)
+      READ(numbio,*) ln_decoupNC ! N cycle diconnected from C cycle
+      READ(numbio,*)
+      READ(numbio,*) ln_decoupPC ! P cycle diconnected from C cycle      
+      READ(numbio,*)
       READ(numbio,*)
       READ(numbio,*)
@@ -147 +151 @@
       READ(numbio,*)
       READ(numbio,*) frem_bio    ! fraction of diatom loss that is remineralized in Si
+      READ(numbio,*)
+      READ(numbio,*) ksyn_N      ! intensity of N flux VS C flux
+      READ(numbio,*)
+      READ(numbio,*) klys_N
+      READ(numbio,*)
+      READ(numbio,*) krsp_N
+      READ(numbio,*)
+      READ(numbio,*) krem_N
+      READ(numbio,*)
+      READ(numbio,*) ksyn_P
+      READ(numbio,*)
+      READ(numbio,*) klys_P
+      READ(numbio,*)
+      READ(numbio,*) krsp_P
+      READ(numbio,*)
+      READ(numbio,*) krem_P
       READ(numbio,*)
       READ(numbio,*)
@@ -219 +239 @@
       WRITE(numout,*) ' ln_carbon : ', ln_carbon
       WRITE(numout,*) ' ln_ikaite : ', ln_ikaite
+      WRITE(numbio,*) ' ln_decoupNC:', ln_decoupNC
       WRITE(numout,*)
       WRITE(numout,*) ' nn_init   : ', nn_init
@@ -234 +255 @@
       WRITE(numout,*) ' cco2_ini  : ', cco2_ini
       WRITE(numout,*) ' ccal_ini  : ', ccal_ini
+      WRITE(numbio,*) ' caon_ini  : ', caon_ini
+      WRITE(numbio,*) ' ceon_ini  : ', ceon_ini
+      WRITE(numbio,*) ' caop_ini  : ', caop_ini
+      WRITE(numbio,*) ' ceop_ini  : ', ceop_ini
       WRITE(numout,*) ' cno3_w    : ', cno3_w
       WRITE(numout,*) ' cpo4_w    : ', cpo4_w
@@ -247 +272 @@
       WRITE(numout,*) ' cco2_w    : ', cco2_w
       WRITE(numout,*) ' ccal_w    : ', ccal_w
+      WRITE(numbio,*) ' caon_w    : ', caon_w
+      WRITE(numbio,*) ' ceon_w    : ', ceon_w
       WRITE(numout,*) ' mr_oxy    : ', mr_oxy
       WRITE(numout,*) ' mr_nit    : ', mr_nit
@@ -271 +298 @@
       WRITE(numout,*) ' krsp_bio  : ', krsp_bio 
       WRITE(numout,*) ' krem_bio  : ', krem_bio 
-      WRITE(numout,*) ' frem_bio  : ', frem_bio 
+      WRITE(numout,*) ' frem_bio  : ', frem_bio
+      WRITE(numout,*) ' ksyn_N    : ', ksyn_N
+      WRITE(numout,*) ' klys_N    : ', klys_N
+      WRITE(numout,*) ' krsp_N    : ', krsp_N
+      WRITE(numout,*) ' krem_N    : ', krem_N
+      WRITE(numout,*) ' ksyn_P    : ', ksyn_P
+      WRITE(numout,*) ' klys_P    : ', klys_P
+      WRITE(numout,*) ' krsp_P    : ', krsp_P
+      WRITE(numout,*) ' krem_P    : ', krem_P 
       WRITE(numout,*) ' nn_phs    : ', nn_phs  
       WRITE(numout,*) ' ek_bio    : ', ek_bio