Changeset 1914 for LMDZ5/trunk/libf/phy1d

Timestamp:

Dec 6, 2013, 12:44:15 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Modifs pour le cas FIRE
MPL

---

FIRE case mods
MPL

Location:

LMDZ5/trunk/libf/phy1d

Files:

• 1DUTILS.h (modified) (1 diff)
• lmdz1d.F (modified) (3 diffs)

LMDZ5/trunk/libf/phy1d/1DUTILS.h

@@ -105 +105 @@
 !             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

LMDZ5/trunk/libf/phy1d/lmdz1d.F

@@ -266 +266 @@
 !             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 +299 @@
       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 +822 @@
 
        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