get_river_data_ncdf - .

INTERFACE:

    subroutine get_river_data_ncdf(loop)
    IMPLICIT NONE
DESCRIPTION:

INPUT PARAMETERS:

    integer, intent(in)                 :: loop
REVISION HISTORY:
    See module for log.
LOCAL VARIABLES:
    integer                   :: i,j,n,nn,ni,m,indx,err
    REALTYPE                  :: t
    REAL_4B                   :: x(1)
    logical, save             :: first=.true.
    integer, save             :: save_n=1,last_indx=-1
    REALTYPE, save            :: t_1,t_2,loop0