! Trong Read_Predictand

/bin/bash: Calculating: command not found
cate (X1d(Nys),Mean(Nstn,Nmon,Nlen))  ! (Nst,Nmon,Nlen))
       !Do ist=1,Nstn
       !   Do imon=1,Nmon
       !      X1d(1:Nys)=tmp1(ist,1:Nys,imon); Mean(ist,imon,1)=Ave(X1d,Nys,Miss)
       !      X1d(1:Nys)=tmp2(ist,1:Nys,imon); Mean(ist,imon,2)=Ave(X1d,Nys,Miss)
       !   Enddo
       !   Do iyr=1,Nys
       !      Do imon=1,Nmon
       !         tmp1(ist,iyr,imon)=tmp1(ist,iyr,imon)-Mean(ist,imon,1)
       !         tmp2(ist,iyr,imon)=tmp2(ist,iyr,imon)-Mean(ist,imon,2)
       !      Enddo
       !   Enddo
       !Enddo

       Allocate (X1d(Nyr_BL),Y1d(Nyr_BL),Mean(Nstn,Nmon,2),Std(Nstn,Nmon,2))
       Do ist=1,Nstn
          Do imon=1,Nmon
             i=0
             Do iyr=1,Nys
                if (Int(xyear(iyr))>=Yr1_BL.AND.Int(xyear(iyr))<=Yr2_BL) then
                   i=i+1; X1d(i)=tmp1(ist,iyr,imon); Y1d(i)=tmp2(ist,iyr,imon)
                   Mean(ist,imon,1)=Ave(X1d,Nyr_BL,Miss)  ! R mean
                   Mean(ist,imon,2)=Ave(Y1d,Nyr_BL,Miss)  ! T2m mean
                   Std (ist,imon,1)=Stdev(X1d,Nyr_BL,Miss)
                   Std (ist,imon,2)=Stdev(Y1d,Nyr_BL,Miss)
                endif
             Enddo
          Enddo
       Enddo