Ignore:
Timestamp:
Apr 20, 2020, 12:13:34 PM (4 years ago)
Author:
lfalletti
Message:

Adding changes for Reprobus

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3583 r3666  
    15431543         endif
    15441544#endif
     1545#ifdef REPROBUS
     1546         if (type_trac == 'repr') then
     1547         call finalize_reprobus
     1548         endif
     1549#endif
    15451550
    15461551c$OMP MASTER
    … …  
    15931598              endif
    15941599#endif
     1600#ifdef REPROBUS
     1601              if (type_trac == 'repr') then
     1602         call finalize_reprobus
     1603              endif
     1604#endif
    15951605
    15961606c$OMP MASTER
    … …  
    17421752                 if (type_trac == 'inca') then
    17431753                    call finalize_inca
     1754                 endif
     1755#endif
     1756#ifdef REPROBUS
     1757                 if (type_trac == 'repr') then
     1758         call finalize_reprobus
    17441759                 endif
    17451760#endif
    … …  
    18341849      endif
    18351850#endif
     1851#ifdef REPROBUS
     1852      if (type_trac == 'repr') then
     1853         call finalize_reprobus
     1854      endif
     1855#endif
    18361856
    18371857c$OMP MASTER
Note: See TracChangeset for help on using the changeset viewer.