Ignore:
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

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r784 r792  
    2929     !$OMP END PARALLEL 
    3030   END SUBROUTINE scalar_laplacian 
     31 
     32   SUBROUTINE curl_laplacian(u,lapu) BINDC(curl_laplacian) 
     33     FIELD_U   :: u,lapu ! IN, OUT 
     34     FIELD_Z   :: qv  ! BUF 
     35     !$OMP PARALLEL NUM_THREADS(nb_threads) 
     36     CALL update_halo(transfer_edge, u) 
     37     CALL compute_curl_laplacian(u,qv,lapu) 
     38     !$OMP END PARALLEL 
     39   END SUBROUTINE curl_laplacian 
    3140 
    3241  ! 
Note: See TracChangeset for help on using the changeset viewer.