Changeset 1908 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Nov 27, 2013, 11:11:28 AM (11 years ago)
Author:
acozic
Message:

Fix a bug when we initialize value of q

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/dynetat0_loc.F

    r1907 r1908  
    377377            CALL abort
    378378          ENDIF
     379        q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:)
     380
    379381        ENDIF
    380         q(ijb_u:ije_u,:,iq)=q_glo(ijb_u:ije_u,:)
    381382      ENDDO
    382383
Note: See TracChangeset for help on using the changeset viewer.