anchor.diff:    public :: prgvar_get_withdiag
     public :: prgvar_set
     public :: prgvar_get_in
  +  public :: prgvar_get_in_withdiag
     public :: prgvar_set_in
   
     public :: prgvar_get_plane_nopl     ! [add] T.Ohno 110722
  
positive.code: 
      return
    end subroutine prgvar_get_in
  
    !-----------------------------------------------------------------------------
    !>
  
negative.code:     ! <- [add]&[Mod] H.Yashiro 20110819
  
      write(ADM_LOG_FID,*)
      write(ADM_LOG_FID,*) '====== data range check : diagnostic variables ======'
      do nq = 1, DIAG_vmax0
         val_max = GTL_max( DIAG_var   (:,:,:,nq),       &
                            DIAG_var_pl(:,:,:,nq),       &
  