Changeset 6138 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Mar 26, 2026, 10:23:09 PM (6 days ago)
Author:
lguez
Message:

Duplicate r6123 in phylmdiso

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6137 r6138  
    70837083       !         close(97)
    70847084
    7085        IF (is_omp_master) THEN
    7086 
    7087          IF (read_climoz >= 1) THEN
    7088            IF (is_mpi_root) CALL nf95_close(ncid_climoz)
    7089             DEALLOCATE(press_edg_climoz)
    7090             DEALLOCATE(press_cen_climoz)
    7091          ENDIF
    7092 
    7093        ENDIF
     7085       IF (is_omp_master .and. read_climoz >= 1 .and. is_mpi_root) &
     7086            CALL nf95_close(ncid_climoz)
    70947087
    70957088       IF (using_xios) THEN
Note: See TracChangeset for help on using the changeset viewer.