write surface_type esm

srcF/sfx_esm.f90

@@ -178,6 +178,7 @@ contains
         real :: z0_m    !< surface aerodynamic roughness (should be < 0 for water bodies surface)
         real :: depth   
         real :: lai
+        integer :: surface_type
         ! ----------------------------------------------------------------------------
 
         ! --- local variables
@@ -206,7 +207,6 @@ 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
         real z0_m1
@@ -241,7 +241,7 @@ contains
         surface_type=meteo%surface_type
        
         
-        !write (*,*) surface_type, 'esm'
+        write (*,*) surface_type, 'esm'
         call get_dynamic_roughness_definition(surface_type, ocean_z0m_id, land_z0m_id, lake_z0m_id, snow_z0m_id, &
         forest_z0m_id, usersf_z0m_id, ice_z0m_id, z0m_id)