Changeset 165


Ignore:
Timestamp:
06/29/13 02:31:30 (11 years ago)
Author:
dubos
Message:

boussinesq flag for shallow-water / Ripa equations

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r131 r165  
    1212  REAL(rstd),SAVE :: pa=50000. 
    1313  REAL(rstd),SAVE :: scale_factor=1. 
     14 
     15  LOGICAL, SAVE :: boussinesq 
    1416 
    1517CONTAINS 
    … …  
    2830    CALL getin("preff",preff)   
    2931     
     32    boussinesq=.FALSE. 
     33    CALL getin("boussinesq",boussinesq)   
     34     
    3035    radius=radius/scale_factor 
    3136    omega=omega*scale_factor 
Note: See TracChangeset for help on using the changeset viewer.