diff --git a/physics/CONV/SAMF/samfdeepcnv.f b/physics/CONV/SAMF/samfdeepcnv.f index 00553b351..beeafcd14 100644 --- a/physics/CONV/SAMF/samfdeepcnv.f +++ b/physics/CONV/SAMF/samfdeepcnv.f @@ -12,11 +12,10 @@ module samfdeepcnv contains subroutine samfdeepcnv_init(imfdeepcnv,imfdeepcnv_samf, & - & sigmab_coldstart,errmsg, errflg) + & errmsg, errflg) integer, intent(in) :: imfdeepcnv integer, intent(in) :: imfdeepcnv_samf - logical, intent(in) :: sigmab_coldstart character(len=*), intent(out) :: errmsg integer, intent(out) :: errflg @@ -2916,7 +2915,8 @@ subroutine samfdeepcnv_run (im,km,first_time_step,restart, & if(progsigma)then !Initial computations, dynamic q-tendency - if(first_time_step .and. (.not.restart .or. sigmab_coldstart))then + if(first_time_step .and. (.not.restart + & .or. sigmab_coldstart))then do k = 1,km do i = 1,im qadv(i,k)=0.