Changeset 792 for codes/icosagcm/devel/src/unstructured

Timestamp:

12/10/18 12:48:58 (6 years ago)

Author:

jisesh

Message:

devel/unstructured : added kernel for curl curl ; used by Baroclinic_3D_ullrich

Location:

codes/icosagcm/devel/src/unstructured

Files:

• caldyn_unstructured.F90 (modified) (1 diff)
• timestep_unstructured.F90 (modified) (1 diff)

codes/icosagcm/devel/src/unstructured/caldyn_unstructured.F90

@@ -247 +247 @@
 END SUBROUTINE compute_scalar_laplacian
 
+SUBROUTINE compute_curl_laplacian(u,qv,curlcurl)
+  FIELD_Z   :: qv ! BUF
+  FIELD_U   :: u, curlcurl ! IN,OUT
+  DECLARE_INDICES
+  DECLARE_EDGES
+  DECLARE_VERTICES
+  NUM :: etav
+  START_TRACE(id_scalar_laplacian, 0,0,1)
+#include "../kernels_unst/curl_laplacian.k90"
+  STOP_TRACE
+END SUBROUTINE compute_curl_laplacian
+
 END MODULE caldyn_unstructured_mod

codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90

@@ -29 +29 @@
      !$OMP END PARALLEL
    END SUBROUTINE scalar_laplacian
+
+   SUBROUTINE curl_laplacian(u,lapu) BINDC(curl_laplacian)
+     FIELD_U   :: u,lapu ! IN, OUT
+     FIELD_Z   :: qv  ! BUF
+     !$OMP PARALLEL NUM_THREADS(nb_threads)
+     CALL update_halo(transfer_edge, u)
+     CALL compute_curl_laplacian(u,qv,lapu)
+     !$OMP END PARALLEL
+   END SUBROUTINE curl_laplacian
 
   !