init_rivers

INTERFACE:

    subroutine init_rivers

DESCRIPTION:

First of all, the namelist rivers is read from getm.F90 and a number of vectors with the length of nriver (number of rivers) is allocated. Then, by looping over all rivers, the ascii file river_info is read, and checked for consistency. The number of used rivers rriver is calculated and it is checked whether they are on land (which gives a warning) or not. When a river name occurs more than once in river_info, it means that its runoff is split among several grid boxed (for wide river mouths). USES:

    IMPLICIT NONE

LOCAL VARIABLES:

    integer                   :: i,j,n,nn,ni,rc,m,iriver,jriver,numcells
    logical                   :: outside,outsidehalo
    REALTYPE                  :: bathy, area, total_weight
    character(len=255)        :: line,xxx
    NAMELIST /rivers/ &
             river_method,river_info,river_format,river_data,river_ramp, &
             river_factor,use_river_salt,use_river_temp,river_outflow_properties_follow_source_cell