Changeset 779 for trunk


Ignore:
Timestamp:
Sep 12, 2012, 3:57:55 PM (12 years ago)
Author:
slebonnois
Message:

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

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/writerestartphy.F

    r102 r779  
    1       SUBROUTINE writerestartphy(fichnom,tab_cntrl,
     1      SUBROUTINE writerestartphy(fichnom,tab_cntrl,klon,klev,
    22     .           rlat,rlon, tsol,tsoil,
    33     .           albedo,
    … …  
    1010c Ecriture de l'etat de redemarrage pour la physique (pour newstart)
    1111c======================================================================
    12       use dimphy
    1312      IMPLICIT none
    1413#include "dimensions.h"
    … …  
    1716c======================================================================
    1817      CHARACTER*13 fichnom
    19       INTEGER length
     18      INTEGER length,klon,klev
    2019      PARAMETER (length=100)
    2120      REAL tab_cntrl(length)

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

    r101 r779  
    1       SUBROUTINE writerestartphy(fichnom,tab_cntrl,
     1      SUBROUTINE writerestartphy(fichnom,tab_cntrl,klon,klev,
    22     .           rlat,rlon, tsol,tsoil,
    33     .           albedo,
    … …  
    1010c Ecriture de l'etat de redemarrage pour la physique (pour newstart)
    1111c======================================================================
    12       use dimphy
    1312      IMPLICIT none
    1413#include "dimensions.h"
    … …  
    1716c======================================================================
    1817      CHARACTER*13 fichnom
    19       INTEGER length
     18      INTEGER length,klon,klev
    2019      PARAMETER (length=100)
    2120      REAL tab_cntrl(length)
Note: See TracChangeset for help on using the changeset viewer.