Skip to content

Commit

Permalink
[GH Actions] fprettify source code
Browse files Browse the repository at this point in the history
  • Loading branch information
@sunt05
sunt05 committed Jul 20, 2023
1 parent 87dc2b1 commit 59156d3
Showing 1 changed file with 32 additions and 33 deletions.
65 changes: 32 additions & 33 deletions src/suews/src/suews_ctrl_driver.f95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10621,22 +10621,22 @@ SUBROUTINE ECH_update_outputLine( &
REAL(it, KIND(1D0)), REAL(imin, KIND(1D0)), dectime]
!Define the overall output matrix to be printed out step by step
dataOutLineECH = [ &
tsfc_out_surf, qs_surf, & !output
fill_result_x(tsfc_out_roof, n_fill), &
fill_result_x(Qn_roof, n_fill), &
fill_result_x(QS_roof, n_fill), &
fill_result_x(QE_roof, n_fill), &
fill_result_x(QH_roof, n_fill), &
fill_result_x(state_roof, n_fill), &
fill_result_x(soilstore_roof, n_fill), &
fill_result_x(tsfc_out_wall, n_fill), &
fill_result_x(Qn_wall, n_fill), &
fill_result_x(QS_wall, n_fill), &
fill_result_x(QE_wall, n_fill), &
fill_result_x(QH_wall, n_fill), &
fill_result_x(state_wall, n_fill), &
fill_result_x(soilstore_wall, n_fill) &
]
tsfc_out_surf, qs_surf, & !output
fill_result_x(tsfc_out_roof, n_fill), &
fill_result_x(Qn_roof, n_fill), &
fill_result_x(QS_roof, n_fill), &
fill_result_x(QE_roof, n_fill), &
fill_result_x(QH_roof, n_fill), &
fill_result_x(state_roof, n_fill), &
fill_result_x(soilstore_roof, n_fill), &
fill_result_x(tsfc_out_wall, n_fill), &
fill_result_x(Qn_wall, n_fill), &
fill_result_x(QS_wall, n_fill), &
fill_result_x(QE_wall, n_fill), &
fill_result_x(QH_wall, n_fill), &
fill_result_x(state_wall, n_fill), &
fill_result_x(soilstore_wall, n_fill) &
]
! set invalid values to NAN
! dataOutLineSUEWS = set_nan(dataOutLineSUEWS)

Expand Down Expand Up @@ -10734,22 +10734,22 @@ SUBROUTINE ECH_update_outputLine_DTS( &
REAL(it, KIND(1D0)), REAL(imin, KIND(1D0)), dectime]
!Define the overall output matrix to be printed out step by step
dataOutLineECH = [ &
tsfc_out_surf, qs_surf, & !output
fill_result_x(tsfc_out_roof, n_fill), &
fill_result_x(Qn_roof, n_fill), &
fill_result_x(QS_roof, n_fill), &
fill_result_x(QE_roof, n_fill), &
fill_result_x(QH_roof, n_fill), &
fill_result_x(state_roof, n_fill), &
fill_result_x(soilstore_roof, n_fill), &
fill_result_x(tsfc_out_wall, n_fill), &
fill_result_x(Qn_wall, n_fill), &
fill_result_x(QS_wall, n_fill), &
fill_result_x(QE_wall, n_fill), &
fill_result_x(QH_wall, n_fill), &
fill_result_x(state_wall, n_fill), &
fill_result_x(soilstore_wall, n_fill) &
]
tsfc_out_surf, qs_surf, & !output
fill_result_x(tsfc_out_roof, n_fill), &
fill_result_x(Qn_roof, n_fill), &
fill_result_x(QS_roof, n_fill), &
fill_result_x(QE_roof, n_fill), &
fill_result_x(QH_roof, n_fill), &
fill_result_x(state_roof, n_fill), &
fill_result_x(soilstore_roof, n_fill), &
fill_result_x(tsfc_out_wall, n_fill), &
fill_result_x(Qn_wall, n_fill), &
fill_result_x(QS_wall, n_fill), &
fill_result_x(QE_wall, n_fill), &
fill_result_x(QH_wall, n_fill), &
fill_result_x(state_wall, n_fill), &
fill_result_x(soilstore_wall, n_fill) &
]
! set invalid values to NAN
! dataOutLineSUEWS = set_nan(dataOutLineSUEWS)

Expand Down Expand Up @@ -12237,7 +12237,6 @@ SUBROUTINE SUEWS_cal_multitsteps( &
WUProfA_24hr, WUProfM_24hr, Z, z0m_in, zdm_in, &
output_block_suews) !output


IMPLICIT NONE

! ############# DTS variables (start) #############
Expand Down

0 comments on commit 59156d3

Please sign in to comment.