Changeset 2160 for LMDZ5/branches/testing/libf/phylmd/add_phys_tend.F90

Timestamp:

Nov 28, 2014, 4:36:29 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/add_phys_tend.F90 (modified) (3 diffs)

LMDZ5/branches/testing/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(:,:)
 
 !======================================================================