program_setup.f90

Go to the documentation of this file.

 
 
 module program_setup
 
 implicit none
 
 private
 
 character(len=500), public   :: input_leaf_area_index_file = "NULL"
 character(len=500), public   :: input_facsf_file = "NULL"
 character(len=500), public   :: input_substrate_temperature_file = "NULL"
 character(len=500), public   :: input_maximum_snow_albedo_file = "NULL"
 character(len=500), public   :: input_snowfree_albedo_file = "NULL"
 character(len=500), public   :: input_slope_type_file = "NULL"
 character(len=500), public   :: input_soil_type_file = "NULL"
 character(len=500), public   :: input_soil_color_file = "NULL"
 character(len=500), public   :: input_vegetation_type_file = "NULL"
 character(len=500), public   :: input_vegetation_greenness_file = "NULL"
 character(len=500), public   :: mosaic_file_mdl = "NULL"
 character(len=500), public   :: orog_dir_mdl = "NULL"
 character(len=500), public   :: orog_files_mdl(6) = "NULL"
 
 character(len=50), public    :: leaf_area_index_method='bilinear'
 character(len=50), public    :: maximum_snow_albedo_method='bilinear'
 character(len=50), public    :: snowfree_albedo_method='bilinear'
 character(len=50), public    :: vegetation_greenness_method='bilinear'
 
 integer, public              :: halo = 0
 
 logical, public              :: fract_vegsoil_type = .false. 
 
 public :: read_setup_namelist
 
 contains
 
 subroutine read_setup_namelist(localpet)
 
 use mpi
 
 implicit none
 
 integer, intent(in)   :: localpet
 
 integer               :: ierr
 
 namelist /config/ input_facsf_file, input_substrate_temperature_file, &
                   input_maximum_snow_albedo_file, input_snowfree_albedo_file, &
                   input_slope_type_file, input_soil_type_file, input_soil_color_file,&
                   input_leaf_area_index_file, input_vegetation_type_file, &
                   input_vegetation_greenness_file, mosaic_file_mdl, &
                   orog_dir_mdl, orog_files_mdl, halo, &
                   vegetation_greenness_method, leaf_area_index_method, &
                   maximum_snow_albedo_method, snowfree_albedo_method, &
                   fract_vegsoil_type
 
 print*,"- READ SETUP NAMELIST, LOCALPET: ", localpet
 
 open(41, file="./fort.41", iostat=ierr, err=900)
 read(41, nml=config, iostat=ierr, err=901)
 close (41)
 
 return
 
 900 print*,'- FATAL ERROR OPENING CONFIG NAMELIST'
 print*,'- IOSTAT IS: ', ierr
 call mpi_abort(mpi_comm_world, 10, ierr)
 
 901 print*,'- FATAL ERROR READING CONFIG NAMELIST'
 print*,'- IOSTAT IS: ', ierr
 call mpi_abort(mpi_comm_world, 11, ierr)
 
 end subroutine read_setup_namelist
 
 end module program_setup