Changeset 779 for trunk/LMDZ.VENUS/libf/phyvenus/writerestartphy.F

Timestamp:

Sep 12, 2012, 3:57:55 PM (12 years ago)

Author:

slebonnois

Message:

SL: follow-up on previous commit for one forgotten file...

File:

• trunk/LMDZ.VENUS/libf/phyvenus/writerestartphy.F (modified) (3 diffs)

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

@@ -1 @@
-      SUBROUTINE writerestartphy(fichnom,tab_cntrl,
+      SUBROUTINE writerestartphy(fichnom,tab_cntrl,klon,klev,
      .           rlat,rlon, tsol,tsoil,
      .           albedo, 
@@ -10 +10 @@
 c Ecriture de l'etat de redemarrage pour la physique (pour newstart)
 c======================================================================
-      use dimphy
       IMPLICIT none
 #include "dimensions.h"
@@ -17 +16 @@
 c======================================================================
       CHARACTER*13 fichnom
-      INTEGER length
+      INTEGER length,klon,klev
       PARAMETER (length=100)
       REAL tab_cntrl(length)