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/vertical/vertical_interp.f90

    r531 r913  
    11MODULE vertical_interp_mod 
    22  USE icosa 
     3  USE omp_para 
     4  USE compute_diagnostics_mod 
     5  IMPLICIT NONE 
    36  PRIVATE 
    47   
    … …  
    1013CONTAINS 
    1114 
    12   SUBROUTINE init_vertical_interp 
    13   USE icosa 
    14   IMPLICIT NONE 
    15      
     15  SUBROUTINE init_vertical_interp     
    1616!    CALL allocate_field(f_p,field_t,type_real,llm+1) 
    17      
    1817  END SUBROUTINE init_vertical_interp 
    1918     
    2019  SUBROUTINE vertical_interp(f_pmid,f_in,f_out,pval) 
    21   USE icosa 
    22   USE pression_mod 
    23   USE omp_para 
    24   IMPLICIT NONE 
    2520    TYPE(t_field),POINTER :: f_pmid(:) 
    2621    TYPE(t_field),POINTER :: f_in(:) 
    … …  
    4742 
    4843  SUBROUTINE compute_vertical_interp(pmid,in,out,pval) 
    49   USE omp_para 
    50   IMPLICIT NONE 
    5144    REAL(rstd),INTENT(IN) :: pmid(iim*jjm,llm) 
    5245    REAL(rstd),INTENT(IN) :: in(iim*jjm,llm) 
Note: See TracChangeset for help on using the changeset viewer.