Changeset 1973 for LMDZ5/trunk/libf/phylmd/physiq.F90

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

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -1782 +1782 @@
      !-----------------------------------------------------------------------------------------
      ! ajout des tendances de la diffusion turbulente
-     CALL add_phys_tend &
+     IF (klon_glo==1) THEN
+        CALL add_pbl_tend &
           (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,'vdf')
+     ELSE
+        CALL add_phys_tend &
+          (d_u_vdf,d_v_vdf,d_t_vdf+d_t_diss,d_q_vdf,dql0,'vdf')
+     ENDIF
      !-----------------------------------------------------------------------------------------