Update parasol.F90

CFMIP · Oct 25, 2023 · fc075ce · fc075ce
1 parent a784086
commit fc075ce
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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