From 180b00977bf815f003da5f223c90c57986d59dd2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=92=D0=B8=D0=BA=D1=82=D0=BE=D1=80=D0=B8=D1=8F=20=D0=A1?= =?UTF-8?q?=D1=83=D1=8F=D0=B7=D0=BE=D0=B2=D0=B0?= <viktoriasuazova@MacBook-Pro-Viktoria.local> Date: Tue, 11 Feb 2025 00:31:00 +0300 Subject: [PATCH] test snow type --- srcF/sfx_api_inmcm.f90 | 2 +- srcF/sfx_sheba_noniterative.f90 | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/srcF/sfx_api_inmcm.f90 b/srcF/sfx_api_inmcm.f90 index c04567e..c1354a6 100644 --- a/srcF/sfx_api_inmcm.f90 +++ b/srcF/sfx_api_inmcm.f90 @@ -42,7 +42,7 @@ contains meteo%depth = depth_inm meteo%lai = lai_inm meteo%surface_type = IVEG_sfx - + write(*,*) 'surface_type, IVEG_sfx', meteo%surface_type, IVEG_sfx end subroutine inmcm_to_sfx_in_cell ! -------------------------------------------------------------------------------- diff --git a/srcF/sfx_sheba_noniterative.f90 b/srcF/sfx_sheba_noniterative.f90 index 35e3b7c..c7912ef 100644 --- a/srcF/sfx_sheba_noniterative.f90 +++ b/srcF/sfx_sheba_noniterative.f90 @@ -154,7 +154,7 @@ contains h = meteo%h(i), & U = meteo%U(i), dT = meteo%dT(i), Tsemi = meteo%Tsemi(i), dQ = meteo%dQ(i), & z0_m = meteo%z0_m(i), depth=meteo%depth(i), lai=meteo%lai(i), surface_type=meteo%surface_type(i)) - + write(*,*) 'get_flux', meteo%surface_type(i) call get_surface_fluxes(sfx_cell, meteo_cell, numerics) call push_sfx_data(sfx, sfx_cell, i) @@ -188,6 +188,7 @@ contains real :: z0_m !< surface aerodynamic roughness (should be < 0 for water bodies surface) real :: depth real :: lai + integer :: surface_type ! ---------------------------------------------------------------------------- ! --- local variables @@ -221,7 +222,7 @@ contains real Cm, Ct !< transfer coeff. for (momentum) & (heat) [n/d] - integer surface_type !< surface type = (ocean || land) + real fval !< just a shortcut for partial calculations -- GitLab