Ignore:
Timestamp:
Dec 20, 2016, 7:41:42 PM (8 years ago)
Author:
ymipsl
Message:

LMDZ -DYNAMICO : close properly XIOS when initial state are created.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/create_etat0_limit_unstruct.f90

    r3916 r3983  
    6969              CALL create_etat0_unstruct
    7070              CALL create_limit_unstruct
    71               IF (is_omp_master) CALL xios_context_finalize()
     71              IF (is_omp_master)  THEN
     72                CALL xios_context_finalize()
     73                CALL xios_set_current_context("icosagcm")   ! very bad, need to find an other solution
     74                CALL xios_context_finalize()
     75                CALL xios_finalize()
     76              ENDIF
    7277!$OMP BARRIER
    73               CALL abort_physic ('create_etat0_limit_unstruct','Initial state file are created, all is fine' ,1)
     78              STOP 'create_etat0_limit_unstruct, Initial state file are created, all is fine'
    7479          ENDIF
    7580        ELSE
    7681          IF (create_etat0_limit) THEN
    7782            CALL iniaqua(klon,iflag_phys)
    78             IF (is_omp_master) CALL xios_context_finalize()
     83              IF (is_omp_master)  THEN
     84                CALL xios_context_finalize()
     85                CALL xios_set_current_context("icosagcm")   ! very bad, need to find an other solution
     86                CALL xios_context_finalize()
     87                CALL xios_finalize()
     88              ENDIF
    7989!$OMP BARRIER
    80             CALL abort_physic ('create_etat0_limit_unstruct','Initial state file are created, all is fine' ,1)
     90              STOP 'create_etat0_limit_unstruct, Initial state file are created, all is fine'
    8191          ENDIF
    8292        ENDIF
Note: See TracChangeset for help on using the changeset viewer.