Changeset 4051


Ignore:
Timestamp:
Dec 24, 2021, 5:29:37 PM (2 years ago)
Author:
dcugnet
Message:

Fix for the previous commit.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

    r4050 r4051  
    711711    END DO
    712712
    713     WRITE(lunout,*) 'infotrac: nqDescen=',tracers(iq)%nqDescen
     713    WRITE(lunout,*) 'infotrac: nqDescen=',tracers(:)%nqDescen
    714714    WRITE(lunout,*) 'iqfils=',iqfils
    715715    WRITE(lunout,*) 'nqDescen_tot=',SUM(tracers(:)%nqDescen)
Note: See TracChangeset for help on using the changeset viewer.