!$Author: joelevin $ !$Date: 2011-03-24 11:33:26 -0500 :: Thu, 24 Mar 2011 $ !$Revision: 11724 $ !$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/file.inc $ MODULE file_def IMPLICIT NONE integer, parameter :: lui1=141 integer, parameter :: lui2=102 integer, parameter :: lui3=103 integer, parameter :: lui4=104 integer, parameter :: lui5=105 integer, parameter :: luicli=146 integer, parameter :: luiwin=147 integer, parameter :: luiwsd=148 !Logical Unit number for "mandate.man" :: MCREW management file integer, parameter :: luimandate=149 integer, parameter :: luo1=111 integer, parameter :: luo2=112 integer, parameter :: luo3=113 integer, parameter :: luo4=114 integer, parameter :: luo5=115 integer, parameter :: luolog=116 integer, parameter :: luodbg=117 integer, parameter :: luoplt=118 ! these are for debugging the crop and decomp biomass variables - LEW integer, parameter :: luocrop=17 integer, parameter :: luoshoot=62 integer, parameter :: luoseason=59 integer, parameter :: luoinpt=60 integer, parameter :: luoallcrop=61 integer, parameter :: luod_above=18 integer, parameter :: luod_below=19 integer, parameter :: luocrp1=121 integer, parameter :: luodec1=122 integer, parameter :: luodec2=123 integer, parameter :: luodec3=124 integer, parameter :: luobio1=125 ! logical unit number for soil conditioning index out files integer, parameter :: luosci=153 integer, parameter :: luostir=154 ! these are for debugging the hydrology variables integer, parameter :: luohydro=151 integer, parameter :: luohlayers=152 integer, parameter :: luowater=12 ! new output units for general information integer, parameter :: luoharvest_si=126 integer, parameter :: luoharvest_en=127 integer, parameter :: luohydrobal=129 ! new output unit for calibration information integer, parameter :: luoharvest_calib=130 ! new output unit for GUI required calibration information integer, parameter :: luoharvest_calib_parm=131 !Logical Unit number for "gui1_data.out" file integer, parameter :: luogui1=52 !Logical Unit number for "mandate.out" file integer, parameter :: luomandate=81 ! New output units for erosion submodel integer, parameter :: lui_einp=50 ! the input coming from a file (by default) integer, parameter :: luo_einp=60 ! output the input to a file integer, parameter :: luo_egrd=201 integer, parameter :: luo_erod=202 integer, parameter :: luo_emit=203 integer, parameter :: luo_sgrd=204 integer, parameter :: luo_eplt=64 integer, parameter :: i_unit=5 ! input file value (stdin) integer, parameter :: o_unit=6 ! output file value (stdout) ! Logical Unit number for "soilsurf.out" file integer, parameter :: luosoilsurf=160 ! Logical Unit number for "soilsurf.out" file integer, parameter :: luosoillay=161 ! Logical Unit number for "ci.out" file integer, parameter :: luoci=162 ! Note: One must check main/openfils.for to ensure unit numbers are unique. ! Not all files are using logical unit numbers yet. END MODULE file_def