IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../forcing-plugin/precipforcing_pluginMod.F 03/09/11 11:03:56 >>>>> 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 "../forcing-plugin/precipforcing_pluginMod.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 |! 20 |!------------------------------------------------------------------------- 21 |!BOP 22 |! 23 |! !MODULE: precipforcing_pluginMod.F90 24 |! 25 |! !DESCRIPTION: 26 |! This module contains the definition of the functions used for 27 |! incorporating a new observed precipitation forcing scheme. 28 |! 29 |! !REVISION HISTORY: 30 |! 12 Dec 03 Sujay Kumar Initial Specification 31 |! 32 |! !INTERFACE: 33 |module precipforcing_pluginMod 34 |!EOP 35 | implicit none 36 | 37 |contains 38 |!BOP 39 |! !ROUTINE: precipforcing_plugin 40 |! 41 |! !DESCRIPTION: 42 |! 43 |! This is a custom-defined plugin point for introducing a new observed 44 |! precipitation forcing scheme. 45 |! The interface mandates that the following routines be implemented 46 |! and registered for each of the forcing scheme. 47 |! 48 |! \begin{description} 49 |! \item[retrieval of forcing data] 50 |! Routines to retrieve forcing data and to interpolate them. 51 |! (to be registered using registerget) 52 |! \item[definition of native domain] 53 |! Routines to define the native domain as a kgds array 54 |! (to be registered using registerdefnatpcp) 55 |! \end{description} 56 |! Multiple forcing schemes can be 57 |! included as well, each distinguished in the function table registry 58 |! by the associated forcing index assigned in the card file. 59 |! 60 |! !INTERFACE: 61 | subroutine precipforcing_plugin 62 |! !USES: 63 | ! use huffdomain_module 64 | ! use persdomain_module 65 | use cmapdomain_module 66 |!EOP 67 | external gethuff 68 | external getpers 69 | external getcmap 70 | 71 | external time_interp_huff 72 | external time_interp_pers 73 | external time_interp_cmap 74 | 75 |!BOC 76 | ! call registerpget(2,gethuff) 77 | ! call registerpget(3,getpers) 78 | call registerpget(4,getcmap) 79 | 80 | ! call registerdefnatpcp(2,defnathuff) 81 | ! call registerdefnatpcp(3,defnatpers) 82 | call registerdefnatpcp(4,defnatcmap) 83 | 84 | ! call registerpti(2,time_interp_huff) 85 | ! call registerpti(3,time_interp_pers) 86 | call registerpti(4,time_interp_cmap) 87 | 88 | end subroutine precipforcing_plugin 89 |end module precipforcing_pluginMod >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES allocate_cmap_ip Use associated, Module Subroutine 0-65.9$ cmapdir Use associated, Character(40), Component of Derived type definition: cmapdrvdec, Offset: 8, Alignment: byte 0-65.9$ cmapdomain_module Use associated, Nonintrinsic Module 0-65.9$ 0-65.9 cmapdrv Use associated, Static, Derived type: cmapdrvdec, Offset: 0, Alignment: quadruple word 0-65.9$ cmapdrv_module Use associated, Nonintrinsic Module 0-65.9$ cmapdrvdec Use associated, Derived type definition 0-65.9$ cmaptime Use associated, Real(8), Component of Derived type definition: cmapdrvdec, Offset: 48, Alignment: double word 0-65.9$ conserv_cmap_interp_input Use associated, Module Subroutine 0-65.9$ defnatcmap Use associated, Module Subroutine 0-65.9$ 0-82.30 getcmap External Subprogram Unknown type 0-69.14$ 0-78.25 gethuff Unknown type 0-67.14$ getpers Unknown type 0-68.14$ gridchange1 Use associated, Logical(4), Component of Derived type definition: cmapdrvdec, Offset: 64, Alignment: full word 0-65.9$ griddesci Use associated, Reference argument, Intent (IN), Real(4) (1:50), Offset: 0, Alignment: full word 0-65.9$ griddesco Use associated, Reference argument, Real(4) (1:50), Offset: 0, Alignment: full word 0-65.9$ griduptime1 Use associated, Real(8), Component of Derived type definition: cmapdrvdec, Offset: 56, Alignment: double word 0-65.9$ mi Use associated, Static, Integer(4), Offset: 72, Alignment: double word 0-65.9$ n Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-65.9$ n11 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ n12 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ n21 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ n22 Allocatable, Use associated, Controlled, Integer(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ ncold Use associated, Integer(4), Component of Derived type definition: cmapdrvdec, Offset: 0, Alignment: full word 0-65.9$ npts Use associated, Reference argument, Integer(4), Offset: 0, Alignment: full word 0-65.9$ nrold Use associated, Integer(4), Component of Derived type definition: cmapdrvdec, Offset: 4, Alignment: full word 0-65.9$ precipforcing_plugin Public, Module Subroutine 0-61.14$ precipforcing_pluginmod Nonintrinsic Module 0-33.8$ registerdefnatpcp External Subroutine 0-82.10 registerpget External Subroutine 0-78.10 registerpti External Subroutine 0-86.10 rlat Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-65.9$ rlon Allocatable, Use associated, Controlled, Real(4) (:), Offset: 0, Alignment: full word 0-65.9$ time_interp_cmap External Subprogram Unknown type 0-73.14$ 0-86.24 time_interp_huff Unknown type 0-71.14$ time_interp_pers Unknown type 0-72.14$ w11 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ w12 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ w21 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ w22 Allocatable, Use associated, Controlled, Real(4) (:, :), Offset: 0, Alignment: full word 0-65.9$ ** precipforcing_pluginmod === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 ../forcing-plugin/precipforcing_pluginMod.F 03/09/11 11:03:56 >>>>> 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....................................... 90 1501-510 Compilation successful for file precipforcing_pluginMod.F. 1501-543 Object file created.