Changeset 2221 for LMDZ5/trunk/libf/dyn3dmem/calfis_loc.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/dyn3dmem/calfis_loc.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/calfis_loc.F

@@ -21 +21 @@
      $                  pdq,
      $                  flxw,
-     $                  clesphy0,
      $                  pdufi,
      $                  pdvfi,
@@ -141 +140 @@
       REAL,INTENT(OUT) :: pdqfi(iip1,jjb_u:jje_u,llm,nqtot) ! tendency on tracers
       REAL,INTENT(OUT) :: pdpsfi(iip1,jjb_u:jje_u) ! tendency on surface pressure (Pa/s)
-
-      INTEGER,PARAMETER :: longcles = 20
-      REAL,INTENT(IN) :: clesphy0( longcles ) ! unused
-
 
 #ifdef CPP_PHYS
@@ -674 +669 @@
      .             zphis_omp,
      .             presnivs_omp,
-     .             clesphy0,
      .             zufi_omp,
      .             zvfi_omp,
      .             ztfi_omp,
      .             zqfi_omp,
-c#ifdef INCA
      .             flxwfi_omp,
-c#endif
      .             zdufi_omp,
      .             zdvfi_omp,