Changeset 3234 for LMDZ6/trunk


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

Correction zhalf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3219 r3234  
    14801480        DO k = 2, klev
    14811481         DO i = 1, klon
    1482             zx_tmp_fi3d(i,k) = zphi(i,k)/RG + &
     1482            zx_tmp_fi3d(i,k) = zphi(i,k-1)/RG + &
    14831483                          (zphi(i,k)-zphi(i,k-1))/RG * &
    1484                           (paprs(i,k)-pplay(i,k))/(pplay(i,k)-pplay(i,k-1))
     1484                          (paprs(i,k)-pplay(i,k-1))/(pplay(i,k)-pplay(i,k-1))
    14851485         ENDDO
    14861486        ENDDO
Note: See TracChangeset for help on using the changeset viewer.