anchor.diff:             .OR. item_save(n) == 'sl_v10m'            &
              .OR. item_save(n) == 'sl_ucos10m'         &
              .OR. item_save(n) == 'sl_vcos10m'         ) out_10m_uv    = .true.
  +
  +       if(      item_save(n) == 'sl_u850'            &
  +           .OR. item_save(n) == 'sl_v850'            &
  +           .OR. item_save(n) == 'sl_w850'            &
  +           .OR. item_save(n) == 'sl_t850'            ) out_850hPa    = .true.
   
          if(      item_save(n) == 'sl_slh'             ) out_slh       = .true.
          if(      item_save(n) == 'sl_vap_atm'         ) out_vap_atm   = .true.
  
positive.code:     return
    end subroutine sv_pre_sfc
  
  end module mod_history_vars
  !-------------------------------------------------------------------------------
  
negative.code:                       / ( CNST_RAIR * ( t2m(:,K0,l) + 0.5D0 * 0.005D0 * ( GRD_zs(:,K0,l,GRD_ZSFC) + 2.D0 ) ) ) )
  
            call history_in( 'sl_slp', slp(:,:,l) )
         enddo
      endif
  
      if (out_850hPa) then   ! [add] 20130705 R.Yoshida
         do l = 1, ADM_lall
            call sv_plev_uvwt( ADM_gall,              & ! [IN]
                               pre    (:,:,l),        & ! [IN]
                               u      (:,:,l),        & ! [IN]
                               v      (:,:,l),        & ! [IN]
                               w      (:,:,l),        & ! [IN]
                               tem    (:,:,l),        & ! [IN]
                               85000.d0,              & ! [IN]
                               u_850  (:,K0,l),       & ! [OUT]
                               v_850  (:,K0,l),       & ! [OUT]
                               w_850  (:,K0,l),       & ! [OUT]
                               t_850  (:,K0,l)        ) ! [OUT]
  
            call history_in( 'sl_u850', u_850(:,:,l) )
            call history_in( 'sl_v850', v_850(:,:,l) )
            call history_in( 'sl_w850', w_850(:,:,l) )
            call history_in( 'sl_t850', t_850(:,:,l) )
         enddo
      endif
  
  