Changeset 3544 for LMDZ6/trunk


Ignore:
Timestamp:
Jul 9, 2019, 10:28:57 AM (5 years ago)
Author:
acozic
Message:

add a flag before calling finalize_inca from leapfrog. Without the flag there is a bug when we use lmdz compile with inca but running without it

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F

    r2622 r3544  
    15351535
    15361536#ifdef INCA
    1537          call finalize_inca
     1537         if (type_trac == 'inca') then
     1538            call finalize_inca
     1539         endif
    15381540#endif
    15391541
    … …  
    15831585
    15841586#ifdef INCA
    1585               call finalize_inca
     1587              if (type_trac == 'inca') then
     1588                 call finalize_inca
     1589              endif
    15861590#endif
    15871591
    … …  
    17321736
    17331737#ifdef INCA
    1734                  call finalize_inca
     1738                 if (type_trac == 'inca') then
     1739                    call finalize_inca
     1740                 endif
    17351741#endif
    17361742
    … …  
    18201826
    18211827#ifdef INCA
    1822       call finalize_inca
     1828      if (type_trac == 'inca') then
     1829         call finalize_inca
     1830      endif
    18231831#endif
    18241832
Note: See TracChangeset for help on using the changeset viewer.