Ignore:
Timestamp:
Mar 28, 2017, 3:39:31 PM (7 years ago)
Author:
acozic
Message:

transfer aps and bps to INCA / in phys_output_mod replace Ahyb and Bhyb by aps and bps as decide by email (poihl / 28/03/2017)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/physiq_mod.F90

    r2831 r2832  
    249249    use FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
    250250    use ACAMA_GWD_rando_m, only: ACAMA_GWD_rando
     251    USE VERTICAL_LAYERS_MOD, ONLY: aps,bps
     252
    251253
    252254    IMPLICIT none
    … …  
    659661    REAL beta_prec_fisrt(klon,klev) ! taux de conv de l'eau cond (fisrt)
    660662    ! RomP <<<
     663    REAL          :: calday
    661664
    662665    !IM cf FH pour Tiedtke 080604
    … …  
    42434246            pphi, &
    42444247            pphis, &
    4245             zx_rh)
     4248            zx_rh, &
     4249            aps, bps)
    42464250
    42474251       CALL VTe(VTinca)
Note: See TracChangeset for help on using the changeset viewer.