Skip to content

Commit

Permalink
fix syntax
Browse files Browse the repository at this point in the history
  • Loading branch information
Raphael Dussin authored and Raphael Dussin committed Aug 27, 2021
1 parent df63cf3 commit c742000
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/parameterizations/lateral/MOM_internal_tides.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2213,7 +2213,7 @@ subroutine internal_tides_init(Time, G, GV, US, param_file, diag, CS)
"The period of the first mode for internal tides", default=44567., &
units="s", scale=US%s_to_T)
call log_param(param_file, mdl, "FIRST_MODE_PERIOD", period_1)

do fr=1,num_freq
CS%frequency(fr) = (8.0*atan(1.0) * (real(fr)) / period_1) ! ADDED BDM
enddo
Expand Down

0 comments on commit c742000

Please sign in to comment.