Changeset 257 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Jul 18, 2001, 12:54:31 PM (23 years ago)

Author:

lmdzadmin

Message:

cosmetique
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/calfis.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/calfis.F

@@ +1 @@
+C
+C $Header$
+C
       SUBROUTINE calfis(nq, lafin, rdayvrai,rday_ecri, heure,
      $            pucov,pvcov,pteta,pq,pmasse,pps,pp,ppk,pphis,pphi,
@@ -433 +436 @@
 
 
-      CALL physiq (ngridmx,llm,nq,debut,lafin,
-     ,   rdayvrai,rday_ecri,heure,dtphys,zplev,zplay,zphi,zphis,airefi,
-     ,             presnivs,clesphy0,  zufi, zvfi,ztfi, zqfi,  
-ccc     ,             pcvgu, pcvgv, pcvgt, pcvgq, 
-     ,             pvervel, zcufi, zcvfi,
+      CALL physiq (ngridmx, llm, nq,
+     ,    debut, lafin, rdayvrai, rday_ecri, heure, dtphys,
+     ,    zplev, zplay, zphi, zphis, airefi, presnivs, clesphy0,
+     ,    zufi, zvfi, ztfi, zqfi,  
+     ,    pvervel, zcufi, zcvfi,
 C - sorties
-     s             zdufi, zdvfi, zdtfi, zdqfi,zdpsrf              )
+     s    zdufi, zdvfi, zdtfi, zdqfi,zdpsrf              )
 
 500   CONTINUE