format fix

ufs-community · Sep 16, 2024 · 8302de4 · 8302de4
1 parent 7223b8c
commit 8302de4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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.