Changeset 3284 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Mar 26, 2024, 10:02:50 PM (9 months ago)
Author:
sglmd
Message:

small correction to commit 3270 by MT (call writediagfi only if the variable exists)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r3278 r3284  
    26052605        call writediagfi(ngrid,"dtrad","radiative heating","K s-1",3,dtrad)
    26062606        call writediagfi(ngrid,"zdtdyn","Dyn. heating","T s-1",3,zdtdyn)
    2607         call writediagfi(ngrid,"dtmoistadj","moist adj heating","K s-1",3,dtmoist)
    2608         call writediagfi(ngrid,"dtdryadj","dry adj heating","K s-1",3,zdtadj)
     2607
     2608        if (tracer .or. water) call writediagfi(ngrid,"dtmoistadj","moist adj heating","K s-1",3,dtmoist)
     2609        if (calladj) call writediagfi(ngrid,"dtdryadj","dry adj heating","K s-1",3,zdtadj)
    26092610
    26102611        ! For Debugging.
Note: See TracChangeset for help on using the changeset viewer.