Changeset 5913 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Dec 4, 2025, 5:00:50 PM (7 weeks ago)

Author:

Laurent Fairhead

Message:

Continuing corrections on revision 5905

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -2024 +2024 @@
        IF (phys_tstep*REAL(radpas).GT.21600..AND.iflag_cycle_diurne.GE.1) THEN
           WRITE(lunout,*)'Nbre d appels au rayonnement insuffisant'
+          WRITE(lunout,*)'phys_tstep =', phys_tstep, radpas, iflag_cycle_diurne
           WRITE(lunout,*)"Au minimum 4 appels par jour si cycle diurne"
           abort_message='Nbre d appels au rayonnement insuffisant'