From 708b1ea694f8fefc6f635a5f247635c75ea2ab9b Mon Sep 17 00:00:00 2001 From: ezhilsabareesh8 <108497463+ezhilsabareesh8@users.noreply.github.com> Date: Fri, 25 Oct 2024 14:05:10 +1100 Subject: [PATCH] Change single to double precision for unit coversion Co-authored-by: Micael Oliveira --- src/topography.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/topography.f90 b/src/topography.f90 index 360dd8e..d9311d1 100644 --- a/src/topography.f90 +++ b/src/topography.f90 @@ -506,10 +506,10 @@ subroutine topography_cut_off_T_cells(this, hgrid, cutoff) ! Apply cutoff to depth based on the provided T-cell cutoff value in kilometers do i = 1, int(ny_len / 2) do j = 1, int((nxp_len - 1) / 2) - if (dy_t(i, j) < cutoff*1000.0) then !Input cutoff in Kilometers covert it to meters - this%depth(i, j) = MISSING_VALUE ! Set values below cutoff to zero or another value as needed - end if - end do + if (dy_t(i, j) < cutoff*1000.0_real64) then !Input cutoff in Kilometers covert it to meters + this%depth(i, j) = MISSING_VALUE ! Set values below cutoff to zero or another value as needed + end if + end do end do end subroutine topography_cut_off_T_cells