From cd23117605d172807cd917715e198af8995454e1 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: Fri, 14 Feb 2025 13:49:04 +0300
Subject: [PATCH] write surface_type esm
---
srcF/sfx_esm.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/srcF/sfx_esm.f90 b/srcF/sfx_esm.f90
index b26813e..266f851 100644
--- a/srcF/sfx_esm.f90
+++ b/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)
--
GitLab