Changeset 2821


Ignore:
Timestamp:
Mar 13, 2017, 2:54:30 PM (7 years ago)
Author:
dcugnet
Message:

Fix bug introduced in rev. 2820.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/open_climoz_m.F90

    r2820 r2821  
    5959    !--- BUILD EDGES OF PRESSURE INTERVALS: HALFWAY IN LOGARITHMS
    6060    ALLOCATE(press_in_edg(nlev+1))
    61     press_in_edg=[0.,press_in_cen(1:nlev-1)*press_in_cen(2:nlev),HUGE(0.)]
     61    press_in_edg=[0.,SQRT(press_in_cen(1:nlev-1)*press_in_cen(2:nlev)),HUGE(0.)]
    6262
    6363    !--- CHECK RECORDS NUMBER AND DISPLAY CORRESPONDING INFORMATION
Note: See TracChangeset for help on using the changeset viewer.