Index: LMDZ5/branches/testing/libf/phy1d/1DUTILS.h
===================================================================
--- LMDZ5/branches/testing/libf/phy1d/1DUTILS.h	(revision 1910)
+++ LMDZ5/branches/testing/libf/phy1d/1DUTILS.h	(revision 1921)
@@ -105,4 +105,5 @@
 !             initial profile from GCSS file
 !             LS convergence imposed from GCSS file
+!         = 50 ==> forcing_fire = .true.
 !         = 59 ==> forcing_sandu = .true.
 !             initial profiles from sanduref file: see prof.inp.001
Index: LMDZ5/branches/testing/libf/phy1d/lmdz1d.F
===================================================================
--- LMDZ5/branches/testing/libf/phy1d/lmdz1d.F	(revision 1910)
+++ LMDZ5/branches/testing/libf/phy1d/lmdz1d.F	(revision 1921)
@@ -266,4 +266,6 @@
 !             initial profile from GCSS file
 !             LS convergence imposed from GCSS file
+!forcing_type = 50 ==> forcing_fire = .true.
+!             forcing from fire.nc
 !forcing_type = 59 ==> forcing_sandu = .true.
 !             initial profiles from sanduref file: see prof.inp.001
@@ -297,4 +299,6 @@
       elseif (forcing_type .eq.40) THEN
        forcing_GCSSold = .true.
+      elseif (forcing_type .eq.50) THEN
+       forcing_fire = .true.
       elseif (forcing_type .eq.59) THEN
        forcing_sandu   = .true.
@@ -818,5 +822,5 @@
 
        fcoriolis=2.*sin(rpi*xlat/180.)*romega
-       if (forcing_radconv) then
+       if (forcing_radconv .or. forcing_fire) then
          fcoriolis=0.0
          dt_cooling=0.0