INTERFACE:
module ncdf_riverDESCRIPTION:
USES:
use netcdf use time, only: string_to_julsecs,time_diff,add_secs use time, only: julianday,secondsofday,juln,secsn,timestep use time, only: write_time_string,timestr use rivers, only: nriver,river_data,river_name,river_flow,river_factor use rivers, only: ok,rriver,real_river_name,river_split use rivers, only: temp_missing,salt_missing use rivers, only: use_river_temp,use_river_salt,river_temp,river_salt #ifdef GETM_BIO use bio, only: bio_calc use bio_var, only: numc,var_names use rivers, only: river_bio #endif #ifdef _FABM_ use getm_fabm, only: model,fabm_calc use rivers, only: river_fabm #endif IMPLICIT NONE privatePUBLIC MEMBER FUNCTIONS:
public init_river_input_ncdf,get_river_data_ncdf !PRIVATE DATA MEMBERS: REALTYPE :: offset integer :: ncid,ndims,dims(2),unlimdimid,textr integer :: start(1),edges(1) integer :: timedim,time_id integer, allocatable :: r_ids(:) integer, allocatable :: salt_id(:) integer, allocatable :: temp_id(:) integer, allocatable :: r_salt(:) integer, allocatable :: r_temp(:) REAL_4B, allocatable :: river_times(:) #ifdef GETM_BIO integer, allocatable :: bio_id(:,:) #endif #ifdef _FABM_ integer, allocatable :: fabm_id(:,:) #endifREVISION HISTORY:
Original author(s): Karsten Bolding & Hans Burchard