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/data_unstructured.F90

    r759 r784  
    4646  INTEGER, PARAMETER :: id_dev1=1, id_dev2=2, & 
    4747       id_pvort_only=3, id_slow_hydro=4, id_fast=5, id_coriolis=6, id_theta=7, id_geopot=8, id_vert=9, & 
    48        id_solver=10, id_slow_NH=11, id_NH_geopot=12, id_vert_NH=13, id_update=14, id_halo=15, nb_routines=15  
     48       id_solver=10, id_slow_NH=11, id_NH_geopot=12, id_vert_NH=13, id_update=14, id_halo=15, & 
     49       id_scalar_laplacian=16, nb_routines=16  
    4950  TIME, PRIVATE :: start_time, time_spent(nb_routines) ! time spent in each kernel 
    5051  INTEGER, PRIVATE :: current_id, nb_calls(nb_routines) 
    … …  
    5354       (/'dev1      ', 'dev2      ', & 
    5455       'pvort_only', 'slow_hydro', 'fast      ', 'coriolis  ', 'theta     ', 'geopot    ', 'vert      ', & 
    55        'solver    ', 'slow_NH   ', 'NH_geopot ', 'vert_NH   ',  'update    ', 'halo_xchg ' /) 
     56       'solver    ', 'slow_NH   ', 'NH_geopot ', 'vert_NH   ',  'update    ', 'halo_xchg ', 'scalar_lap' /) 
    5657 
    5758  INTEGER, PARAMETER ::transfer_primal=1, transfer_edge=2, transfer_dual=3, transfer_max=3 
Note: See TracChangeset for help on using the changeset viewer.