Changeset 6123 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Mar 23, 2026, 11:31:01 PM (9 days ago)
Author:
lguez
Message:

Remove useless deallocate statements

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6122 r6123  
    53975397       !         close(97)
    53985398
    5399        IF (is_omp_master) THEN
    5400 
    5401           IF (read_climoz >= 1) THEN
    5402              IF (is_mpi_root) CALL nf95_close(ncid_climoz)
    5403              DEALLOCATE(press_edg_climoz)
    5404              DEALLOCATE(press_cen_climoz)
    5405           ENDIF
    5406 
    5407        ENDIF
     5399       IF (is_omp_master .and. read_climoz >= 1 .and. is_mpi_root) &
     5400            CALL nf95_close(ncid_climoz)
    54085401
    54095402       IF (using_xios) THEN
Note: See TracChangeset for help on using the changeset viewer.