Commit 1faa4fe1 authored by dumoda01's avatar dumoda01

Printout de parametres supplementaires dans stdout

parent 4bbaec20
......@@ -198,6 +198,22 @@
numcc=numc
! Print some parameter values in standard output
LEVEL3 'FASHAM parameters ...'
write(*,900) ' vp = ',vp
write(*,900) ' alpha = ',alpha
write(*,900) ' inib = ',inib
write(*,900) ' k1 = ',k1
write(*,900) ' k2 = ',k2
write(*,900) ' w_p = ',w_p
write(*,900) ' theta = ',theta
write(*,900) ' w_pmin = ',w_pmin
write(*,900) ' w_pmax = ',w_pmax
write(*,900) ' aa = ',aa
write(*,900) ' g2 = ',g2
900 format (A,F8.5)
! Conversion from day to second
vp = vp /secs_pr_day
vb = vb /secs_pr_day
......
......@@ -159,6 +159,18 @@
numcc=numc
! Print some parameter values in standard output
LEVEL3 'NPZD parameters ...'
write(*,900) ' rmax = ',rmax
write(*,900) ' iv = ',iv
write(*,900) ' alpha = ',alpha
write(*,900) ' inib = ',inib
write(*,900) ' k1 = ',k1
write(*,900) ' aa = ',aa
write(*,900) ' g2 = ',g2
900 format (A,F8.5)
! Conversion from day to second
rpn = rpn /secs_pr_day
rzn = rzn /secs_pr_day
......
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