Ignore:
Timestamp:
Dec 23, 2015, 5:05:06 PM (9 years ago)
Author:
crio
Message:

Prise en compte de l'effet Bergeron dans les flux de pluie grande-echelle
Activer en mettant iflag_bergeron=1 dans physiq.def (valeur par défaut 0)
Representation of the Bergeron effect in the large-scale precipitation fluxes
Activate by iflag_bergeron=1 in physiq.def (standard value 0)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90

    r2408 r2414  
    202202    LOGICAL, SAVE :: ok_conserv_q_omp
    203203    INTEGER, SAVE :: iflag_fisrtilp_qsat_omp
     204    INTEGER, SAVE :: iflag_bergeron_omp
    204205    LOGICAL,SAVE :: ok_strato_omp
    205206    LOGICAL,SAVE :: ok_hines_omp, ok_gwd_rando_omp
     
    754755
    755756    !Config  Key  = iflag_fisrtilp_qsat
    756     !Config  Desc = Flag de convection
    757     !Config  Def  = 1
    758     !Config  Help = Flag  pour la convection les options suivantes existent :
    759     !Config         -1 pour Kinetic energy correction
    760     !Config         1  conservation kinetic and enthalpy
     757    !Config  Desc = Flag de fisrtilp
     758    !Config  Def  = 0
     759    !Config  Help = Flag  pour la pluie grande-échelle les options suivantes existent :
     760    !Config         >1 nb iterations pour converger dans le calcul de qsat
    761761    iflag_fisrtilp_qsat_omp = 0
    762762    CALL getin('iflag_fisrtilp_qsat',iflag_fisrtilp_qsat_omp)
     763
     764    !Config  Key  = iflag_bergeron
     765    !Config  Desc = Flag de fisrtilp
     766    !Config  Def  = 0
     767    !Config  Help = Flag  pour la pluie grande-échelle les options suivantes existent :
     768    !Config         0 pas d effet Bergeron
     769    !Config         1 effet Bergeron pour T<0
     770    iflag_bergeron_omp = 0
     771    CALL getin('iflag_bergeron',iflag_bergeron_omp)
    763772
    764773    !
     
    19581967    ok_conserv_q = ok_conserv_q_omp
    19591968    iflag_fisrtilp_qsat = iflag_fisrtilp_qsat_omp
     1969    iflag_bergeron = iflag_bergeron_omp
    19601970
    19611971    epmax = epmax_omp
     
    22282238    write(lunout,*)'ok_conserv_q=',ok_conserv_q
    22292239    write(lunout,*)'iflag_fisrtilp_qsat=',iflag_fisrtilp_qsat
     2240    write(lunout,*)'iflag_bergeron=',iflag_bergeron
    22302241    write(lunout,*)' epmax = ', epmax
    22312242    write(lunout,*)' ok_adj_ema = ', ok_adj_ema
Note: See TracChangeset for help on using the changeset viewer.