Changeset 840


Ignore:
Timestamp:
05/03/19 16:09:43 (5 years ago)
Author:
dubos
Message:

devel : work around intel-15 compiler issue

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90

    r827 r840  
    77#include "../unstructured/unstructured.h90" 
    88 
    9   PROCEDURE(comp_pvort_only), POINTER :: & 
    10        ptr1 => compute_pvort_only_unst, & 
    11        ptr2 => compute_pvort_only_hex 
    12    
    139  PUBLIC :: compute_pvort_only_hex, compute_pvort_only_unst 
    1410 
    1511CONTAINS 
     12 
     13  SUBROUTINE check_interface 
     14    PROCEDURE(comp_pvort_only), POINTER :: ptr 
     15    ptr => compute_pvort_only_unst 
     16    ptr => compute_pvort_only_hex 
     17  END SUBROUTINE check_interface 
    1618   
    1719  SUBROUTINE compute_pvort_only_unst(u,rhodz,qu,qv, hv_) 
Note: See TracChangeset for help on using the changeset viewer.