From fc075ce2f5636986dbbe904e4a3ef95b94327d24 Mon Sep 17 00:00:00 2001 From: alejandrobodas Date: Wed, 25 Oct 2023 15:41:37 +0100 Subject: [PATCH] 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