Changeset 2258 for LMDZ5/branches/testing/libf/dyn3dmem/call_calfis_mod.F90

Timestamp:

Apr 13, 2015, 10:21:09 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes 2216:2237 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/call_calfis_mod.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/call_calfis_mod.F90

@@ -68 +68 @@
   
   
-  SUBROUTINE call_calfis(itau,lafin,clesphy0,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, &
+  SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, &
                          phis_dyn,q_dyn,flxw_dyn)
   USE dimensions_mod
@@ -91 +91 @@
     INTEGER,INTENT(IN) :: itau ! (time) iteration step number
     LOGICAL,INTENT(IN) :: lafin ! .true. if final time step
-    REAL,INTENT(IN) :: clesphy0( : ) ! not used    
     REAL,INTENT(INOUT) :: ucov_dyn(ijb_u:ije_u,llm) ! covariant zonal wind
     REAL,INTENT(INOUT) :: vcov_dyn(ijb_v:ije_v,llm) ! covariant meridional wind
@@ -231 +230 @@
                      ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,   &
                      du,dv,dteta,dq,                             &
-                     flxw,                                       &
-                     clesphy0, dufi,dvfi,dtetafi,dqfi,dpfi  )
+                     flxw, dufi,dvfi,dtetafi,dqfi,dpfi  )
 
     ijb=ij_begin