Changeset 4817 for LMDZ6/trunk/libf/misc


Ignore:
Timestamp:
Feb 14, 2024, 10:46:30 AM (11 months ago)
Author:
Sebastien Nguyen
Message:

modifications for using xios with LMDZISO and a minor bug in wxios.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4619 r4817  
    99    CHARACTER(len=100), SAVE :: g_ctx_name ="LMDZ"
    1010    TYPE(xios_context), SAVE :: g_ctx
    11 !$OMP THREADPRIVATE(g_comm,g_cts_name,g_ctx)
     11!$OMP THREADPRIVATE(g_comm,g_ctx_name,g_ctx)
    1212    LOGICAL, SAVE :: g_flag_xml = .FALSE.
    1313    CHARACTER(len=100) :: g_field_name = "nofield"
Note: See TracChangeset for help on using the changeset viewer.