IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../lsms/noah.20071219/mapvegc.F 03/09/11 11:04:21
 
>>>>> OPTIONS SECTION <<<<<
***   Options In Effect   ***
  
         ==  On / Off Options  ==
         CR              DBG             ESCAPE          FULLPATH
         I4              INLGLUE         NOLIBESSL       NOLIBPOSIX
         OBJECT          SOURCE          STRICT          SWAPOMP
         THREADED        UNWIND          ZEROSIZE
  
         ==  Options Of Integer Type ==
         ALIAS_SIZE(65536)     MAXMEM(-1)            OPTIMIZE(2)
         SPILLSIZE(2000)       STACKTEMP(0)
  
         ==  Options Of Character Type  ==
         64(LARGETYPE)         ALIAS(STD,NOINTPTR)   ALIGN(BINDC(POWER),STRUCT(NATURAL))
         ARCH(PWR6)            ATTR(FULL)            AUTODBL(NONE)
         DESCRIPTOR(V1)        DIRECTIVE(IBM*,IBMT)  ENUM()
         FLAG(I,I)             FLOAT(RNDSNGL,MAF,FOLD,RNGCHK,SINGLE)
         FREE(F90)             HALT(S)               IEEE(NEAR)
         INTSIZE(4)            LANGLVL(EXTENDED)     REALSIZE(4)
         NOSAVE()              TUNE(PWR6)            UNROLL(AUTO)
         XREF(FULL)            XLF2003(NOPOLYMORPHIC,NOBOZLITARGS,NOSTOPEXCEPT,NOVOLATILE,NOAUTOREALLOC,OLDNANINF)
         XLF77(LEADZERO,BLANKPAD)
         XLF90(NOSIGNEDZERO,NOAUTODEALLOC,OLDPAD)
  
>>>>> SOURCE SECTION <<<<<
          1 |#line 1 "../lsms/noah.20071219/mapvegc.F"
          1 |!-------------------------------------------------------------------------
          2 |!     NASA GSFC Land Information Systems LIS 2.3                         !
          3 |!-------------------------------------------------------------------------
          4 |!BOP
          5 |!
          6 |! !ROUTINE: mapvegc.F90
          7 |!
          8 |! !DESCRIPTION:
          9 |!  This subroutine converts the UMD classes to the SIB classes
         10 |!  used by NOAH LSM (v 2.5).
         11 |!  (Originally from Dag Lohmann at NCEP)
         12 |!
         13 |! !REVISION HISTORY:
         14 |!
         15 |!   28 Apr 2002, K Arsenault:  Added NOAH LSM to LDAS.
         16 |!
         17 |! !INTERFACE:
         18 |subroutine mapvegc(vegt)
         19 |!EOP
         20 |  implicit none
         21 |
         22 |!  Local Variables
         23 |
         24 |  integer :: vegt, sibveg
         25 |!BOC
         26 |!---------------------------------------------------------------
         27 |!  Convert UMD Classes to SIB Classes.
         28 |!---------------------------------------------------------------
         29 |  if (vegt .eq. 1)  sibveg = 4
         30 |  if (vegt .eq. 2)  sibveg = 1
         31 |  if (vegt .eq. 3)  sibveg = 5
         32 |  if (vegt .eq. 4)  sibveg = 2
         33 |  if (vegt .eq. 5)  sibveg = 3
         34 |  if (vegt .eq. 6)  sibveg = 3
         35 |  if (vegt .eq. 7)  sibveg = 6
         36 |  if (vegt .eq. 8)  sibveg = 8
         37 |  if (vegt .eq. 9)  sibveg = 9
         38 |  if (vegt .eq. 10) sibveg = 7
         39 |  if (vegt .eq. 11) sibveg = 12
         40 |  if (vegt .eq. 12) sibveg = 11
         41 |  if (vegt .eq. 13) sibveg = 11
         42 |  if (vegt .gt. 13) then
         43 |     sibveg = 7
         44 |  end if
         45 |!J  vegt=sibveg !J NCEP VTYPE IS ALREADY SIB
         46 |  return
         47 |!EOC
         48 |end subroutine mapvegc
 
>>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<<
 
 
 
IDENTIFIER NAME                  CROSS REFERENCE AND ATTRIBUTES
 
mapvegc                          Subroutine
                                 0-18.12$
 
sibveg                           Automatic, Integer(4), Offset: 0, Alignment: full word
                                 0-24.20$  0-29.21@  0-30.21@  0-31.21@  0-32.21@  0-33.21@  0-34.21@  0-35.21@  0-36.21@  0-37.21@
                                 0-38.21@  0-39.21@  0-40.21@  0-41.21@  0-43.6@
 
vegt                             Reference argument, Integer(4), Offset: 0, Alignment: full word
                                 0-24.14$  0-18.20  0-29.7  0-30.7  0-31.7  0-32.7  0-33.7  0-34.7  0-35.7  0-36.7  0-37.7  0-38.7
                                 0-39.7  0-40.7  0-41.7  0-42.7
 
** mapvegc   === End of Compilation 1 ===
 
>>>>> FILE TABLE SECTION <<<<<
 
 
                                       FILE CREATION        FROM
FILE NO   FILENAME                    DATE       TIME       FILE    LINE
     0    ../lsms/noah.20071219/mapvegc.F
                                      03/09/11   11:04:21
 
 
>>>>> COMPILATION EPILOGUE SECTION <<<<<
 
 
FORTRAN Summary of Diagnosed Conditions
 
TOTAL   UNRECOVERABLE  SEVERE       ERROR     WARNING    INFORMATIONAL
               (U)       (S)         (E)        (W)          (I)
    0           0         0           0          0            0
 
 
    Source records read.......................................      49
1501-510  Compilation successful for file mapvegc.F.
1501-543  Object file created.