program main use time_module use hydrograph_module use maximum_data_module use calibration_data_module use hru_module implicit none integer :: date_time(8) ! | character*10 b(3) ! | integer :: iob = 0 integer, allocatable, dimension(:) :: cmd_next prog = " SWAT+ 2024-08-29 MODULAR Rev 2024.61.0.2" write (*,1000) open (9003,file='simulation.out') write (9003,1000) 1000 format(1x," SWAT+ ",/, & & " Revision 61.0.2 ",/, & & " Soil & Water Assessment Tool ",/, & & "GNU (11.4.0), 2024-08-29 03:28:39, Linux",/, & & " Program reading . . . executing",/) open (888,file="erosion.txt",recl = 1500) !!!! for Luis only ! open (7777,file='res1_out.txt',recl=1500) ! write (7777,7778) !7778 format (9x,'DAY',8x,'YEAR',10x,'RES',7x,'VOL m^3',4x,'INFLO m^3',5x,'OUTFLO m^3',5x,'PREC m^3',7x,'EVAP m^3', & ! 8x,'AREA ha') !!!! for Luis only call proc_bsn call proc_date_time call proc_db call proc_read call hyd_connect call exco_db_read call dr_db_read allocate (cmd_next(sp_ob%objs)) icmd = sp_ob1%objs iob = 0 do while (icmd /= 0) iob = iob + 1 cmd_next(iob) = icmd write (7777,*) icmd, ob(icmd)%name, ob(icmd)%typ, & ob(icmd)%props, ob(icmd)%props2, ob(icmd)%src_tot, & ob(icmd)%rcv_tot !, (ob(icmd)%obj_out,ob(icmd)%obtyp_out(i), & !ob(icmd)%obtypno_out(i), ob(icmd)%htyp_out(i), i = 1, & !ob(icmd)%src_tot) icmd = ob(icmd)%cmd_next end do call cli_lapse call object_read_output call om_water_init call pest_cha_res_read call path_cha_res_read call salt_cha_read !rtb salt call cs_cha_read !rtb cs call lsu_read_elements !defining landscape units by hru call proc_hru call proc_cha call proc_aqu !! read decision table data for conditional management call dtbl_lum_read call hru_lte_read call proc_cond call res_read_weir !moved from proc_res Jaehak 2023 call dtbl_res_read call dtbl_scen_read ! input scenarios used in simulation call cal_cond_read ! read manure allocation inputs call manure_allocation_read call dtbl_flocon_read ! read water treatment and water allocation files - before hru lum tables call treat_read_om call water_allocation_read call hru_dtbl_actions_init ! read reservoir and wetland data call proc_res call wet_read_hyd call wet_read call wet_read_salt_cs if (db_mx%wet_dat > 0) call wet_all_initial call wet_fp_init !! initialize carbon and nutrient contents for each hru do ihru = 1, sp_ob%hru isol = hru(ihru)%dbs%soil call soil_nutcarb_init(isol) end do call proc_cal call proc_open ! compute unit hydrograph parameters for subdaily runoff call unit_hyd_ru_hru call dr_ru call hyd_connect_out ! save initial time settings for soft calibration runs time_init = time !! simulate watershed processes if (time%step < 0) then !! export coefficient - average annual time%end_sim = 1 call command else call time_control end if if (cal_soft == "y") call calsoft_control if (cal_hard == "y") then deallocate (cal_upd) call cal_parmchg_read call calhard_control end if !! write output for SWIFT input if (bsn_cc%swift_out == 1) call swift_output !! write successful completion to screen and file write (*,1001) write (9003,1001) open (107,file="success.fin") call DATE_AND_TIME (b(1), b(2), b(3), date_time) write (*,1234) date_time(2), date_time(3), date_time(1), date_time(5), date_time(6), date_time(7) write (9003,1234) date_time(2), date_time(3), date_time(1), date_time(5), date_time(6), date_time(7) 1234 format(/," Date of Sim", 2x,i2,"/",i2,"/",i4, " Time",2x,i2,":",i2,":",i2) write (107,1001) 1001 format (/," Execution successfully completed ") stop end