Skip to content

Commit a10a955

Browse files
committed
Update check_energy_cam_fix interface (2)
1 parent e3e6a13 commit a10a955

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/physics/cam/check_energy.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -872,7 +872,7 @@ subroutine check_energy_cam_fix(state, ptend, nstep, eshflx)
872872
integer :: ncol ! number of atmospheric columns in chunk
873873
integer :: lchnk ! chunk number
874874
real(r8) :: heat_out(pcols)
875-
character(len=64) :: dummy_scheme_name ! dumy scheme name for CCPP-ized scheme
875+
character(len=64) :: dummy_scheme_name ! dummy scheme name for CCPP-ized scheme
876876

877877
lchnk = state%lchnk
878878
ncol = state%ncol
@@ -908,7 +908,7 @@ subroutine check_energy_cam_fix(state, ptend, nstep, eshflx)
908908
heat_glob = heat_glob, &
909909
ptend_s = ptend%s(:ncol,:), &
910910
eshflx = eshflx(:ncol), &
911-
scheme_name = dummy_scheme_name
911+
scheme_name = dummy_scheme_name &
912912
)
913913

914914
end subroutine check_energy_cam_fix

0 commit comments

Comments
 (0)