Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
S
sfx
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
inmcm-mirror
sfx
Commits
41b5e811
Commit
41b5e811
authored
5 months ago
by
Виктория Суязова
Committed by
Anna Shestakova
5 months ago
Browse files
Options
Downloads
Patches
Plain Diff
no_write
parent
10a558a8
No related branches found
No related tags found
No related merge requests found
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
srcF/sfx_z0m_all_surface.f90
+4
-4
4 additions, 4 deletions
srcF/sfx_z0m_all_surface.f90
srcF/sfx_z0t_all_surface.f90
+3
-3
3 additions, 3 deletions
srcF/sfx_z0t_all_surface.f90
with
7 additions
and
7 deletions
srcF/sfx_z0m_all_surface.f90
+
4
−
4
View file @
41b5e811
...
@@ -66,7 +66,7 @@ module sfx_z0m_all_surface
...
@@ -66,7 +66,7 @@ module sfx_z0m_all_surface
a
=
0.0
a
=
0.0
b
=
25.0
b
=
25.0
c_min
=
log
(
h_charnock
)
/
kappa
c_min
=
log
(
h_charnock
)
/
kappa
write
(
*
,
*
)
'sfx_ch'
do
i
=
1
,
maxiters
do
i
=
1
,
maxiters
f
=
c1_charnock
-
2.0
*
log
(
Uc
)
f
=
c1_charnock
-
2.0
*
log
(
Uc
)
do
j
=
1
,
maxiters
do
j
=
1
,
maxiters
...
@@ -107,7 +107,7 @@ module sfx_z0m_all_surface
...
@@ -107,7 +107,7 @@ module sfx_z0m_all_surface
integer
::
i
,
j
integer
::
i
,
j
! ----------------------------------------------------------------------------
! ----------------------------------------------------------------------------
write
(
*
,
*
)
'sfx_ow'
Uc
=
U
Uc
=
U
C_z0
=
0.007
C_z0
=
0.007
betta_u
=
0.111
betta_u
=
0.111
...
@@ -150,7 +150,7 @@ module sfx_z0m_all_surface
...
@@ -150,7 +150,7 @@ module sfx_z0m_all_surface
integer
::
i
,
j
integer
::
i
,
j
! ----------------------------------------------------------------------------
! ----------------------------------------------------------------------------
write
(
*
,
*
)
'sfx_fe'
Uc
=
U
Uc
=
U
a
=
0.0
a
=
0.0
b
=
25.0
b
=
25.0
...
@@ -200,7 +200,7 @@ subroutine get_dynamic_roughness_map(z0_m, u_dyn0, U, h, z0m_map)
...
@@ -200,7 +200,7 @@ subroutine get_dynamic_roughness_map(z0_m, u_dyn0, U, h, z0m_map)
real
,
intent
(
in
)
::
U
!< abs(wind speed) [m/s]
real
,
intent
(
in
)
::
U
!< abs(wind speed) [m/s]
! ----------------------------------------------------------------------------
! ----------------------------------------------------------------------------
real
::
h0_m
real
::
h0_m
write
(
*
,
*
)
'sfx_map'
z0_m
=
z0m_map
z0_m
=
z0m_map
h0_m
=
h
/
z0_m
h0_m
=
h
/
z0_m
u_dyn0
=
U
*
kappa
/
log
(
h0_m
)
u_dyn0
=
U
*
kappa
/
log
(
h0_m
)
...
...
This diff is collapsed.
Click to expand it.
srcF/sfx_z0t_all_surface.f90
+
3
−
3
View file @
41b5e811
...
@@ -63,7 +63,7 @@ module sfx_z0t_all_surface
...
@@ -63,7 +63,7 @@ module sfx_z0t_all_surface
real
,
intent
(
in
)
::
z0_m
!< aerodynamic roughness [m]
real
,
intent
(
in
)
::
z0_m
!< aerodynamic roughness [m]
real
,
intent
(
in
)
::
Re
!< roughness Reynolds number [n/d]
real
,
intent
(
in
)
::
Re
!< roughness Reynolds number [n/d]
! ----------------------------------------------------------------------------
! ----------------------------------------------------------------------------
write
(
*
,
*
)
'sfx_kl_water'
!--- define B = log(z0_m / z0_t)
!--- define B = log(z0_m / z0_t)
if
(
Re
<=
Re_rough_min
)
then
if
(
Re
<=
Re_rough_min
)
then
B
=
B1_rough
*
alog
(
B3_rough
*
Re
)
+
B2_rough
B
=
B1_rough
*
alog
(
B3_rough
*
Re
)
+
B2_rough
...
@@ -91,7 +91,7 @@ module sfx_z0t_all_surface
...
@@ -91,7 +91,7 @@ module sfx_z0t_all_surface
real
,
intent
(
in
)
::
Re
!< roughness Reynolds number [n/d]
real
,
intent
(
in
)
::
Re
!< roughness Reynolds number [n/d]
write
(
*
,
*
)
'sfx_cz'
B
=
(
kappa
*
10.0
**
(
-0.4
*
z0_m
/
0.07
))
*
(
Re
**
0.45
)
!Chen and Zhang
B
=
(
kappa
*
10.0
**
(
-0.4
*
z0_m
/
0.07
))
*
(
Re
**
0.45
)
!Chen and Zhang
! --- define roughness [thermal]
! --- define roughness [thermal]
...
@@ -111,7 +111,7 @@ module sfx_z0t_all_surface
...
@@ -111,7 +111,7 @@ module sfx_z0t_all_surface
real
,
intent
(
in
)
::
Re
!< roughness Reynolds number [n/d]
real
,
intent
(
in
)
::
Re
!< roughness Reynolds number [n/d]
write
(
*
,
*
)
'sfx_zi'
B
=
0.1
*
kappa
*
(
Re
**
0.5
)
!6-Zilitinkevich
B
=
0.1
*
kappa
*
(
Re
**
0.5
)
!6-Zilitinkevich
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment