More bug fixes in physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cl…

…oud_mp.F90 and physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cloud_overlap.F90
climbfuji · Apr 22, 2024 · eb64212 · eb64212
1 parent 7bc2486
commit eb64212
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cloud_mp.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cloud_mp.F90
@@ -120,7 +120,7 @@ subroutine GFS_rrtmgp_cloud_mp_run(nCol, nLev, nTracers, ncnd, i_cldliq, i_cldic
          deltaZc,                   & ! Layer-thickness, from layer centers (m)
          deltaP,                    & ! Layer-thickness (Pa)
          qc_mynn,                   & !
-         qi_mynn,                     !
+         qi_mynn                      !
     real(kind_phys), dimension(:,:), intent(in), optional :: &
          cld_pbl_frac                 !
     real(kind_phys), dimension(:,:), intent(inout), optional :: &
@@ -151,7 +151,7 @@ subroutine GFS_rrtmgp_cloud_mp_run(nCol, nLev, nTracers, ncnd, i_cldliq, i_cldic
          cld_swp,                   & ! Water path for                    snow   hydrometeors
          cld_resnow,                & ! Effective radius for              snow   hydrometeors
          cld_rwp,                   & ! Water path for                    rain   hydrometeors
-         cld_rerain,                & ! Effective radius for              rain   hydrometeors
+         cld_rerain                   ! Effective radius for              rain   hydrometeors
     real(kind_phys), dimension(:,:),intent(inout), optional :: &
          precip_frac,               & ! Precipitation fraction
          cld_cnv_frac,              & ! Cloud-fraction for   convective clouds
@@ -573,7 +573,7 @@ subroutine cloud_mp_uni(nCol, nLev, nTracers, ncnd, i_cldliq, i_cldice, i_cldrai
          effrin_cldliq,        & ! Effective radius for liquid cloud-particles (microns)
          effrin_cldice,        & ! Effective radius for ice cloud-particles (microns)
          effrin_cldsnow          ! Effective radius for snow cloud-particles (microns)
-    real(kind_phys), dimension(:,:), intent(in) :: &
+    real(kind_phys), dimension(:,:), intent(in), optional :: &
          effrin_cldrain          ! Effective radius for rain cloud-particles (microns) 
     real(kind_phys), dimension(:,:), intent(in) :: &
          p_lev                   ! Pressure at model-level interfaces (Pa)

diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cloud_overlap.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cloud_overlap.F90
@@ -68,7 +68,7 @@ subroutine GFS_rrtmgp_cloud_overlap_run(nCol, nLev, yearlen, doSWrad, doLWrad,
     real(kind_phys), dimension(:), intent(in) :: &
          lat                     ! Latitude             
     real(kind_phys), dimension(:,:), intent(in) :: &
-         cld_frac,               ! Total cloud fraction
+         cld_frac                ! Total cloud fraction
     real(kind_phys), dimension(:,:), intent(in), optional :: &
          cld_cnv_frac            ! Convective cloud-fraction
     real(kind_phys), dimension(:,:), intent(in), optional :: &