From 43f5be2bb0f32eba6f2a6f9ccd9a665fc4fa04f4 Mon Sep 17 00:00:00 2001 From: Mark Piper Date: Fri, 4 Oct 2024 13:32:25 -0600 Subject: [PATCH] Remove unused model parameter from snowfix subroutine call --- GIPL/gipl.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GIPL/gipl.f90 b/GIPL/gipl.f90 index c82d69c..92cb103 100644 --- a/GIPL/gipl.f90 +++ b/GIPL/gipl.f90 @@ -290,7 +290,7 @@ subroutine run_model enddo call interpolate(utemp_time, utemp(:, i_site), n_temp, utemp_time_i, utemp_i(:, i_site), n_time + 2) call interpolate(snd_time, snd(:, i_site), n_snow, utemp_time_i, snd_i(:, i_site), n_time + 2) - call snowfix(model, utemp_i(:, i_site), snd_i(:, i_site), n_time + 2) + call snowfix(utemp_i(:, i_site), snd_i(:, i_site), n_time + 2) call interpolate(stcon_time, stcon(:, i_site), n_stcon, utemp_time_i, stcon_i(:, i_site), n_time + 2) enddo