Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 8 additions & 8 deletions physics/cu_gf_driver.F90
Original file line number Diff line number Diff line change
Expand Up @@ -50,14 +50,14 @@ subroutine cu_gf_driver_init(imfshalcnv, imfshalcnv_gf, imfdeepcnv, &
! end if
! *DH temporary

! Consistency checks
if (.not. (imfshalcnv == imfshalcnv_gf .or. &
& imfdeepcnv == imfdeepcnv_gf)) then
write(errmsg,'(*(a))') 'Logic error: namelist choice of', &
& ' convection is different from Grell-Freitas scheme'
errflg = 1
return
end if
! ! Consistency checks
! if (.not. (imfshalcnv == imfshalcnv_gf .or. &
! & imfdeepcnv == imfdeepcnv_gf)) then
! write(errmsg,'(*(a))') 'Logic error: namelist choice of', &
! & ' convection is different from Grell-Freitas scheme'
! errflg = 1
! return
! end if

end subroutine cu_gf_driver_init

Expand Down