anchor.diff:  real, intent(out), dimension(32)        :: xscale_mean
   real, intent(out), dimension(32)        :: xscale_stnd
   real, intent(out), dimension(32)        :: yscale_absmax
  +!real, intent(out), dimension(30)        :: Tmin_check
  +!real, intent(out), dimension(30)        :: Tmax_check
  +!real, intent(out), dimension(30)        :: qmin_check
  +!real, intent(out), dimension(30)        :: qmax_check
   
   ! This will be the netCDF ID for the file and data variable.
   integer :: ncid
   integer :: r_w1_varid, r_b1_varid, r_w2_varid, r_b2_varid
  +!integer :: Tmin_check_varid, Tmax_check_varid, qmin_check_varid, qmax_check_varid
   integer :: xscale_mean_varid
   integer :: xscale_stnd_varid, yscale_absmax_varid
   !----------- read namelist ---------------------------------------------
  
positive.code: 
  
     subroutine neural_convection_init(r_w1, r_w2, r_b1, r_b2, &
                                 xscale_mean,xscale_stnd, yscale_absmax)
  
  !-----------------------------------------------------------------------
  !
  
negative.code:       xscale_mean = 0.
        xscale_stnd = 0.
        yscale_absmax = 0.
   !     Tmin_check = 0.
   !     Tmax_check = 0.
   !     qmin_check = 0.
   !     qmax_check = 0.
  
  ! Open the file. NF90_NOWRITE tells netCDF we want read-only access
  ! Get the varid of the data variable, based on its name.
  