Commit c91f14d2f18ac52e3e35c38e4ef014e8472cfa17

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

Bogue mineur

Showing 1 changed file with 1 additions and 4 deletions   Show diff stats
src/extras/bio/bio_fasham.F90
... ... @@ -296,11 +296,8 @@
296 296 cc(z,i)=z_initial
297 297 cc(b,i)=b_initial
298 298 cc(d,i)=d_initial
299   -! cc(n,i)=n_initial
300   -! cc(n,i)=nit(i) !CHG3
301 299 cc(n,i)=nprof(i) !CHG3
302   - cc(n,i)=aprof(i) !CHG5
303   -! cc(a,i)=a_initial !CHG5
  300 + cc(a,i)=aprof(i) !CHG5
304 301 cc(l,i)=l_initial
305 302 end do
306 303  
... ...