Changeset 4438 for LMDZ6/trunk/libf/phylmd/thermcell_main.F90

Timestamp:

Feb 15, 2023, 12:09:56 AM (20 months ago)

Author:

fhourdin

Message:

Correction for singular cases, thermcell_down

File:

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

LMDZ6/trunk/libf/phylmd/thermcell_main.F90

@@ -502 +502 @@
 !------------------------------------------------------------------
       IF (iflag_thermals_down .GT. 0) THEN
-        print*,'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA'
-        print*,'WARNING !!! routine thermcell_down en cours de developpement'
+        if (debut) print*,'WARNING !!! routine thermcell_down en cours de developpement'
         entrdn=entrdn_coef*detr0
         detrdn=detrdn_coef*entr0