output: 9999.0 => 9999*_ONE_

src/2d/variables_2d.F90

@@ -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_

src/3d/salinity.F90

@@ -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)

src/3d/temperature.F90

@@ -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)