clean up a bit, remove comments and temporary parameters

ufs-community · Nov 16, 2023 · a85b2c8 · a85b2c8
1 parent 86eb1bd
commit a85b2c8
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/physics/GFS_MP_generic_post.F90 b/physics/GFS_MP_generic_post.F90
@@ -21,7 +21,7 @@ module GFS_MP_generic_post
       subroutine GFS_MP_generic_post_run(                                                                                 &
         im, levs, kdt, nrcm, nncl, ntcw, ntrac, imp_physics, imp_physics_gfdl, imp_physics_thompson, imp_physics_nssl,    &
         imp_physics_mg, imp_physics_fer_hires, cal_pre, cplflx, cplchm, cpllnd, progsigma, con_g, rhowater, rainmin, dtf, &
-        frain, rainc, rain1, rann, xlat, xlon, gt0, gq0, prsl, prsi, phii, tsfc, ice,phil,htop,refl_10cm, & 
+        frain, rainc, rain1, rann, xlat, xlon, gt0, gq0, prsl, prsi, phii, tsfc, ice, phil, htop, refl_10cm,              & 
         imfshalcnv,imfshalcnv_gf,imfdeepcnv,imfdeepcnv_gf,imfdeepcnv_samf,snow, graupel, save_t, save_q,      &
         rain0, ice0, snow0, graupel0, del, rain, domr_diag, domzr_diag, domip_diag, doms_diag, tprcp, srflag, sr, cnvprcp,&
         totprcp, totice, totsnw, totgrp, cnvprcpb, totprcpb, toticeb, totsnwb, totgrpb, rain_cpl, rainc_cpl, snow_cpl,    &
@@ -41,7 +41,6 @@ subroutine GFS_MP_generic_post_run(
       integer, intent(in) :: imp_physics_nssl, iopt_lake_clm, iopt_lake, lkm
       logical, intent(in) :: cal_pre, lssav, ldiag3d, qdiag3d, cplflx, cplchm, cpllnd, progsigma, exticeden
       integer, intent(in) :: index_of_temperature,index_of_process_mp,use_lake_model(:)
-!aligo
       integer, intent(in) :: imfshalcnv,imfshalcnv_gf,imfdeepcnv,imfdeepcnv_gf,imfdeepcnv_samf
       integer, dimension (:), intent(in) :: htop
       integer                                                :: dfi_radar_max_intervals
@@ -115,15 +114,14 @@ subroutine GFS_MP_generic_post_run(
       real :: snowrat,grauprat,icerat,curat,prcpncfr,prcpcufr
       real :: rhonewsnow,rhoprcpice,rhonewgr,rhonewice
 
-!aligo
       real(kind_phys), parameter :: dbzmin=-20.0
       real(kind_phys) :: cuprate
       real(kind_phys) :: ze, ze_conv, dbz_sum
 
       real(kind_phys), dimension(1:im,1:levs) :: zo
       real(kind_phys), dimension(1:im)        :: zfrz
       real(kind_phys), dimension(1:im)        :: factor
-      real(kind_phys) ze_mp, fctz, delz, xlatd,xlond
+      real(kind_phys) ze_mp, fctz, delz
       logical :: lfrz