Changeset 5548 for LMDZ5


Ignore:
Timestamp:
Feb 18, 2025, 4:36:35 PM (4 days ago)
Author:
acozic
Message:

solve a bug when we compile with inca and run without inca

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM5A2.1/libf/dyn3dmem/leapfrog_loc.F

    r2616 r5548  
    15361536
    15371537#ifdef INCA
    1538          call finalize_inca
     1538         if (type_trac .eq. "inca") then
     1539            call finalize_inca
     1540         endif
    15391541#endif
    15401542
    … …  
    15841586
    15851587#ifdef INCA
    1586               call finalize_inca
     1588         if (type_trac .eq. "inca") then
     1589            call finalize_inca
     1590         endif
    15871591#endif
    15881592
    … …  
    17331737
    17341738#ifdef INCA
    1735                  call finalize_inca
     1739                 if (type_trac .eq. "inca") then
     1740                    call finalize_inca
     1741                 endif
    17361742#endif
    17371743
    … …  
    18211827
    18221828#ifdef INCA
    1823       call finalize_inca
     1829      if (type_trac .eq. "inca") then
     1830         call finalize_inca
     1831      endif
    18241832#endif
    18251833
Note: See TracChangeset for help on using the changeset viewer.