Changeset 5206 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 20, 2024, 3:50:41 PM (2 months ago)
Author:
Laurent Fairhead
Message:

Corrections to properly close XIOS contexts in LMDZ (either with DYNAMICO or lonlat)
Anne Cozic

Location:
LMDZ6/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r4848 r5206  
    418418        IF (using_xios) THEN
    419419          !Fermeture propre de XIOS
     420          ! close xios dynamic context if is defined (call LMDZDYN)   
     421          IF (ok_dyn_xios) THEN
     422             CALL xios_context_finalize()
     423          ENDIF
    420424          CALL wxios_close()
    421425          CALL prism_terminate_proto(ierr)
    … …  
    435439        IF (using_xios) THEN
    436440          !Fermeture propre de XIOS
     441          IF (ok_dyn_xios) THEN
     442             CALL xios_context_finalize()
     443          ENDIF
    437444          CALL wxios_close()
    438445        ENDIF

  • LMDZ6/trunk/libf/misc/wxios.F90

    r5084 r5206  
    780780   
    781781    SUBROUTINE wxios_close()
    782         CALL xios_context_finalize()
     782!        CALL xios_context_finalize()
    783783         CALL xios_finalize()
    784784     END SUBROUTINE wxios_close

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5204 r5206  
    58165816#endif
    58175817
    5818           IF (is_omp_master .and. grid_type==unstructured) CALL xios_context_finalize
     5818! close xios physiq context (call LMDZ)
     5819          IF (is_omp_master) CALL xios_context_finalize
    58195820       ENDIF
    58205821
Note: See TracChangeset for help on using the changeset viewer.