Ignore:
Timestamp:
01/30/18 15:28:08 (6 years ago)
Author:
dubos
Message:

trunk/disvert : set pa=preff/2 rather than hard-coded pa=50000

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/base/earth_const.f90

    r580 r669  
    1313  REAL(rstd),SAVE :: Treff=273. 
    1414  REAL(rstd),SAVE :: preff=101325. 
    15   REAL(rstd),SAVE :: pa=50000. 
     15  REAL(rstd),SAVE :: pa=50000. ! default value set to preff/2 by disvert_std 
    1616  REAL(rstd),SAVE :: scale_height=8000. ! atmospheric scale height (m) 
    1717  REAL(rstd),SAVE :: scale_factor=1. 
Note: See TracChangeset for help on using the changeset viewer.