Ignore:
Timestamp:
Feb 18, 2019, 12:09:12 PM (6 years ago)
Author:
aboissinot
Message:

Fix an oversight in thermcell_main

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/thermcell_main.F90

    r2102 r2104  
    232232!------Triggering
    233233      real,parameter :: Su=4e4                  ! Surface unite: celle d'un updraft elementaire
    234       real,parameter :: hcoef                   ! Coefficient directeur pour le calcul de s2
     234      real,parameter :: hcoef=1.                ! Coefficient directeur pour le calcul de s2
    235235      real,parameter :: hmincoef=0.3            ! Coefficient directeur pour l'ordonnee a l'origine pour le calcul de s2 (hmincoef=0.3)
    236236      real,parameter :: eps1=0.3                ! Fraction de surface occupee par la population 1 : eps1=n1*s1/(fraca0*Sd)
Note: See TracChangeset for help on using the changeset viewer.