Changeset 1395 for trunk/LMDZ.VENUS/libf/phyvenus/rcm1d.F

Timestamp:

Mar 12, 2015, 12:45:17 PM (10 years ago)

Author:

emillour

Message:

All GCMS:
Some cleanup and tidying on the dynamics/physics interface.
Essentially affects the "iniphysiq" routine in all physics packages.
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/rcm1d.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/rcm1d.F

@@ -213 +213 @@
       phisfi(1)=0.E+0
 
-      CALL iniphysiq(1,llm,daysec,day0,dtphys,
-     .            lati,long,area,cufi,cvfi,rad,g,r,cpp)
+      CALL iniphysiq(1,1,llm,daysec,day0,dtphys,
+     .            lati,long,area,cufi,cvfi,rad,g,r,cpp,1)
 
 c   Initialisation pour prendre en compte les vents en 1-D