Skip to content

Commit

Permalink
Fixing a few more code style violations
Browse files Browse the repository at this point in the history
  • Loading branch information
fobryan3 committed Jul 17, 2024
1 parent 4c26ed4 commit 499e4ec
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/parameterizations/vertical/MOM_opacity.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1233,7 +1233,7 @@ subroutine opacity_init(Time, G, GV, US, param_file, diag, CS, optics)
end subroutine opacity_init

!! FOB 5.29.2024
!< Initialize the lookup table for Ohlmann solar penetration scheme.
!> Initialize the lookup table for Ohlmann solar penetration scheme.
!! Step size in Chl is a constant in log-space to make lookups easy.
!! Step size is fine enough that nearest neighbor lookup is sufficiently
!! accurate.
Expand Down Expand Up @@ -1347,7 +1347,7 @@ subroutine init_ohlmann_table(optics)
return
end subroutine init_ohlmann_table

!< Get the partion of total solar into bands from Ohlmann lookup table
!> Get the partion of total solar into bands from Ohlmann lookup table
function lookup_ohlmann_swpen(chl,optics) result(A)

implicit none
Expand All @@ -1371,7 +1371,7 @@ function lookup_ohlmann_swpen(chl,optics) result(A)

end function lookup_ohlmann_swpen

!< Get the opacity (decay scale) from Ohlmann lookup table
!> Get the opacity (decay scale) from Ohlmann lookup table
function lookup_ohlmann_opacity(chl,optics) result(B)

implicit none
Expand Down

0 comments on commit 499e4ec

Please sign in to comment.