Commit beb5c289b41fd509089f366ff4e1fa55a4f7e061

Authored by Dany Dumont
1 parent c58569d0
Exists in master and in 1 other branch snow

Ajout de gmax dans la liste des parametres ecrits par bio_fasham dans le fichier…

… de parametre (.par).
Showing 1 changed file with 3 additions and 7 deletions   Show diff stats
src/extras/bio/bio_fasham.F90
1   -!$Id: bio_fasham.F90,v 1.11 2007-01-06 11:49:15 kbk Exp $
  1 +!$id: bio_fasham.F90,v 1.11 2007-01-06 11:49:15 kbk Exp $
2 2 #include"cppdefs.h"
3 3 !-----------------------------------------------------------------------
4 4 !BOP
... ... @@ -214,12 +214,8 @@
214 214 write(10,901) k2
215 215 write(*,900) ' w_p = ',w_p
216 216 write(10,901) w_p
217   - write(*,900) ' theta = ',theta
218   - write(10,901) theta
219   - write(*,900) ' w_pmin = ',w_pmin
220   - write(10,901) w_pmin
221   - write(*,900) ' w_pmax = ',w_pmax
222   - write(10,901) w_pmax
  217 + write(*,900) ' gmax = ',gmax
  218 + write(10,901) gmax
223 219  
224 220 900 format (a,f8.5)
225 221 901 format (f8.5)
... ...