Table 6. FORTRAN Code for Determining Upper Level Cloud Amounts
     ________________________________________________________________________________
    
     *jum,juh are middle and high cloud non-overlapped amounts in octa (9=missing).
     *AM,AH are "actual" amounts with possible use of random overlap.
     *JAM,JAH are integer values of AM,AH to 2 decimal places for ECR (900=missing).
     *  Other variables are integers. Cloud variables are defined in Table 1.
           jum= 9                                                              1
           juh= 9                                                              2
           JAM=900                                                             3
           JAH=900                                                             4
           if (CL.ge.0 .and. Nh.ge.0)  then                                    5
     c_MID-------------------------------------------------------------------
           IF (CM.GT.0) THEN                                                   6
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . present
             IF (CL.EQ.0 .OR. CH.LE.0) THEN                                    7
               IF (CL.EQ.0) THEN                                               8
                 jum= Nh                                                       9
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . computable
                 JAM= Nh*100                                                  10
               ELSE                                                           11
                 jum=(N-Nh)                                                   12
                 IF (CM.LE.12 .AND. CM.GE.10) THEN                            13
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . Ns computable
                   JAM= N*100                                                 14
                 ELSE                                                         15
                   IF (Nh.LT.7) THEN                                          16
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . computable,ROL
                     AM= 8.*(N-Nh) / (8.-Nh)                                  17
                     JAM= AM*100. +.5                                         18
                   END IF                                                     19
                 END IF                                                       20
               END IF                                                         21
             ELSE                                                             22
               IF (Nh.EQ.N) jum=0                                             23
             END IF                                                           24
           ELSE IF (CM.EQ.0) THEN                                             25
             JAM=0                                                            26
             jum=0                                                            27
           ELSE                                                               28
             IF (Nh.EQ.N .AND. CL.GT.0) jum=0                                 29
           END IF                                                             30
     c_HI--------------------------------------------------------------------
           IF (CH.GT.0) THEN                                                  31
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . present
             IF (CL.EQ.0 .AND. CM.EQ.0) THEN                                  32
               juh= N                                                         33
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . computable
               JAH= N*100                                                     34
             ELSE IF (CL.EQ.0 .OR. CM.EQ.0) THEN                              35
               juh= (N-Nh)                                                    36
               IF (Nh.LT.7) THEN                                              37
     c. . . . . . . . . . . . . . . . . . . . . . . . . . . . computable,ROL
                 AH= 8.*(N-Nh) / (8.-Nh)                                      38
                 JAH= AH*100. +.5                                             39
               END IF                                                         40
             ELSE                                                             41
               IF (Nh.EQ.N) juh=0                                             42
             END IF                                                           43
           ELSE IF (CH.EQ.0) THEN                                             44
             JAH=0                                                            45
             juh=0                                                            46
           ELSE                                                               47
             IF (Nh.EQ.N .OR. (CL.GT.0 .AND. CM.GT.0)) juh=0                  48
           END IF                                                             49
           end if                                                             50
      ____________________________________________________________________________