From 8302de4afc9b693974d26d98f6d15cbcda65e93a Mon Sep 17 00:00:00 2001 From: Jili Dong Date: Mon, 16 Sep 2024 13:40:09 +0000 Subject: [PATCH] format fix --- physics/CONV/SAMF/samfdeepcnv.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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.