Changeset 1973


Ignore:
Timestamp:
Feb 14, 2014, 10:35:14 AM (11 years ago)
Author:
fhourdin
Message:

Le add_pbl_tend est passé de phy1d à phylmd et appelé dans phylmd/physiq.F90
si klon_glo=1
add_pbl_tend is moved from phy1d to phylmd and called in phylmd/physiq.F90
if klon_glo=1

Location:
LMDZ5/trunk/libf
Files:
1 added
1 deleted
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r1956 r1973  
    17821782     !-----------------------------------------------------------------------------------------
    17831783     ! ajout des tendances de la diffusion turbulente
    1784      CALL add_phys_tend &
     1784     IF (klon_glo==1) THEN
     1785        CALL add_pbl_tend &
    17851786          (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,'vdf')
     1787     ELSE
     1788        CALL add_phys_tend &
     1789          (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,'vdf')
     1790     ENDIF
    17861791     !-----------------------------------------------------------------------------------------
    17871792
Note: See TracChangeset for help on using the changeset viewer.