INTERFACE:
subroutine get_river_data_ncdf(loop) IMPLICIT NONEDESCRIPTION:
INPUT PARAMETERS:
integer, intent(in) :: loopREVISION 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