Ignore:
Timestamp:
07/15/19 23:21:31 (5 years ago)
Author:
dubos
Message:

devel : fixed diagnosis of hydrostatic pressure for Lagrangian vertical coordinate

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r919 r955  
    4343    USE xios_mod 
    4444    USE earth_const 
    45     USE compute_pression_mod, ONLY : pression_mid 
     45    USE compute_pression_mod, ONLY : pression_mid, hydrostatic_pressure 
    4646    USE compute_temperature_mod 
    4747    USE compute_velocity_mod 
    … …  
    9898    END IF 
    9999 
    100     CALL pression_mid(f_ps, f_pmid) 
     100    CALL hydrostatic_pressure(f_mass, f_theta_rhodz, f_ps, f_pmid)  
    101101    CALL temperature(f_pmid, f_q, f_buf_i) ! f_buf_i : IN = theta, out = T 
    102102 
Note: See TracChangeset for help on using the changeset viewer.