Ignore:
Timestamp:
Sep 30, 2020, 5:26:16 PM (4 years ago)
Author:
lguez
Message:

Bug fix: initialize therm in hbtm

ytherm mixed values of different sub-surfaces at different
positions. This commit fixes ticket #122.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/hbtm.F90

    r3102 r3772  
    110110  ! AM      REAL ztvd, ztvu,
    111111  REAL zdu2
    112   REAL therm(klon) ! thermal virtual temperature excess
     112  REAL, intent(out):: therm(:) ! (klon) thermal virtual temperature excess
    113113  REAL trmb1(klon), trmb2(klon), trmb3(klon)
    114114  ! Algorithme thermique
    … …  
    159159  q_star = 0
    160160  t_star = 0
    161 
     161  therm = 0.
    162162
    163163  b212 = sqrt(b1*b2)
Note: See TracChangeset for help on using the changeset viewer.