C NCLFORTSTART
subroutine cal_fr(nlat,nlon,ntclat,ntclon,grLAT,grLON,tclat,tclon,raii,A,msg_val)
implicit none
integer nlat
integer nlon
integer ntclat
integer ntclon
real grLAT
real grLON
real tclat
real tclon
real raii
real A(nlon,nlat)
real msg_val
C NCLEND