From a784086b8d67db6df1f8bd32b2578661bffced3c Mon Sep 17 00:00:00 2001 From: alejandrobodas Date: Wed, 25 Oct 2023 15:40:17 +0100 Subject: [PATCH 1/2] Update cosp_stats.F90 --- src/cosp_stats.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cosp_stats.F90 b/src/cosp_stats.F90 index 3d6534cc27..19980853a7 100755 --- a/src/cosp_stats.F90 +++ b/src/cosp_stats.F90 @@ -326,7 +326,7 @@ SUBROUTINE COSP_DIAG_WARMRAIN( Npoints, Ncolumns, Nlevels, & !! in integer :: kctop, kcbtm integer :: icls integer :: iregime - real :: cmxdbz + real(wp) :: cmxdbz real(wp) :: diagcgt !! diagnosed cloud geometric thickness [m] real(wp) :: diagicod !! diagnosed in-cloud optical depth real(wp) :: cbtmh !! diagnosed in-cloud optical depth From fc075ce2f5636986dbbe904e4a3ef95b94327d24 Mon Sep 17 00:00:00 2001 From: alejandrobodas Date: Wed, 25 Oct 2023 15:41:37 +0100 Subject: [PATCH 2/2] Update parasol.F90 --- src/simulator/parasol/parasol.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/simulator/parasol/parasol.F90 b/src/simulator/parasol/parasol.F90 index cb3326c257..a33607d00a 100644 --- a/src/simulator/parasol/parasol.F90 +++ b/src/simulator/parasol/parasol.F90 @@ -168,8 +168,8 @@ subroutine parasol_column(npoints,nrefl,ncol,land,refl,parasolrefl) parasolrefl(:,k) = parasolrefl(:,k) / float(ncol) ! if land=1 -> parasolrefl=R_UNDEF ! if land=0 -> parasolrefl=parasolrefl - parasolrefl(:,k) = parasolrefl(:,k) * MAX(1._wp-land(:),0.0) & - + (1._wp - MAX(1._wp-land(:),0.0))*R_UNDEF + parasolrefl(:,k) = parasolrefl(:,k) * MAX(1._wp-land(:),0.0_wp) & + + (1._wp - MAX(1._wp-land(:),0.0_wp))*R_UNDEF enddo end subroutine parasol_column