Inconsistent use of ew in vertransform*

[adingwell]

I found that ew is not properly initialized in verttransform.f90

These are all the occurrences of ew in each of the verttransform*-files:

verttransform.f90:

real :: ew,dz1,dz2,dz
...
tvold(ixm,jym)=tt2(ixm,jym,1,n)*(1.+0.378*ew*(td2(ixm,jym,1,n))/ &
ps(ixm,jym,1,n))

verttransform_gfs.f90:

real :: ew,pint,tv,tvold,pold,dz1,dz2,dz,ui,vi
...
tvold=tt2(ixm,jym,1,n)*(1.+0.378*ew(td2(ixm,jym,1,n))/ &
ps(ixm,jym,1,n))

verttransform_nests.f90:

real :: ew,dz1,dz2,dz
...
tvold=tt2(ixm,jym,1,n)*(1.+0.378*ew(td2(ixm,jym,1,n))/ &
ps(ixm,jym,1,n))

Notice that in verttransform.f90 ew is used as a variable, not a function. This variable is defined but not initialized.