fix: vtec extrapolation calculation

- result of 4 corners was not been stored correctly, overwritting corner11
- domain of ZG was incorrect
- units of ZG for need to be m in the vtec calculation

fixes #851

Author: hkershaw-brown

models/tiegcm/model_mod.f90

@@ -7,7 +7,6 @@
 !  - Nick Dietrich fix_mmr. When do to this?
 !  - model_time
 !  - get_state_meta_data 2D variables
-!  - test vtec
 
 module model_mod
 
@@ -379,9 +378,9 @@ subroutine model_interpolate(state_handle, ens_size, location, iqty, obs_val, is
 if ( iqty == QTY_VERTICAL_TEC ) then ! extrapolate vtec
 
    call extrapolate_vtec(state_handle, ens_size, lon_below, lat_below, val11)
-   call extrapolate_vtec(state_handle, ens_size, lon_below, lat_above, val11)
-   call extrapolate_vtec(state_handle, ens_size, lon_above, lat_below, val11)
-   call extrapolate_vtec(state_handle, ens_size, lon_above, lat_above, val11)
+   call extrapolate_vtec(state_handle, ens_size, lon_below, lat_above, val12)
+   call extrapolate_vtec(state_handle, ens_size, lon_above, lat_below, val21)
+   call extrapolate_vtec(state_handle, ens_size, lon_above, lat_above, val22)
    obs_val(:) = interpolate(ens_size, lon_fract, lat_fract, val11, val12, val21, val22)
    istatus(:) = 0
 
@@ -1116,7 +1115,7 @@ subroutine extrapolate_vtec(state_handle, ens_size, lon_index, lat_index, vTEC)
 enddo
 
 ! TI (midpoints)
-var_id = get_varid_from_varname(domain_id(RESTART_DOM), 'TI')
+var_id = get_varid_from_varname(domain_id(SECONDARY_DOM), 'TI')
 do i = 1, nlev
    idx = get_dart_vector_index(lon_index,lat_index, i, &
                           domain_id(RESTART_DOM), var_id)
@@ -1135,6 +1134,7 @@ subroutine extrapolate_vtec(state_handle, ens_size, lon_index, lat_index, vTEC)
 
 earth_radiusm = earth_radius * 1000.0_r8 ! Convert earth_radius in km to m
 NE            = NE * 1.0e+6_r8           ! Convert NE in #/cm^3 to #/m^3
+ZG            = ZG * 1.0e-2_r8           ! Convert ZG in cm to m
 
 ! Gravity at the top layer
 GRAVITYtop(:) = gravity * (earth_radiusm / (earth_radiusm + ZG(nilev,:))) ** 2