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_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

 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_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

 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