Changes in src/ew.f90 [92fab65:467460a] in flexpart.git


Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/ew.f90

    r92fab65 r467460a  
    1414
    1515  ew=0.
    16   if(x.le.0.) stop 'sorry: t not in [k]'
     16  if(x.le.0.) then
     17    write(*,*) 'in ew.f90: x=', x
     18    stop 'sorry: t not in [k]'
     19  end if
     20
    1721  y=373.16/x
    1822  a=-7.90298*(y-1.)
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG