SUBROUTINE SETMD2(KFILDO,NAREA,JP2,P,
     1                  FD2,SEALND,NX,NY,IER)
C
C        JUNE      2019   GLAHN   MDL   LAMP
C        JULY      2019   BLAHN   MADE RAP VALUES IN RANGE 0-10
C
C        PURPOSE
C            ROUTINE IS CURRENTLY SPECIFIC TO VISIBILITY FOR ALASKA.
C            IT SETS WATER AND SIBERIA TO THE MODEL FIELD THAT IS ONE
C            OF THE PREDICTORS IN THE EQUATIONS.  MAKES THE VALUES
C            CONSISTENT WITH NORTH AMERICAN LAND (0 TO 10).
C
C        DATA SET USE
C            KFILDO   - UNIT NUMBER FOR OUTPUT (PRINT) FILE.  (OUTPUT)
C               NAREA = THE AREA OVER WHICH THE ANALYSIS IS MADE:
C                       1 = CONUS,
C                       2 = ALASKA,
C                       3 = HAWAII,
C                       4 = PUERTO.
C                       (INPUT)
C                 JP2 = 1 INDICATES WATER AND SIBERIA WILL BE SET TO
C                       THE MODEL THAT IS ONE OF THE PREDICTORS IN
C                       THE EQUATIONS.  (INPUT)  (NOT ACTUALLY USED)
C            P(IX,JY) = THE SPECIFIC VALUE FORECASTS TO MODIFY (IX=1,NX)
C                       (JY=1,NY).  (INPUT/OUTPUT)
C          FD2(IX,JY) = THE REPLACEMENT GRID.(IX=1,NX) (JY=1,NY).
C                       (INPUT)
C       SEALND(IX,JY) = THE LAND/SEA MASK (IX=1,NX) (JY=1,NY).
C                       0 = OCEAN WATER GRIDPOINTS;
C                       3 = INLAND WATER GRIDPOINTS.
C                       9 = LAND GRIDPOINTS.
C                       (INPUT)
C                  NX = THE X-EXTENT OF THE GRID.  (INPUT)
C                  NY = THE Y-EXTENT OF THE GRID.  (INPUT)
C                 IER = ERROR RETURN.
C                       0 = GOOD RETURN.
C                       (OUTPUT)
C        1         2         3         4         5         6         7 X
C
C        NONSYSTEM SUBROUTINES CALLED
C            NONE
C
      DIMENSION P(NX,NY),FD2(NX,NY),SEALND(NX,NY)
C
      IER=0
      CALL TIMPR(KFILDO,KFILDO,'START SETMD2        ')
C
      DO 120 JY=1,NY
      DO 119 IX=1,NX
C
      IF(SEALND(IX,JY).LT.3.5)THEN
         P(IX,JY)=FD2(IX,JY)
C
         IF(P(IX,JY).LT.0.)THEN
            P(IX,JY)=0.
         ELSEIF(P(IX,JY).GE.10.)THEN
            P(IX,JY)=10.
C              ANYTHING OVER 10 IS UNLIMITED = 10.
         ENDIF
C      
      ELSEIF(IX.LE.610.AND.JY.GE.756)THEN
C           THIS IS SIBERIA.  AGREES WITH U155 BOGUSG.
         P(IX,JY)=FD2(IX,JY)
C
         IF(P(IX,JY).LT.0.)THEN
            P(IX,JY)=0.
         ELSEIF(P(IX,JY).GE.10.)THEN
            P(IX,JY)=10.
C              ANYTHING OVER 10 IS UNLIMITED = 10.
         ENDIF
C      
      ENDIF
C
 119  CONTINUE
 120  CONTINUE
C
      RETURN
      END