alltype4

srcF/sfx_surface.f90

@@ -98,19 +98,19 @@ module sfx_surface
 
     integer, public, parameter :: ocean_z0m_id = z0m_ch     !< 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 :: lake_z0m_id = z0m_map_id        !< lake surface
+    integer, public, parameter :: snow_z0m_id = z0m_map_id        !< snow covered surface    
     integer, public, parameter :: forest_z0m_id = z0m_map_id     !< forest csurface  
-    integer, public, parameter :: usersf_z0m_id = z0m_fe       !< user surface  
-    integer, public, parameter :: ice_z0m_id = z0m_ow       !< ice surface  
+    integer, public, parameter :: usersf_z0m_id = z0m_ch       !< user surface  
+    integer, public, parameter :: ice_z0m_id = z0m_ch       !< ice surface  
 
 
-    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_ca        !< lake surface
-    integer, public, parameter :: snow_z0t_id = z0t_kl_land         !< snow covered surface    
-    integer, public, parameter :: forest_z0t_id = z0t_cz      !< forest csurface  
-    integer, public, parameter :: usersf_z0t_id = z0t_ca      !< user surface  
+    integer, public, parameter :: ocean_z0t_id = z0t_kl_land     !< ocean surface
+    integer, public, parameter :: land_z0t_id = z0t_zi        !< land surface
+    integer, public, parameter :: lake_z0t_id = z0t_zi        !< lake surface
+    integer, public, parameter :: snow_z0t_id = z0t_zi         !< snow covered surface    
+    integer, public, parameter :: forest_z0t_id = z0t_zi      !< forest csurface  
+    integer, public, parameter :: usersf_z0t_id = z0t_kl_land      !< user surface  
     integer, public, parameter :: ice_z0t_id = z0t_kl_land     !< user surface  
     
     ! --------------------------------------------------------------------------------