From 3d83df46bd21b2e115fb0added93cb64eed2ce2a Mon Sep 17 00:00:00 2001 From: lucieb92 <lucie.bakels@univie.ac.at> Date: Fri, 10 May 2024 17:04:48 +0200 Subject: [PATCH] PS: int conversions instead of real in interpol_rain Former-commit-id: c30c83a97e94cc404ce2af0470d12cb6b06aaa3d --- src/interpol_mod.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/interpol_mod.f90 b/src/interpol_mod.f90 index 8f172a0c..8cd29e3f 100644 --- a/src/interpol_mod.f90 +++ b/src/interpol_mod.f90 @@ -1556,13 +1556,13 @@ subroutine interpol_rain(itime,kz,yint1,yint2,yint3,ytint,yint4,intiy1,intiy2,ic !PS clouds:450. ! write(*,*) yi1(1),yi1(2),yi2(1),yi2(2),dt,dt1,dt2 - intiy1=(yi1(1)*dt2 + yi1(2)*dt1)/dt - if (yi1(1) .eq. float(icmv)) intiy1=yi1(2) - if (yi1(2) .eq. float(icmv)) intiy1=yi1(1) + intiy1=int((yi1(1)*dt2 + yi1(2)*dt1)/dt) + if (int(yi1(1)) .eq. icmv) intiy1=int(yi1(2)) + if (int(yi1(2)) .eq. icmv) intiy1=int(yi1(1)) - intiy2=(yi2(1)*dt2 + yi2(2)*dt1)/dt - if (yi2(1) .eq. float(icmv)) intiy2=yi2(2) - if (yi2(2) .eq. float(icmv)) intiy2=yi2(1) + intiy2=int((yi2(1)*dt2 + yi2(2)*dt1)/dt) + if (int(yi2(1)) .eq. icmv) intiy2=int(yi2(2)) + if (int(yi2(2)) .eq. icmv) intiy2=int(yi2(1)) ! write(*,*) 'before cbot: ', intiy1, ' cthick: ', intiy2 if (intiy1 .ne. icmv .and. intiy2 .ne. icmv) then -- GitLab