Changeset 804 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Jul 4, 2007, 4:40:39 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Un probleme sur le calcul des niveaux verticaux L.Li
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/readsulfate.F

    r801 r804  
    192192               ig=ig+1
    193193               if (ig.gt.klon) write (*,*) 'shit'
    194                so4(ig,k,it) = so4_1(i,jjm+1-j,klev+1-k,it)
     194               so4(ig,k,it) = so4_1(i,jjm+1+1-j,klev+1-k,it)
    195195            ENDDO
    196196         ENDDO
    … …  
    430430               ig=ig+1
    431431               if (ig.gt.klon) write (*,*) 'shit'
    432                pi_so4(ig,k,it) = pi_so4_1(i,jjm+1-j,klev+1-k,it)
     432               pi_so4(ig,k,it) = pi_so4_1(i,jjm+1+1-j,klev+1-k,it)
    433433            ENDDO
    434434         ENDDO
Note: See TracChangeset for help on using the changeset viewer.