Changeset 2086 for LMDZ5/trunk/libf/phylmd/add_phys_tend.F90

Timestamp:

Jul 9, 2014, 11:19:07 PM (10 years ago)

Author:

fhourdin

Message:

nclusion de la thermodynamique de la glace
Ice thermodynamics
(Catherine Rio)

File:

• LMDZ5/trunk/libf/phylmd/add_phys_tend.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/add_phys_tend.F90

@@ -2 +2 @@
 ! $Id$
 !
-SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,paprs,text)
+SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,zdqi,paprs,text)
 !======================================================================
 ! Ajoute les tendances des variables physiques aux variables 
@@ -25 +25 @@
 !------------
 REAL zdu(klon,klev),zdv(klon,klev)
-REAL zdt(klon,klev),zdq(klon,klev),zdql(klon,klev)
+REAL zdt(klon,klev),zdq(klon,klev),zdql(klon,klev),zdqi(klon,klev)
 REAL paprs(klon,klev+1)
 CHARACTER*(*) text
@@ -66 +66 @@
      v_seri(:,:)=v_seri(:,:)+zdv(:,:)
      ql_seri(:,:)=ql_seri(:,:)+zdql(:,:)
+     qs_seri(:,:)=qs_seri(:,:)+zdqi(:,:)
 
 !======================================================================