Changeset 1914


Ignore:
Timestamp:
Dec 6, 2013, 12:44:15 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Modifs pour le cas FIRE
MPL

FIRE case mods
MPL

Location:
LMDZ5/trunk/libf/phy1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1907 r1914  
    105105!             initial profile from GCSS file
    106106!             LS convergence imposed from GCSS file
     107!         = 50 ==> forcing_fire = .true.
    107108!         = 59 ==> forcing_sandu = .true.
    108109!             initial profiles from sanduref file: see prof.inp.001

  • LMDZ5/trunk/libf/phy1d/lmdz1d.F

    r1907 r1914  
    266266!             initial profile from GCSS file
    267267!             LS convergence imposed from GCSS file
     268!forcing_type = 50 ==> forcing_fire = .true.
     269!             forcing from fire.nc
    268270!forcing_type = 59 ==> forcing_sandu = .true.
    269271!             initial profiles from sanduref file: see prof.inp.001
    … …  
    297299      elseif (forcing_type .eq.40) THEN
    298300       forcing_GCSSold = .true.
     301      elseif (forcing_type .eq.50) THEN
     302       forcing_fire = .true.
    299303      elseif (forcing_type .eq.59) THEN
    300304       forcing_sandu   = .true.
    … …  
    818822
    819823       fcoriolis=2.*sin(rpi*xlat/180.)*romega
    820        if (forcing_radconv) then
     824       if (forcing_radconv .or. forcing_fire) then
    821825         fcoriolis=0.0
    822826         dt_cooling=0.0
Note: See TracChangeset for help on using the changeset viewer.