Changeset 3772


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.

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 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)

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

    r3756 r3772  
    977977!!    d_t_diss= 0.0 ;d_u = 0.0     ; d_v = 0.0
    978978    yqsol = 0.0   
    979     ytherm = 0.0  ; ytke=0.
     979    ytke=0.
    980980!FC
    981981    y_treedrg=0.
Note: See TracChangeset for help on using the changeset viewer.