Commit 1faa4fe18d755b738a8bf6e51523df863dfd18af

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

Printout de parametres supplementaires dans stdout

src/extras/bio/bio_fasham.F90
... ... @@ -198,6 +198,22 @@
198 198  
199 199 numcc=numc
200 200  
  201 +! Print some parameter values in standard output
  202 + LEVEL3 'FASHAM parameters ...'
  203 + write(*,900) ' vp = ',vp
  204 + write(*,900) ' alpha = ',alpha
  205 + write(*,900) ' inib = ',inib
  206 + write(*,900) ' k1 = ',k1
  207 + write(*,900) ' k2 = ',k2
  208 + write(*,900) ' w_p = ',w_p
  209 + write(*,900) ' theta = ',theta
  210 + write(*,900) ' w_pmin = ',w_pmin
  211 + write(*,900) ' w_pmax = ',w_pmax
  212 + write(*,900) ' aa = ',aa
  213 + write(*,900) ' g2 = ',g2
  214 +
  215 +900 format (A,F8.5)
  216 +
201 217 ! Conversion from day to second
202 218 vp = vp /secs_pr_day
203 219 vb = vb /secs_pr_day
... ...
src/extras/bio/bio_npzd.F90
... ... @@ -159,6 +159,18 @@
159 159  
160 160 numcc=numc
161 161  
  162 +! Print some parameter values in standard output
  163 + LEVEL3 'NPZD parameters ...'
  164 + write(*,900) ' rmax = ',rmax
  165 + write(*,900) ' iv = ',iv
  166 + write(*,900) ' alpha = ',alpha
  167 + write(*,900) ' inib = ',inib
  168 + write(*,900) ' k1 = ',k1
  169 + write(*,900) ' aa = ',aa
  170 + write(*,900) ' g2 = ',g2
  171 +
  172 +900 format (A,F8.5)
  173 +
162 174 ! Conversion from day to second
163 175 rpn = rpn /secs_pr_day
164 176 rzn = rzn /secs_pr_day
... ...