IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../core/makepdsn.F 03/09/11 11:04:15
 
>>>>> 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 "../core/makepdsn.F"
          1 |!-------------------------------------------------------------------------
          2 |! NASA Goddard Space Flight Center Land Information System (LIS) V3.0
          3 |! Released May 2004
          4 |!
          5 |! See SOFTWARE DISTRIBUTION POLICY for software distribution policies
          6 |!
          7 |! The LIS source code and documentation are in the public domain,
          8 |! available without fee for educational, research, non-commercial and
          9 |! commercial purposes.  Users may distribute the binary or source
         10 |! code to third parties provided this statement appears on all copies and
         11 |! that no charge is made for such copies.
         12 |!
         13 |! NASA GSFC MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
         14 |! SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED AS IS WITHOUT EXPRESS OR
         15 |! IMPLIED WARRANTY.  NEITHER NASA GSFC NOR THE US GOVERNMENT SHALL BE
         16 |! LIABLE FOR ANY DAMAGES SUFFERED BY THE USER OF THIS SOFTWARE.
         17 |!
         18 |! See COPYRIGHT.TXT for copyright details.
         19 |!BOP
         20 |!
         21 |! !ROUTINE: makepdsn
         22 |!
         23 |! !DESCRIPTION:
         24 |!  This routine computes the coefficients and terms required for
         25 |!   grib output
         26 |!
         27 |!  !REVISION HISTORY:
         28 |!       3-19-02  Cosgrove; Altered code for use with CLM writing
         29 |!                intervals
         30 |!       5-17-02  Cosgrove; Changed code to use ldas%lsm instead of
         31 |!                ldas%rmos and ldas%rclm so that forcing generation
         32 |!                would still work when rmos set to zero in card
         33 |!       28-5-02  Arsenault; Altered code for use with NOAH writing
         34 |!                intervals
         35 |! !INTERFACE:
         36 |subroutine makepdsn(yesterday, beforeyester, kpds, hour, writeint)
         37 |!EOP
         38 |  implicit none
         39 |
         40 |  character*8 yesterday, beforeyester
         41 |  integer     kpds(25), hour
         42 |  real  :: writeint
         43 |!     set time-related kpds octets
         44 |  if (kpds(16) .ne. 0) then
         45 |     kpds(11) = hour - writeint
         46 |     if (kpds(11).lt.0) then
         47 |        kpds(11)=24-writeint
         48 |        read (beforeyester,'(4(i2))') kpds(21), kpds(8), &
         49 |             kpds(9), kpds(10)
         50 |     else
         51 |        read (yesterday,'(4(i2))') kpds(21), kpds(8), &
         52 |             kpds(9), kpds(10)
         53 |     endif
         54 |  else
         55 |     read (yesterday,'(4(i2))') kpds(21), kpds(8),&
         56 |          kpds(9), kpds(10)
         57 |     kpds(11) = hour
         58 |  end if
         59 |
         60 |  if (kpds(8) .eq. 0) then
         61 |     kpds(8) = 100
         62 |  else
         63 |     kpds(21) = kpds(21) + 1
         64 |  end if
         65 |
         66 |end subroutine makepdsn
 
>>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<<
 
 
 
IDENTIFIER NAME                  CROSS REFERENCE AND ATTRIBUTES
 
beforeyester                     Reference argument, Character(8), Offset: 0, Alignment: byte
                                 0-40.26$  0-36.32  0-48.15
 
hour                             Reference argument, Integer(4), Offset: 0, Alignment: full word
                                 0-41.25$  0-36.52  0-45.17  0-57.17
 
kpds                             Reference argument, Integer(4) (1:25), Offset: 0, Alignment: full word
                                 0-41.15$  0-36.46  0-44.7  0-45.6@  0-46.10  0-47.9@  0-48.39@  0-48.49@  0-49.14@  0-49.23@
                                 0-51.36@  0-51.46@  0-52.14@  0-52.23@  0-55.33@  0-55.43@  0-56.11@  0-56.20@  0-57.6@  0-60.7
                                 0-61.6@  0-63.6@  0-63.17
 
makepdsn                         Subroutine
                                 0-36.12$
 
writeint                         Reference argument, Real(4), Offset: 0, Alignment: full word
                                 0-42.12$  0-36.58  0-45.24  0-47.21
 
yesterday                        Reference argument, Character(8), Offset: 0, Alignment: byte
                                 0-40.15$  0-36.21  0-51.15  0-55.12
 
** makepdsn   === End of Compilation 1 ===
 
>>>>> FILE TABLE SECTION <<<<<
 
 
                                       FILE CREATION        FROM
FILE NO   FILENAME                    DATE       TIME       FILE    LINE
     0    ../core/makepdsn.F          03/09/11   11:04:15
 
 
>>>>> 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.......................................      67
1501-510  Compilation successful for file makepdsn.F.
1501-543  Object file created.