Ignore:
Timestamp:
Feb 18, 2010, 2:14:02 PM (14 years ago)
Author:
Laurent Fairhead
Message:

Modifications to thermals for TKE transport

Modifications aux thermiques pour le transport de la TKE

pbl_surface_mode.F90 : ok_flux_surf=.false. seulement pour klon>1
physiq.F : option iflag_pbl=10 pour transporter la TKE avec les thermiques.
calltherm.F90 : passage de iflag_thermals_ed en argument pour thermcell_plume
thermcell_main.F90 : Appel a plusieurs version de thermcell_plume en option
thermcell_plume.F90 : plusieurs versions dans le meme fichier (temporaire)
thermcell_height.F90 : verrue pour les cas ou les thermiques montent tout

en haut

yamada4 : inclusion de la diffusion verticale en option iflag_pbl=9

+ variables anciennement common, puis save/allocatable, remises en local

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/printflag.F

    r1279 r1311  
    8585       IF( INT( tabcntr0( 6 ) ) .NE. nbapp_rad  )   THEN
    8686        PRINT 21,  INT(tabcntr0(6)), nbapp_rad
    87         radpas0  = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) )
     87!        radpas0  = NINT( 86400./tabcntr0(1)/INT( tabcntr0(6) ) )
    8888        PRINT 100
    8989        PRINT 22, radpas0, radpas
Note: See TracChangeset for help on using the changeset viewer.