← Back to branch summary

~felix-schueller/+junk/trunk

« back to all changes in this revision

Viewing changes to thermodyn.f90

  • Committer: Felix Schueller
  • Date: 2008-04-22 07:29:16 UTC
  • Revision ID: felix.schueller@gmail.com-20080422072916-rjpf0aa7915ztjxf
FSS: changed printout of thermodyn

Show diffs side-by-side

added added

removed removed

Lines of Context:
thermodyn.f90
130
130
   print*,'influx sum:',influx
131
131
   print*,'and corr. Hw:',influx/(1.2*qs(1)*speed)
132
132
   print*,''
133
 
   print*,'influx USED (formula):',1.2*qs(1)*speed*Hw
 
133
!   print*,'influx USED (formula):',1.2*qs(1)*speed*Hw
 
134
   print*,'influx USED (formula):',1.2*qs0out*speed*Hw
134
135
   print*,'influx incl. decr. rho:',1.2*qs(1)*speed*1./(1./Hw+1./8500.)
135
136
   print*,'Hw_dry',Hw_dry
136
137
   print*,'Influx_dry:',1.2*qs(1)*speed*Hw_dry