SUBROUTINE SETMD1(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-120, 888;
c                                 CHANGED NAME FROM SETMD1 TO SETMD1
C        PURPOSE
C            ROUTINE IS CURRENTLY SPECIFIC TO CEILING 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 120 AND 888).
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, SIBERIA, AND PART OF CANADA
C                       WILL BE SET TO THE MODEL THAT IS ONE OF THE 
C                       PREDICTORS IN THE EQUATIONS.  (INPUT)
C                       (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 SETMD1        ')
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.887.9)THEN
            P(IX,JY)=888.
         ELSEIF(P(IX,JY).GT.120.)THEN
            P(IX,JY)=888.
C              ANYTING OVER 120 IS UNLIMITED = 888.
         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.887.9)THEN
            P(IX,JY)=888.
         ELSEIF(P(IX,JY).GT.120.)THEN
            P(IX,JY)=888.
C              ANYTING OVER 120 IS UNLIMITED = 888.
         ENDIF
C      
      ENDIF
C
CCCC      IF(P(IX,JY).GT.120.01.AND.P(IX,JY).LT.887.99)THEN
CCCC         WRITE(KFILDO,110)IX,JY,P(IX,JY)
CCCC 110     FORMAT(' IN SETMD1--IX,JY,P(IX,JY)',2I6,F10.3)
CCCC      ENDIF
C
 119  CONTINUE
 120  CONTINUE
C
      RETURN
      END