Ignore:
Timestamp:
11/21/18 16:16:06 (6 years ago)
Author:
jisesh
Message:

devel/unstructured : laplacian operator

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r749 r784  
    236236END SUBROUTINE 
    237237 
     238SUBROUTINE compute_scalar_laplacian(b,grad,divu) 
     239  FIELD_MASS   :: b, divu ! IN, OUT 
     240  FIELD_U      :: grad ! BUF 
     241  DECLARE_INDICES 
     242  DECLARE_EDGES 
     243  NUM :: div_ij 
     244  START_TRACE(id_scalar_laplacian, 0,0,1) 
     245#include "../kernels_unst/scalar_laplacian.k90" 
     246  STOP_TRACE 
     247END SUBROUTINE compute_scalar_laplacian 
     248 
    238249END MODULE caldyn_unstructured_mod 
Note: See TracChangeset for help on using the changeset viewer.