Ignore:
Timestamp:
Mar 5, 2018, 2:49:00 PM (7 years ago)
Author:
musat
Message:

Correction zhalf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_write_mod.F90

    r3222 r3235  
    14681468        DO k = 2, klev
    14691469         DO i = 1, klon
    1470             zx_tmp_fi3d(i,k) = zphi(i,k)/RG + &
     1470            zx_tmp_fi3d(i,k) = zphi(i,k-1)/RG + &
    14711471                          (zphi(i,k)-zphi(i,k-1))/RG * &
    1472                           (paprs(i,k)-pplay(i,k))/(pplay(i,k)-pplay(i,k-1))
     1472                          (paprs(i,k)-pplay(i,k-1))/(pplay(i,k)-pplay(i,k-1))
    14731473         ENDDO
    14741474        ENDDO
Note: See TracChangeset for help on using the changeset viewer.