anchor.diff:              var_to_interpolate = this%variables_to_force%next()
   
               ! interpolate
  -            call interpolate_variable(var_to_interpolate, forcing)
  +            call interpolate_variable(var_to_interpolate, forcing, &
  +                                      vert_interp= (trim(var_to_interpolate%forcing_var) /= trim(this%pressure%forcing_var)) )
   
           enddo
  +
  +        nz = size(this%pressure%data_3d,2)
  +        call update_pressure(this%pressure%data_3d, forcing%geo%z(:,:nz,:), this%geo%z)
   
       end subroutine
   
  
positive.code:             ! Interpolate to the Mass grid
              if ((size(var%data_3d,1) == size(forcing%geo%geolut%x,2)).and.(size(var%data_3d,3) == size(forcing%geo%geolut%x,3))) then
                  call geo_interp(temp_3d, input_data%data_3d, forcing%geo%geolut)
                  call vinterp(var%data_3d, temp_3d, forcing%geo%vert_lut)
              ! Interpolate to the u staggared grid
              else if ((size(var%data_3d,1) == size(forcing%geo_u%geolut%x,2)).and.(size(var%data_3d,3) == size(forcing%geo_u%geolut%x,3))) then
                  call geo_interp(temp_3d, input_data%data_3d, forcing%geo_u%geolut)
                  call vinterp(var%data_3d, temp_3d, forcing%geo_u%vert_lut)
              ! Interpolate to the v staggared grid
              else if ((size(var%data_3d,1) == size(forcing%geo_v%geolut%x,2)).and.(size(var%data_3d,3) == size(forcing%geo_v%geolut%x,3))) then
                  call geo_interp(temp_3d, input_data%data_3d, forcing%geo_v%geolut)
                  call vinterp(var%data_3d, temp_3d, forcing%geo_v%vert_lut)
              endif
  
          else
  
negative.code:         if (0<opt%vars_to_allocate( kVARS%snowfall) )      allocate(this%snowfall_bucket          (ims:ime, jms:jme),          source=0)
          if (0<opt%vars_to_allocate( kVARS%land_cover) )    allocate(this%land_cover_type          (ims:ime, jms:jme),          source=0 )
  
          ! call setup_forcing_variable
  
      end subroutine
  