subroutine init_parm(ipdtn,ipdt,igdtn,igdt,idisc,iids) ! SUBPROGRAM: init_parm ! ! PRGMMR: Bo Cui DATE: 2013-12-01 ! ! ABSTRACT: This subroutine returns the Grid Definition, and ! Product Definition for a given data field. ! ! PROGRAM HISTORY LOG: ! 2013-12-01 Bo Cui ! ! USAGE: call init_parm(ipdtn,ipdt,igdtn,igdt) ! ! INPUT: ipdtn,ipdt,igdtn,igdt ! OUTPUT: jskp,jdisc,jids,jpdtn,jpdt,jgdtn,jgdt ! ! REMARKS: None ! ! ATTRIBUTES: ! LANGUAGE: Fortran 90 ! MACHINE: IBM SP ! !$$$ implicit none integer,dimension(200) :: jids,jpdt,jgdt,iids,ipdt,igdt integer jskp,jdisc,jpdtn,jgdtn,idisc,ipdtn,igdtn common /param/jskp,jdisc,jids,jpdtn,jpdt,jgdtn,jgdt jskp=0 jdisc=-1 jpdtn=ipdtn jgdtn=igdtn jids=-9999 jpdt=-9999 jgdt=-9999 ! input product defining values jids=iids jpdt=ipdt jgdt=igdt !jpdt(1)=ipdt(1) !jpdt(2)=ipdt(2) !jpdt(10)=ipdt(10) !jpdt(11)=ipdt(11) !jpdt(12)=ipdt(12) return end