!----------------------------------------------------------------------- ! Include file 'arpssfc.inc' for ARPS arpssfc.f program !----------------------------------------------------------------------- ! ! AUTHOR: Yuhe Liu ! ! 1/26/94 ! ! MODIFICATIONS: ! ! 04/15/98 (Dan Weber) ! Added gvnx,gvny, and gvfrcopt for use with the NESDIS green ! vegetation data set. ! ! 2000/08/23 (Gene Bassett) ! Moved the data set parameter statements to namelist input file. ! ! 2001/07/26 (Gene Bassett) ! Eliminated variables colst,rowst,colvt,rowvt,colnv,&rownv. ! !----------------------------------------------------------------------- ! INTEGER, PARAMETER :: gvnx = 2500 ! Number of NESDIS green veg. data points (e-w) INTEGER, PARAMETER :: gvny = 904 ! Number of NESDIS green veg. data points (n-s) INTEGER, PARAMETER :: nsoiltyp=13 ! number of soil types INTEGER, PARAMETER :: nvegtyp =14 ! number of vegatation types ! !----------------------------------------------------------------------- ! ! Data flags read in from input namelist &outflag ! ! stypout: 1/0 - yes/no, Output styp ! vtypout: 1/0 - yes/no, Output vtyp ! laiout: 1/0 - yes/no, Output lai ! rfnsout: 1/0 - yes/no, Output roufns ! !----------------------------------------------------------------------- ! INTEGER :: stypout,vtypout,laiout,rfnsout,vegout,ndviout COMMON /comflag/ stypout,vtypout,laiout,rfnsout,vegout,ndviout