Changeset 956 for codes


Ignore:
Timestamp:
07/16/19 01:44:17 (5 years ago)
Author:
dubos
Message:

devel : bugfix in pressure diagnostics

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/diagnostics/compute_pression.F90

    r955 r956  
    170170 
    171171  SUBROUTINE compute_hydrostatic_pressure_unst(rhodz, theta_rhodz, ps, pk) 
    172     FIELD_MASS,  INTENT(IN)  :: rhodz ! mass per unit surface in each model level 
    173     FIELD_THETA, INTENT(IN)  :: theta_rhodz(iim*jjm,llm, nqdyn) ! dynamical tracers (theta/entropy) 
    174     FIELD_PS,    INTENT(OUT) :: ps(iim*jjm)        ! surface pressure, diagnosed if Lagrangian vertical coordinate  
    175     FIELD_MASS,  INTENT(OUT) :: pk(iim*jjm,llm)    ! pressure at full levels 
     172    FIELD_MASS,  INTENT(IN)  :: rhodz 
     173    FIELD_THETA, INTENT(IN)  :: theta_rhodz 
     174    FIELD_PS,    INTENT(OUT) :: ps 
     175    FIELD_MASS,  INTENT(OUT) :: pk 
    176176    DECLARE_INDICES 
    177177#include "../kernels_unst/compute_hydrostatic_pressure.k90" 
Note: See TracChangeset for help on using the changeset viewer.