load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
load "$NCARG_ROOT/lib/ncarg/nclscripts/wrf/WRFUserARW.ncl"

begin
      WRFINPUT_1 = addfile("wrfinput_d01"+".nc","w")
      WRFINPUT_2 = addfile("wrfinput_d02"+".nc","w")

      fils1 = addfile("wrfout_wrfinput_d01"+".nc","r")
      fils2 = addfile("wrfout_wrfinput_d02"+".nc","r")
     
      SM_WRFOUT_1    = fils1->SMOIS(:,:,:,:)
      SM_WRFOUT_2    = fils2->SMOIS(:,:,:,:)

      ST_WRFOUT_1    = fils1->TSLB(:,:,:,:)
      ST_WRFOUT_2    = fils2->TSLB(:,:,:,:)

      SM_WRFINPUT_1    = WRFINPUT_1->SMOIS(0,:,:,:)
      SM_WRFINPUT_2    = WRFINPUT_2->SMOIS(0,:,:,:)

     DIM1=dimsizes(SM_WRFOUT_1 )
     DIM2=dimsizes(SM_WRFOUT_1 )

    print(DIM1)
    print(DIM2)      


      WRFINPUT_1->SMOIS(0,:,:,:)=SM_WRFOUT_1(0,:,:,:)
      WRFINPUT_2->SMOIS(0,:,:,:)=SM_WRFOUT_2(0,:,:,:)

      WRFINPUT_1->TSLB(0,:,:,:)=ST_WRFOUT_1(0,:,:,:)
      WRFINPUT_2->TSLB(0,:,:,:)=ST_WRFOUT_2(0,:,:,:)


end