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/compute_diagnostics.f90

    r952 r955  
    3131    END SUBROUTINE comp_temperature 
    3232 
     33    SUBROUTINE comp_hydro_press(rhodz, theta_rhodz, ps, p) 
     34      IMPORT 
     35      REAL(rstd),INTENT(IN)  :: rhodz(iim_jjm_i, llm_) 
     36      REAL(rstd),INTENT(IN)  :: theta_rhodz(iim_jjm_i, llm_, nqdyn_) 
     37      REAL(rstd),INTENT(OUT) :: ps(iim_jjm_i) 
     38      REAL(rstd),INTENT(OUT) :: p(iim_jjm_i, llm_) 
     39    END SUBROUTINE comp_hydro_press 
     40 
    3341  END INTERFACE 
    3442 
    … …  
    3644  PROCEDURE(comp_pression),    POINTER :: compute_pression => NULL(), compute_pression_mid => NULL() 
    3745  PROCEDURE(comp_temperature), POINTER :: compute_temperature => NULL() 
     46  PROCEDURE(comp_hydro_press), POINTER :: compute_hydrostatic_pressure => NULL() 
    3847 
    39   PUBLIC :: compute_rhodz, compute_pression, compute_pression_mid, compute_temperature 
     48  PUBLIC :: compute_rhodz, compute_pression, compute_pression_mid, compute_temperature, compute_hydrostatic_pressure 
    4049 
    4150END MODULE compute_diagnostics_mod 
Note: See TracChangeset for help on using the changeset viewer.