44 character(len=100),
intent(in) :: target_topo_dat_name
54 integer(i2b),
dimension(0:JMAX,0:IMAX) :: maske_conv
55 real(sp),
dimension(0:JMAX,0:IMAX) :: zs_conv, zb_conv, zl_conv, h_conv
57 integer(i4b) :: ncid, ncv
61 character(len=64),
parameter :: thisroutine =
'read_target_topo_nc'
66 call
check( nf90_open(target_topo_dat_path//
'/'//trim(target_topo_dat_name), &
67 nf90_nowrite, ncid), thisroutine )
69 call
check( nf90_inq_varid(ncid,
'maske', ncv), thisroutine )
70 call
check( nf90_get_var(ncid, ncv, maske_conv), thisroutine )
72 call
check( nf90_inq_varid(ncid,
'zs', ncv), thisroutine )
73 call
check( nf90_get_var(ncid, ncv, zs_conv), thisroutine )
75 call
check( nf90_inq_varid(ncid,
'zb', ncv), thisroutine )
76 call
check( nf90_get_var(ncid, ncv, zb_conv), thisroutine )
78 call
check( nf90_inq_varid(ncid,
'zl', ncv), thisroutine )
79 call
check( nf90_get_var(ncid, ncv, zl_conv), thisroutine )
81 call
check( nf90_inq_varid(ncid,
'H', ncv), thisroutine )
82 call
check( nf90_get_var(ncid, ncv, h_conv), thisroutine )
84 call
check( nf90_close(ncid), thisroutine )
90 maske_target(j,i) = maske_conv(j,i)
91 zs_target(j,i) =
real(zs_conv(j,i),dp)
92 zb_target(j,i) =
real(zb_conv(j,i),dp)
93 zl_target(j,i) =
real(zl_conv(j,i),dp)
94 h_target(j,i) =
real(H_conv(j,i), dp)