Ignore:
Timestamp:
06/17/19 17:38:58 (5 years ago)
Author:
dubos
Message:

devel : compute_pression for unstructured mesh

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90

    r906 r913  
    1212    END SUBROUTINE comp_rhodz 
    1313 
     14    SUBROUTINE comp_pression(ps, p, offset) 
     15      USE prec, ONLY : rstd 
     16      INTEGER, INTENT(IN) :: offset 
     17      REAL(rstd), INTENT(IN) :: ps(1) 
     18      REAL(rstd), INTENT(OUT) :: p(1,1) 
     19    END SUBROUTINE comp_pression 
    1420  END INTERFACE 
    1521 
    1622  PROCEDURE(comp_rhodz), POINTER :: compute_rhodz 
     23  PROCEDURE(comp_pression), POINTER :: compute_pression, compute_pression_mid 
    1724 
    1825END MODULE compute_diagnostics_mod 
Note: See TracChangeset for help on using the changeset viewer.