Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/calltherm.F90

Timestamp:

Jul 18, 2013, 10:20:28 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/calltherm.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/calltherm.F90

@@ -17 +17 @@
      &      ,alp_bl_conv,alp_bl_stat &
 !!! fin nrlmd le 10/04/2012
-     &                    )
+     &      ,zqla,ztva )
 
       USE dimphy
+      USE indice_sol_mod
+
       implicit none
 #include "dimensions.h"
@@ -26 +28 @@
 #include "iniprint.h"
 
-!!! nrlmd le 10/04/2012
-#include "indicesol.h"
-!!! fin nrlmd le 10/04/2012
 
 !IM 140508
-      INTEGER itap
+      INTEGER, SAVE ::  itap
+!$OMP THREADPRIVATE(itap)
       REAL dtime
       LOGICAL debut
@@ -62 +62 @@
       real zqla(klon,klev)
       real zqta(klon,klev)
-      real ztv(klon,klev)
+      real ztv(klon,klev),ztva(klon,klev)
       real zpspsk(klon,klev)
       real ztla(klon,klev)
@@ -256 +256 @@
      &      ,alp_bl_conv,alp_bl_stat &
 !!! fin nrlmd le 10/04/2012
-     &                         )
+     &      ,ztva ) 
            if (prt_level.gt.10) write(lunout,*)'Apres thermcell_main OK'
          else