Commit defcee7a authored by Knut's avatar Knut

bdy_3d: REAL_4B => REALTYPE

parent 8d3773a3
......@@ -44,10 +44,10 @@
logical :: from_3d_fields
logical :: bdy3d_bio=.false.
REALTYPE :: offset
REAL_4B, allocatable :: bdy_times(:),wrk(:)
REAL_4B, allocatable, dimension(:) :: zlev
REALTYPE, allocatable :: bdy_times(:),wrk(:)
REALTYPE, allocatable, dimension(:) :: zlev
REALTYPE, allocatable, dimension(:,:,:) :: bio_old, bio_new
REAL_4B, allocatable, dimension(:,:,:) :: bio_wrk
REALTYPE, allocatable, dimension(:,:,:) :: bio_wrk
REALTYPE, allocatable, dimension(:,:,:,:) :: bio_bdy_clim
logical , allocatable, dimension(:) :: have_bio_missing
REALTYPE, allocatable, dimension(:) :: bio_missing
......@@ -796,7 +796,7 @@
! !INPUT PARAMETERS:
integer, intent(in) :: nlev
REAL_4B, intent(in) :: zlev(nlev),wrk(nlev)
REALTYPE, intent(in) :: zlev(nlev),wrk(nlev)
REALTYPE, intent(in) :: depth
integer, intent(in) :: kmax
REALTYPE, intent(in) :: zm(0:kmax)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment