In[]:=
monsoonTPW[fileurl_]:=Module[{tpwData,minlat,maxlat,minlon,maxlon,datatime,azMap},​​tpwData=Import[fileurl,"Data"];​​minlat=Flatten[Position[tpwData["/lat"],Nearest[tpwData["/lat"],20][[1]]]][[1]];​​maxlat=Flatten[Position[tpwData["/lat"],Nearest[tpwData["/lat"],40][[1]]]][[1]];​​minlon=Flatten[Position[tpwData["/lon"],Nearest[tpwData["/lon"],-120][[1]]]][[1]];​​maxlon=Flatten[Position[tpwData["/lon"],Nearest[tpwData["/lon"],-90][[1]]]][[1]];​​datatime=TimeZoneConvert[DateObject[ToExpression/@StringSplit[StringInsert[StringTake[StringCases[fileurl,"_e"~~x__~~"_c"->x][[1]],12]," ",{5,7,9,11}]],TimeZone->0],$TimeZone];​​azMap=Flatten[Table[{tpwData["/lat"][[i]],tpwData["/lon"][[j]]}->tpwData["/TPW"][[i,j]],{i,minlat,maxlat},{j,minlon,maxlon}],1];​​GeoDensityPlot[azMap,GeoRange->{{tpwData["/lat"][[minlat]],tpwData["/lat"][[maxlat]]},{tpwData["/lon"][[minlon]],tpwData["/lon"][[maxlon]]}},PlotRangeClipping->True,OpacityFunction0.5,ColorFunctionScaling->False,ColorFunction->Function[{x},ColorData["Rainbow"][x/75]],PlotLegendsBarLegend[{Function[{x},ColorData["Rainbow"][x/75]],{0,75}}],GeoBackground"VectorMonochrome",PlotLabel->"Total Precipitable Water "<>DateString[datatime]]​​];
Currently the last hyperlink in the folder is to the latest global total precipitable water file.
In[]:=
lnk=Import["https://satepsanone.nesdis.noaa.gov/pub/product/blended-hydro/netcdf/","Hyperlinks"][[-1]];​​monsoonTPW[lnk]
Out[]=