Ignore:
Timestamp:
Jun 28, 2022, 5:06:01 PM (2 years ago)
Author:
acozic
Message:

Add a syntax correction in leapfrog_loc for compilation with inca / add a condition on inca in phys_output_write to be use without inca

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4172 r4187  
    15191519
    15201520#ifdef INCA
    1521          if (ANY(types_trac == 'inca') .OR. &
     1521         if (ANY(types_trac == 'inca') .OR.
    15221522     &       ANY(types_trac == 'inco')) CALL finalize_inca
    15231523#endif
    … …  
    15691569
    15701570#ifdef INCA
    1571               if (ANY(types_trac == 'inca') .OR. &
     1571              if (ANY(types_trac == 'inca') .OR.
    15721572     &            ANY(types_trac == 'inco')) CALL finalize_inca
    15731573#endif
    … …  
    17371737
    17381738#ifdef INCA
    1739                  if (ANY(types_trac == 'inca') .OR. &
     1739                 if (ANY(types_trac == 'inca') .OR.
    17401740     &               ANY(types_trac == 'inco')) CALL finalize_inca
    17411741#endif
    … …  
    18451845
    18461846#ifdef INCA
    1847       if (ANY(types_trac == 'inca') .OR. &
     1847      if (ANY(types_trac == 'inca') .OR.
    18481848     &    ANY(types_trac == 'inco')) CALL finalize_inca
    18491849#endif
Note: See TracChangeset for help on using the changeset viewer.