Commit dd570312bfc82466a234040e95f2b24a949aa1b8

Authored by dumoda01
1 parent afaf47ce
Exists in master and in 1 other branch snow

Ecriture de la valeur des parametres biologiques de bio_ismer dans $out_ismer.par.

Showing 1 changed file with 41 additions and 6 deletions   Show diff stats
src/extras/bio/bio_ismer.F90
... ... @@ -167,12 +167,47 @@
167 167 pfile = trim(out_fn) // '_ismer.par'
168 168 open(10,status='unknown',action='write',file=pfile)
169 169 LEVEL3 'ISMER parameters saved in ', pfile
170   -! write(*,900) ' vp = ',vp
171   -! write(10,901) vp
172   -! write(*,900) ' alpha = ',alpha
173   -! write(10,901) alpha
174   -! write(*,900) ' inib = ',inib
175   -! write(10,901) inib
  170 + write(10,901) vp1
  171 + write(10,901) vp2
  172 + write(10,901) alpha1
  173 + write(10,901) alpha2
  174 + write(10,901) inib1
  175 + write(10,901) inib2
  176 + write(10,901) kn1
  177 + write(10,901) ka1
  178 + write(10,901) kn2
  179 + write(10,901) ka2
  180 + write(10,901) mu11
  181 + write(10,901) mu12
  182 + write(10,901) k5
  183 + write(10,901) gamma
  184 + write(10,901) w_p1
  185 + write(10,901) w_p2
  186 + write(10,901) g1max
  187 + write(10,901) g2max
  188 + write(10,901) k3
  189 + write(10,901) beta
  190 + write(10,901) mu21
  191 + write(10,901) mu22
  192 + write(10,901) k6
  193 + write(10,901) delta
  194 + write(10,901) epsi
  195 + write(10,901) r11
  196 + write(10,901) r12
  197 + write(10,901) r13
  198 + write(10,901) r21
  199 + write(10,901) r22
  200 + write(10,901) r23
  201 + write(10,901) r24
  202 + write(10,901) vb
  203 + write(10,901) k4
  204 + write(10,901) mu3
  205 + write(10,901) eta
  206 + write(10,901) mu4
  207 + write(10,901) mu5
  208 + write(10,901) w_d
  209 + write(10,901) kc
  210 +
176 211  
177 212 900 format (a,f8.5)
178 213 901 format (f8.5)
... ...