Changeset 4187 for LMDZ6/trunk/libf


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

Location:
LMDZ6/trunk/libf
Files:
2 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
  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r4170 r4187  
    25482548           CALL histwrite_phy(o_flx_co2_bb,    fco2_bb)
    25492549
    2550          ELSE IF (ANY(types_trac=='lmdz') .OR. ANY(types_trac=='coag')) THEN
     2550         ELSE IF ((ANY(types_trac=='lmdz') .OR. ANY(types_trac=='coag')) .AND. ALL(types_trac /= 'inca')) THEN
    25512551           itr = 0
    25522552           DO iq = 1, nqtot
Note: See TracChangeset for help on using the changeset viewer.