Skip to content

Commit

Permalink
Update file handling and output in output_landscape_init.f90
Browse files Browse the repository at this point in the history
- Add new output files and headers for soil transformations and carbon output.
- Replace "resc" with "rsdc" in file names and headers.
- Update output messages to reflect the new file names.
  • Loading branch information
tugraskan committed Dec 10, 2024
1 parent 4ccb648 commit 0db8866
Showing 1 changed file with 8 additions and 10 deletions.
18 changes: 8 additions & 10 deletions src/output_landscape_init.f90
Original file line number Diff line number Diff line change
Expand Up @@ -436,7 +436,6 @@ subroutine output_landscape_init
end if
endif

if (bsn_cc%cswat == 2) then
if (pco%nb_hru%a == "y") then
open (4553,file="hru_scf_aa.txt", recl = 1500)
write (4553,*) bsn%name, prog
Expand All @@ -451,7 +450,6 @@ subroutine output_landscape_init
write (9000,*) "HRU hru_scf_aa.csv"
end if
endif
end if

!!!NEW SOIL TRANSFORMATIONS CARBON OUTPUT

Expand Down Expand Up @@ -479,18 +477,18 @@ subroutine output_landscape_init
end if
endif

open (4561,file = "hru_resc_stat.txt", recl = 1500)
if (pco%nb_hru%a == "y") then
open (4561,file = "hru_rsdc_stat.txt", recl = 1500)
write (4561,*) bsn%name, prog
write (4561,*) resc_hdr
write (4561,*) resc_hdr_units
write (9000,*) "HRU hru_resc_stat.txt"
write (4561,*) rsdc_hdr
write (4561,*) rsdc_hdr_units
write (9000,*) "HRU hru_rsdc_stat.txt"
if (pco%csvout == "y") then
open (4564,file="hru_resc_stat.csv", recl = 1500)
open (4564,file="hru_rsdc_stat.csv", recl = 1500)
write (4564,*) bsn%name, prog
write (4564,'(*(G0.3,:,","))') resc_hdr
write (4564,'(*(G0.3,:,","))') resc_hdr_units
write (9000,*) "HRU hru_resc_stat.csv"
write (4564,'(*(G0.3,:,","))') rsdc_hdr
write (4564,'(*(G0.3,:,","))') rsdc_hdr_units
write (9000,*) "HRU hru_rsdc_stat.csv"
end if
endif

Expand Down

0 comments on commit 0db8866

Please sign in to comment.