Staging/UKMO Oct 2021 (#499)

Bugfix/FLX5 Tau Small bugfix to variable INTENT
NOAA-EMC · Nov 5, 2021 · ad51140 · ad51140
1 parent aed0e73
commit ad51140
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/model/src/w3flx5md.F90 b/model/src/w3flx5md.F90
@@ -179,7 +179,7 @@ SUBROUTINE W3FLX5 ( ZWND, U10, U10D, TAUA, TAUADIR, RHOAIR, UST, USTD, Z0, CD )
 ! 2.  Computation ---------------------------------------------------- *
 !
 !
-      UST    = SQRT(TAUA/RHOAIR)
+      UST    = MAX ( 1E-4, SQRT(TAUA/RHOAIR) )
       UNZ    = MAX ( 0.01 , U10 )
       CD     = (UST/UNZ)**2
       USTD   = TAUADIR

diff --git a/model/src/w3ounfmetamd.F90 b/model/src/w3ounfmetamd.F90
@@ -954,9 +954,9 @@ SUBROUTINE READ_META_PAIRS(NDMI, META, ILINE)
 !
 !/ ------------------------------------------------------------------- /
       IMPLICIT NONE
-      INTEGER, INTENT(IN)               :: NDMI
-      TYPE(META_T), INTENT(IN), POINTER :: META
-      INTEGER, INTENT(INOUT)            :: ILINE
+      INTEGER, INTENT(IN)                  :: NDMI
+      TYPE(META_T), INTENT(INOUT), POINTER :: META
+      INTEGER, INTENT(INOUT)               :: ILINE
 !/ ------------------------------------------------------------------- /
 !/ Local parameters
 !

diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90
@@ -51,11 +51,11 @@ MODULE W3SRCEMD
 !/ ------------------------------------------------------------------- /
       SUBROUTINE W3SRCE ( srce_call, IT, JSEA, IX, IY, IMOD,          &
                           SPECOLD, SPEC, VSIO, VDIO, SHAVEIO,         &
-                          ALPHA, WN1, CG1,                            &
-                          D_INP, U10ABS, U10DIR, AS, USTAR, USTDIR,   &
+                          ALPHA, WN1, CG1, D_INP, U10ABS, U10DIR,     &
 #ifdef W3_FLX5
                           TAUA, TAUADIR,                              &
 #endif
+                          AS, USTAR, USTDIR,                          &
                           CX, CY,  ICE, ICEH, ICEF, ICEDMAX,          &
                           REFLEC, REFLED, DELX, DELY, DELA, TRNX,     &
                           TRNY, BERG, FPI, DTDYN, FCUT, DTG, TAUWX,   &