Skip to content

Commit 6a5d4e3

Browse files
committed
add parantheses around logical statement in scm_forcing per review
1 parent e7bacbc commit 6a5d4e3

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

scm/src/scm_forcing.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -326,7 +326,7 @@ subroutine interpolate_forcing(scm_input, scm_state, in_spinup)
326326
end do
327327
end if
328328

329-
if (scm_state%surface_thermo_control == 0 .or. scm_state%surface_thermo_control == 1 .or. scm_state%surface_thermo_control == 2 .and. .not. scm_state%do_sst_initialize_only) then
329+
if (scm_state%surface_thermo_control == 0 .or. scm_state%surface_thermo_control == 1 .or. scm_state%surface_thermo_control == 2 .and. (.not. scm_state%do_sst_initialize_only)) then
330330
!skin temperature is needed if surface fluxes are specified (for calculating bulk Richardson number in the specified surface flux scheme) and for simple ocean scheme
331331
do i=1, scm_state%n_cols
332332
scm_state%T_surf(i) = scm_input%input_T_surf(scm_input%input_ntimes)

0 commit comments

Comments
 (0)