Commit 5c994618 authored by Knut's avatar Knut

output: 9999.0 => 9999*_ONE_

parent 4263d6f3
......@@ -114,7 +114,7 @@
break_stat = 0
#endif
z = -9999.0; zo =_ZERO_
z = -9999*_ONE_; zo =_ZERO_
zub=_ZERO_ ; zub0=_ZERO_
zvb=_ZERO_ ; zvb0=_ZERO_
......
......@@ -201,8 +201,8 @@
stop 'init_salinity'
end select
S(:,:,0) = -9999.0
forall(i=imin:imax,j=jmin:jmax, az(i,j).eq.0) S(i,j,:) = -9999.0
S(:,:,0) = -9999*_ONE_
forall(i=imin:imax,j=jmin:jmax, az(i,j).eq.0) S(i,j,:) = -9999*_ONE_
call update_3d_halo(S,S,az,imin,jmin,imax,jmax,kmax,D_TAG)
call wait_halo(D_TAG)
......
......@@ -279,8 +279,8 @@ end interface
stop 'init_temperature'
end select
T(:,:,0) = -9999.0
forall(i=imin:imax,j=jmin:jmax, az(i,j).eq.0) T(i,j,:) = -9999.0
T(:,:,0) = -9999*_ONE_
forall(i=imin:imax,j=jmin:jmax, az(i,j).eq.0) T(i,j,:) = -9999*_ONE_
call update_3d_halo(T,T,az,imin,jmin,imax,jmax,kmax,D_TAG)
call wait_halo(D_TAG)
......
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