INTERFACE:
module ncdf_2d_bdyDESCRIPTION:
USES:
use netcdf
use m2d, only: dtm,bdy_times,bdy_data,bdy_data_u,bdy_data_v
use time, only: string_to_julsecs,time_diff,add_secs
use time, only: julianday,secondsofday,juln,secsn
use time, only: write_time_string,timestr
use domain, only: need_2d_bdy_elev,need_2d_bdy_u,need_2d_bdy_v
IMPLICIT NONE
private
public :: init_2d_bdy_ncdf,do_2d_bdy_ncdf
!PRIVATE DATA MEMBERS:
integer :: ncid
integer :: time_id,elev_id=-1,nsets,bdy_len
integer :: u_id=-1, v_id=-1
integer :: start(2),edges(2)
REALTYPE :: offset
REAL_4B :: bdy_old(1500)
REAL_4B :: bdy_new(1500)
REAL_4B :: bdy_old_u(1500)
REAL_4B :: bdy_new_u(1500)
REAL_4B :: bdy_old_v(1500)
REAL_4B :: bdy_new_v(1500)
REVISION HISTORY:
Original author(s): Karsten Bolding & Hans Burchard