Changeset 4607 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jul 5, 2023, 11:39:50 AM (17 months ago)
Author:
acozic
Message:

Fixe a bug when we are using xios on dynamics and we are coupling with atm chemistry
We need to add some switching context when we call finalize_inca routine
Anne Cozic

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4389 r4607  
    4343     &                        day_ref,start_time,dt
    4444#ifdef CPP_XIOS
    45        USE xios, ONLY: xios_update_calendar
     45       USE mod_xios_dyn3dmem, ONLY : dyn3d_ctx_handle
     46       USE xios, ONLY: xios_update_calendar, xios_set_current_context
    4647#endif
    4748       
    … …  
    15191520
    15201521#ifdef INCA
    1521          if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca
     1522         IF (ANY(type_trac == ['inca','inco'])) THEN
     1523            CALL finalize_inca
     1524!     switching back to LMDZDYN context
     1525#ifdef CPP_XIOS
     1526!$OMP MASTER
     1527            IF (ok_dyn_xios) THEN
     1528               CALL xios_set_current_context(dyn3d_ctx_handle)
     1529            ENDIF
     1530!$OMP END MASTER
     1531#endif
     1532         ENDIF
    15221533#endif
    15231534#ifdef REPROBUS
    … …  
    15681579
    15691580#ifdef INCA
    1570               if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca
     1581              IF (ANY(type_trac == ['inca','inco'])) THEN
     1582                 CALL finalize_inca
     1583!     switching back to LMDZDYN context
     1584#ifdef CPP_XIOS
     1585!$OMP MASTER
     1586                 IF (ok_dyn_xios) THEN
     1587                    CALL xios_set_current_context(dyn3d_ctx_handle)
     1588                 ENDIF
     1589!$OMP END MASTER
     1590#endif
     1591              ENDIF
    15711592#endif
    15721593#ifdef REPROBUS
    … …  
    17351756
    17361757#ifdef INCA
    1737               if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca
     1758                 IF (ANY(type_trac == ['inca','inco'])) THEN
     1759                    CALL finalize_inca
     1760!     switching back to LMDZDYN context
     1761#ifdef CPP_XIOS
     1762!$OMP MASTER
     1763                    IF (ok_dyn_xios) THEN
     1764                       CALL xios_set_current_context(dyn3d_ctx_handle)
     1765                    ENDIF
     1766!$OMP END MASTER
     1767#endif
     1768                 ENDIF
     1769
    17381770#endif
    17391771#ifdef REPROBUS
    … …  
    18421874
    18431875#ifdef INCA
    1844       if (ANY(type_trac == ['inca','inco'])) CALL finalize_inca
     1876      IF (ANY(type_trac == ['inca','inco'])) THEN
     1877         CALL finalize_inca
     1878!     switching back to LMDZDYN context
     1879#ifdef CPP_XIOS
     1880!$OMP MASTER
     1881         IF (ok_dyn_xios) THEN
     1882            CALL xios_set_current_context(dyn3d_ctx_handle)
     1883         ENDIF
     1884!$OMP END MASTER
     1885#endif
     1886      ENDIF
     1887
    18451888#endif
    18461889#ifdef REPROBUS
Note: See TracChangeset for help on using the changeset viewer.