Changeset 1477 for trunk/LMDZ.GENERIC/libf/phystd/vdifc.F

Timestamp:

Sep 23, 2015, 11:33:47 AM (9 years ago)

Author:

mturbet

Message:

Cleaning of physiq.F90. Condense_cloud becomes Condense_co2

File:

• trunk/LMDZ.GENERIC/libf/phystd/vdifc.F (modified) (4 diffs)

trunk/LMDZ.GENERIC/libf/phystd/vdifc.F

@@ -3 +3 @@
      &     pplay,pplev,pzlay,pzlev,pz0,
      &     pu,pv,ph,pq,ptsrf,pemis,pqsurf,
-     &     pdufi,pdvfi,pdhfi,pdqfi,pfluxsrf,
+     &     pdhfi,pdqfi,pfluxsrf,
      &     pdudif,pdvdif,pdhdif,pdtsrf,sensibFlux,pq2,
      &     pdqdif,pdqsdif,lastcall)
@@ -49 +49 @@
       REAL pu(ngrid,nlay),pv(ngrid,nlay),ph(ngrid,nlay)
       REAL ptsrf(ngrid),pemis(ngrid)
-      REAL pdufi(ngrid,nlay),pdvfi(ngrid,nlay),pdhfi(ngrid,nlay)
+      REAL pdhfi(ngrid,nlay)
       REAL pfluxsrf(ngrid)
       REAL pdudif(ngrid,nlay),pdvdif(ngrid,nlay),pdhdif(ngrid,nlay)
@@ -205 +205 @@
       DO ilev=1,nlay
          DO ig=1,ngrid
-            zu(ig,ilev)=pu(ig,ilev)+pdufi(ig,ilev)*ptimestep
-            zv(ig,ilev)=pv(ig,ilev)+pdvfi(ig,ilev)*ptimestep
+            zu(ig,ilev)=pu(ig,ilev)
+            zv(ig,ilev)=pv(ig,ilev)
             zh(ig,ilev)=ph(ig,ilev)+pdhfi(ig,ilev)*ptimestep
          ENDDO
@@ -662 +662 @@
          do ig=1,ngrid
             pdudif(ig,ilev)=(zu(ig,ilev)-
-     &           (pu(ig,ilev)+pdufi(ig,ilev)*ptimestep))/ptimestep
+     &           (pu(ig,ilev)))/ptimestep
             pdvdif(ig,ilev)=(zv(ig,ilev)-
-     &           (pv(ig,ilev)+pdvfi(ig,ilev)*ptimestep))/ptimestep
+     &           (pv(ig,ilev)))/ptimestep
             hh = ph(ig,ilev)+pdhfi(ig,ilev)*ptimestep