Commit 80180973 authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

accept surface/bottom standard variables for horizontal ones and vice versa

parent 7cfcf154
...@@ -144,7 +144,7 @@ contains ...@@ -144,7 +144,7 @@ contains
class (type_base_standard_variable), intent(in) :: variable1, variable2 class (type_base_standard_variable), intent(in) :: variable1, variable2
! Compare the type of the standard variables. ! Compare the type of the standard variables.
compare = same_type_as(variable1, variable2) compare = same_type_as(variable1, variable2) .or. extends_type_of(variable1, variable2) .or. extends_type_of(variable2, variable1)
! Compare the metadata of the standard variables. ! Compare the metadata of the standard variables.
if (compare) compare = (variable1%name == '' .or. variable2%name == '' .or. variable1%name == variable2%name ) & if (compare) compare = (variable1%name == '' .or. variable2%name == '' .or. variable1%name == variable2%name ) &
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment