anchor.diff:        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.
  
positive.code:       call check( nf90_inq_varid(ncid,"yscale_absmax",     yscale_absmax_varid))
        call check( nf90_get_var(  ncid, yscale_absmax_varid,yscale_absmax      ))
      
        ! Close the file
        call check( nf90_close(ncid))
  
  
negative.code: 
  
     subroutine neural_convection_init(r_w1, r_w2, r_b1, r_b2, &
                                 xscale_mean,xscale_stnd, yscale_absmax, &
                               Tmin_check, Tmax_check, qmin_check, qmax_check)
  
  !-----------------------------------------------------------------------
  !
  