Ignore:
Timestamp:
Jan 18, 2019, 12:27:10 PM (6 years ago)
Author:
aboissinot
Message:

f0 is now allocated only if calltherm=true.
Useless thermal plume model flag "iflag_thermals_alim" is removed.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2066 r2069  
    22!
    33!
    4       SUBROUTINE thermcell_alim(flag,ngrid,klev,ztv,zlev,alim_star,           &
    5                                 lalim,lmin)
     4      SUBROUTINE thermcell_alim(ngrid,klev,ztv,zlev,alim_star,lalim,lmin)
    65     
    76     
    … …  
    2726      INTEGER, INTENT(IN) :: klev
    2827      INTEGER, INTENT(IN) :: lmin(ngrid)        ! plume initial level
    29       INTEGER, INTENT(IN) :: flag               ! useless here
    3028     
    3129      REAL, INTENT(IN) :: ztv(ngrid,klev)       ! Large scale virtual potential temperature
Note: See TracChangeset for help on using the changeset viewer.