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

    r775 r784  
    2121#define HASNAN(field) (ANY(.NOT.ABS(field)<1e20)) 
    2222 
     23   SUBROUTINE scalar_laplacian(s,laps) BINDC(scalar_laplacian) 
     24     FIELD_MASS   :: s,laps ! IN, OUT 
     25     FIELD_U      :: grads  ! BUF 
     26     !$OMP PARALLEL NUM_THREADS(nb_threads) 
     27     CALL update_halo(transfer_primal, s) 
     28     CALL compute_scalar_laplacian(s,grads,laps) 
     29     !$OMP END PARALLEL 
     30   END SUBROUTINE scalar_laplacian 
     31 
     32  ! 
    2333  SUBROUTINE caldyn_unstructured(tau, mass_col,rhodz,theta_rhodz,u,geopot,w, & ! IN : flow state 
    2434                                 theta,ps,pk,hflux,qv, &    ! OUT : diags (except surface geopot : IN) 
Note: See TracChangeset for help on using the changeset viewer.