Changeset 4874 for LMDZ6


Ignore:
Timestamp:
Mar 26, 2024, 11:01:06 AM (8 months ago)
Author:
acozic
Message:

finalize_inca need to be call before finalize_lmdz (as it's done in leapfrog_loc)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4872 r4874  
    58105810
    58115811       IF (using_xios) THEN
    5812          IF (is_omp_master .and. grid_type==unstructured) CALL xios_context_finalize
    58135812
    58145813#ifdef INCA
    5815          if (type_trac == 'inca') then
    5816             IF (is_omp_master .and. grid_type==unstructured) THEN
    5817                CALL finalize_inca
    5818             ENDIF
    5819          endif
     5814          IF (type_trac == 'inca') THEN
     5815             IF (is_omp_master .AND. grid_type==unstructured) THEN
     5816                CALL finalize_inca
     5817             ENDIF
     5818          ENDIF
    58205819#endif
    5821        ENDIF
     5820
     5821          IF (is_omp_master .and. grid_type==unstructured) CALL xios_context_finalize
     5822       ENDIF
     5823
    58225824       WRITE(lunout,*) ' physiq fin, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
     5825       
    58235826    ENDIF
    58245827
Note: See TracChangeset for help on using the changeset viewer.