Changeset 2221 for LMDZ5/trunk/libf/dyn3d/calfis.F

Timestamp:

Mar 9, 2015, 7:38:03 AM (10 years ago)

Author:

Ehouarn Millour

Message:

Some cleanup: remove (unused) clesph0 from dynamics.
EM

File:

• LMDZ5/trunk/libf/dyn3d/calfis.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3d/calfis.F

@@ -21 +21 @@
      $                  pdq,
      $                  flxw,
-     $                  clesphy0,
      $                  pdufi,
      $                  pdvfi,
@@ -131 +130 @@
       REAL,INTENT(OUT) :: pdpsfi(iip1,jjp1) ! tendency on surface pressure (Pa/s)
 
-      INTEGER,PARAMETER :: longcles = 20
-      REAL,INTENT(IN) :: clesphy0( longcles ) ! unused
-
 
 c    Local variables :
@@ -465 +461 @@
      .             zphis,
      .             presnivs,
-     .             clesphy0,
      .             zufi,
      .             zvfi,