Changeset 3284 for trunk

Timestamp:

Mar 26, 2024, 10:02:50 PM (8 months ago)

Author:

sglmd

Message:

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

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -2605 +2605 @@
         call writediagfi(ngrid,"dtrad","radiative heating","K s-1",3,dtrad)
         call writediagfi(ngrid,"zdtdyn","Dyn. heating","T s-1",3,zdtdyn)
-        call writediagfi(ngrid,"dtmoistadj","moist adj heating","K s-1",3,dtmoist)
-        call writediagfi(ngrid,"dtdryadj","dry adj heating","K s-1",3,zdtadj)
+
+        if (tracer .or. water) call writediagfi(ngrid,"dtmoistadj","moist adj heating","K s-1",3,dtmoist)
+        if (calladj) call writediagfi(ngrid,"dtdryadj","dry adj heating","K s-1",3,zdtadj)
 
         ! For Debugging.