From b303859931b775fc049645afa6881a7d835fb555 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, 4 Feb 2025 06:37:21 +0300 Subject: [PATCH] alltype8 --- srcF/sfx_surface.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90 index 36051e5..e356c31 100644 --- a/srcF/sfx_surface.f90 +++ b/srcF/sfx_surface.f90 @@ -96,20 +96,20 @@ module sfx_surface character(len = 16), parameter :: z0t_tag_user = 'zt_user' - integer, public, parameter :: ocean_z0m_id = z0m_ch !< ocean surface + integer, public, parameter :: ocean_z0m_id = z0m_fe !< ocean surface integer, public, parameter :: land_z0m_id = z0m_map_id !< land surface integer, public, parameter :: lake_z0m_id = z0m_fe !< lake surface - integer, public, parameter :: snow_z0m_id = z0m_ow !< snow covered surface + integer, public, parameter :: snow_z0m_id = z0m_and !< snow covered surface integer, public, parameter :: forest_z0m_id = z0m_map_id !< forest csurface integer, public, parameter :: usersf_z0m_id = z0m_ch !< user surface integer, public, parameter :: ice_z0m_id = z0m_map_id !< ice surface - integer, public, parameter :: ocean_z0t_id = z0t_kl_water !< ocean surface - integer, public, parameter :: land_z0t_id = z0t_zi !< land surface - integer, public, parameter :: lake_z0t_id = z0t_cz !< lake surface - integer, public, parameter :: snow_z0t_id = z0t_cz !< snow covered surface - integer, public, parameter :: forest_z0t_id = z0t_zi !< forest csurface + integer, public, parameter :: ocean_z0t_id = z0t_ca !< ocean surface + integer, public, parameter :: land_z0t_id = z0t_ot !< land surface + integer, public, parameter :: lake_z0t_id = z0t_ot !< lake surface + integer, public, parameter :: snow_z0t_id = z0t_zi !< snow covered surface + integer, public, parameter :: forest_z0t_id = z0t_ot !< forest csurface integer, public, parameter :: usersf_z0t_id = z0t_kl_water !< user surface integer, public, parameter :: ice_z0t_id = z0t_ca !< user surface -- GitLab