Commit 2aff8785 authored by Dany Dumont's avatar Dany Dumont
Browse files

Modification des parametres ecrit dans le fichier .par de bio_nocera

parent de9fcec0
......@@ -207,19 +207,17 @@
pfile = trim(out_fn) // '_nocera.par'
open(10,status='unknown',action='write',file=pfile)
LEVEL3 'Biogeochemical parameters saved in ', pfile
write(*,900) ' vp = ',vp
write(10,901) vp
write(*,900) ' alpha = ',alpha
write(10,901) alpha
write(*,900) ' inib = ',inib
write(10,901) inib
write(*,900) ' k1 = ',k1
write(10,901) k1
write(*,900) ' k2 = ',k2
write(10,901) k2
write(*,900) ' w_p = ',w_p
write(10,901) w_p
write(*,900) ' gmax = ',gmax
write(*,900) ' w_zmax = ',w_zmax
write(10,901) w_zmax
write(*,900) ' pmin = ',pmin
write(10,901) pmin
write(*,900) ' parcrit= ',parcrit
write(10,901) parcrit
write(*,900) ' bertha = ',bertha
write(10,901) bertha
write(*,900) ' kc = ',kc
write(10,901) kc
write(*,900) ' gmax = ',gmax
write(10,901) gmax
900 format (a,f8.5)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment