Ignore:
Timestamp:
Aug 5, 2008, 4:54:10 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Corrections suite a la re-ecriture de phyredem.F
Quelques initialisations de plus
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3d/create_etat0_limit.F

    r960 r989  
    3131#include  "control.h"
    3232      REAL :: masque(iip1,jjp1)
    33       REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
     33!      REAL :: pctsrf(iim*(jjm-1)+2, nbsrf)
    3434
    3535c initialisation traceurs
    … …  
    6464     
    6565c     
    66       CALL  limit_netcdf ( interbar, extrap , oldice, masque, pctsrf )
     66      CALL  limit_netcdf ( interbar, extrap , oldice, masque)
    6767
    68681     FORMAT(//)
Note: See TracChangeset for help on using the changeset viewer.