38 use gsl_oro_data_sm_scale,
only: calc_gsl_oro_data_sm_scale
39 use gsl_oro_data_lg_scale,
only: calc_gsl_oro_data_lg_scale
44 character(len=2) :: tile_num
45 character(len=7) :: res_indx
47 character(len=4) :: halo
49 logical :: duplicate_oro_data_file
56 print *,
"Enter tile number:" 59 print *,
"Enter grid-resolution index:" 62 print *,
"Enter halo number (-999 for no halo):" 65 print *,
"Creating tile oro_data for tile number: ", tile_num
66 print *,
"Grid resolution = ", res_indx
67 print *,
"Halo = ", halo
71 call calc_gsl_oro_data_sm_scale(tile_num,res_indx,halo,duplicate_oro_data_file)
73 print *,
"duplicate_oro_data_file =", duplicate_oro_data_file
76 if ( .not.duplicate_oro_data_file )
then 77 call calc_gsl_oro_data_lg_scale(tile_num,res_indx,halo)
82 print *,
"End program gsl_oro_data" program gsl_oro_data
Brief description of program: Creates orographic (oro_data) files needed by the GSL drag suite physic...