Changeset 2221 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

Timestamp:

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

Author:

Ehouarn Millour

Message:

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

File:

• LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -9 +9 @@
 
       SUBROUTINE leapfrog_loc(ucov0,vcov0,teta0,ps0,
-     &                        masse0,phis0,q0,clesphy0,
-     &                        time_0)
+     &                        masse0,phis0,q0,time_0)
 
        USE misc_mod
@@ -82 +81 @@
 !      include "mpif.h"
       
-      INTEGER,PARAMETER :: longcles = 20
-      REAL,INTENT(IN) :: clesphy0( longcles ) ! not used
       REAL,INTENT(IN) :: time_0 ! not used
 
@@ -757 +754 @@
        IF( apphys )  THEN
        
-         CALL call_calfis(itau,lafin,clesphy0,ucov,vcov,teta,masse,ps,  
+         CALL call_calfis(itau,lafin,ucov,vcov,teta,masse,ps,  
      &                     phis,q,flxw)
 ! #ifdef DEBUG_IO    
@@ -882 +879 @@
 !      $               du,dv,dteta,dq,
 !      $               flxw,
-!      $               clesphy0, dufi,dvfi,dtetafi,dqfi,dpfi  )
+!      $               dufi,dvfi,dtetafi,dqfi,dpfi  )
 ! !        CALL FTRACE_REGION_END("calfis")
 ! !        ijb=ij_begin