add all F90 files in se and se/dycore directory from r88678

PeterHjortLauritzen · Mar 27, 2018 · ee3ef7c · ee3ef7c
1 parent 82a3288
commit ee3ef7c
Show file tree

Hide file tree

Showing 60 changed files with 46,194 additions and 0 deletions.
diff --git a/dp_coupling.F90 b/dp_coupling.F90
diff --git a/dp_mapping.F90 b/dp_mapping.F90
diff --git a/dycore.F90 b/dycore.F90
@@ -0,0 +1,26 @@
+module dycore
+
+implicit none
+private
+
+public :: dycore_is
+
+!=========================================================================================
+CONTAINS
+!=========================================================================================
+
+logical function dycore_is (name)
+
+   character(len=*) :: name
+
+   dycore_is = .false.
+   if (name == 'unstructured' .or. name == 'UNSTRUCTURED' .or. &
+      name == 'se' .or. name == 'SE') then
+      dycore_is = .true.
+   end if
+
+end function dycore_is
+
+!=========================================================================================
+
+end module dycore