Commit 4263d6f3 authored by Knut's avatar Knut

output: do not check initial T and S if read from restart file

parent f001657a
......@@ -123,19 +123,20 @@
LEVEL4 'out-of-bound values result in warnings only'
end if
if (salt_method .ne. 0) then
call check_3d_fields(imin,jmin,imax,jmax,kmin,kmax,az, &
S,min_salt,max_salt,status)
if (status .gt. 0) then
if (salt_check .gt. 0) then
call getm_error("do_salinity()", &
call getm_error("init_salinity()", &
"out-of-bound values encountered")
end if
if (salt_check .lt. 0) then
LEVEL1 'do_salinity(): ',status, &
LEVEL1 'init_salinity(): ',status, &
' out-of-bound values encountered'
end if
end if
end if
end if
......
......@@ -202,18 +202,20 @@ end interface
LEVEL4 'out-of-bound values result in warnings only'
end if
if (temp_method .ne. 0) then
call check_3d_fields(imin,jmin,imax,jmax,kmin,kmax,az, &
T,min_temp,max_temp,status)
if (status .gt. 0) then
if (temp_check .gt. 0) then
call getm_error("do_temperature()", &
call getm_error("init_temperature()", &
"out-of-bound values encountered")
end if
if (temp_check .lt. 0) then
LEVEL1 'do_temperature(): ',status, &
LEVEL1 'init_temperature(): ',status, &
' out-of-bound values encountered'
end if
end if
end if
end if
#ifdef DEBUG
......
......@@ -192,6 +192,8 @@
#include "dynamic_allocations_3d.h"
#endif
kmin = 1
hn = _ZERO_ ; hun = _ZERO_ ; hvn = _ZERO_
uu = _ZERO_ ; vv = _ZERO_ ; ww = _ZERO_
......
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