Merge pull request #82 from CFMIP/lfric_warnings_wp

Lfric warnings wp
CFMIP · Oct 27, 2023 · c60fbc6 · c60fbc6
2 parents 4ed5907 + fc075ce
commit c60fbc6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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

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