Ignore:
Timestamp:
Oct 26, 2016 11:15:40 AM (5 years ago)
Author:
knoop
Message:

Anelastic approximation implemented

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/header.f90

    r2001 r2037  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Anelastic approximation implemented
    2323!
    2424! Former revisions:
     
    552552!-- Numerical schemes
    553553    WRITE ( io, 110 )
     554    WRITE ( io, 121 )  TRIM( approximation )
    554555    IF ( psolver(1:7) == 'poisfft' )  THEN
    555556       WRITE ( io, 111 )  TRIM( fft_method )
     
    19061907110 FORMAT (/' Numerical Schemes:'/ &
    19071908             ' -----------------'/)
     1909121 FORMAT (' --> Use the ',A,' approximation for the model equations.')
    19081910111 FORMAT (' --> Solve perturbation pressure via FFT using ',A,' routines')
    19091911112 FORMAT (' --> Solve perturbation pressure via SOR-Red/Black-Schema'/ &
Note: See TracChangeset for help on using the changeset viewer.