Merge remote-tracking branch 'EMC/dev/ufs-weather-model' into bug/initsavepoints

Author: JessicaMeixner-NOAA

model/src/w3sdb1md.F90

@@ -187,7 +187,7 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
     USE W3ODATMD, ONLY: NDST
     USE W3GDATMD, ONLY: SIG
     USE W3ODATMD, only : IAPROC
-    USE W3PARALL, only : THR 
+    USE W3PARALL, only : THR
 #ifdef W3_S
     USE W3SERVMD, ONLY: STRACE
 #endif
@@ -219,8 +219,8 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
     INTEGER, SAVE           :: IENT = 0
 #endif
     REAL*8                    :: HM, BB, ARG, Q0, QB, B, CBJ, HRMS, EB(NK)
-    REAL*8                    :: AUX, CBJ2, RATIO, S0, S1, BR1, BR2, FAK
-    REAL                      :: ETOT, FMEAN2
+    REAL*8                    :: FAK
+    REAL*8                    :: ETOT, FMEAN2
 #ifdef W3_T0
     REAL                    :: DOUT(NK,NTH)
 #endif
@@ -323,7 +323,7 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
       ELSE
         CBJ = 0.d0
       ENDIF
-      D = - CBJ
+      D = real(- CBJ, 4)
       S = D * A
     ELSE IF (IWB == 2) THEN
       IF (ETOT .GT. THR) THEN
@@ -333,7 +333,7 @@ SUBROUTINE W3SDB1 (IX, A, DEPTH, EMEAN, FMEAN, WNMEAN, CG, LBREAK, S, D )
       ELSE
         CBJ  = 0.
       ENDIF
-      D = - CBJ
+      D = real(- CBJ, 4)
       S = D * A
     ENDIF