Ignore:
Timestamp:
Oct 24, 2008, 5:14:34 PM (16 years ago)
Author:
lmdzadmin
Message:

Flags en plus pour les thermiques.
FH/IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/conf_phys.F90

    r1013 r1027  
    1414 &                     bl95_b0, bl95_b1,&
    1515 &                     iflag_thermals,nsplit_thermals,tau_thermals, &
     16 &                     iflag_thermals_ed,iflag_thermals_optflux, &
    1617 &                     iflag_coupl,iflag_clos,iflag_wake )
    1718
     
    8384
    8485  integer :: iflag_thermals,nsplit_thermals
     86  integer,SAVE :: iflag_thermals_ed_omp,iflag_thermals_optflux_omp
     87  integer :: iflag_thermals_ed,iflag_thermals_optflux
    8588  integer,SAVE :: iflag_thermals_omp,nsplit_thermals_omp
    8689  real :: tau_thermals
     
    861864  iflag_thermals_omp = 0
    862865  call getin('iflag_thermals',iflag_thermals_omp)
     866!
     867!
     868!Config Key  = iflag_thermals_ed
     869!Config Desc =
     870!Config Def  = 0
     871!Config Help =
     872!
     873  iflag_thermals_ed_omp = 0
     874  call getin('iflag_thermals_ed',iflag_thermals_ed_omp)
     875!
     876!
     877!Config Key  = iflag_thermals_optflux
     878!Config Desc =
     879!Config Def  = 0
     880!Config Help =
     881!
     882  iflag_thermals_optflux_omp = 0
     883  call getin('iflag_thermals_optflux',iflag_thermals_optflux_omp)
    863884!
    864885!
     
    12261247    ip_ebil_phy = ip_ebil_phy_omp
    12271248    iflag_thermals = iflag_thermals_omp
     1249    iflag_thermals_ed = iflag_thermals_ed_omp
     1250    iflag_thermals_optflux = iflag_thermals_optflux_omp
    12281251    nsplit_thermals = nsplit_thermals_omp
    12291252    tau_thermals = tau_thermals_omp
     
    13461369  write(numout,*)' iflag_pbl = ', iflag_pbl
    13471370  write(numout,*)' iflag_thermals = ', iflag_thermals
     1371  write(numout,*)' iflag_thermals_ed = ', iflag_thermals_ed
     1372  write(numout,*)' iflag_thermals_optflux = ', iflag_thermals_optflux
    13481373  write(numout,*)' type_run = ',type_run
    13491374  write(numout,*)' ok_isccp = ',ok_isccp
Note: See TracChangeset for help on using the changeset viewer.