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/initial/etat0_database.f90

    r726 r913  
    11MODULE etat0_database_mod 
     2  IMPLICIT NONE 
    23 
    34 
    … …  
    78  USE xios_mod 
    89  USE omp_para 
    9   IMPLICIT NONE 
    1010   
    1111    IF (is_omp_master) THEN 
    … …  
    2727  USE theta2theta_rhodz_mod 
    2828  USE qsat_mod 
    29   USE pression_mod 
     29  USE compute_pression_mod, ONLY : pression 
    3030  USE omp_para 
    31   IMPLICIT NONE 
    3231    TYPE(t_field),POINTER :: f_ps(:) 
    3332    TYPE(t_field),POINTER :: f_phis(:) 
Note: See TracChangeset for help on using the changeset viewer.