Ignore:
Timestamp:
Sep 5, 2001, 3:28:02 PM (23 years ago)
Author:
lmdz
Message:

Remplacement des allocates par des dimensionnements classiques. LeVan?
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/create_etat0_limit.F

    r259 r269  
    1 C
    2 C $Header$
    3 C
    41       PROGRAM create_etat0_limit
    52c
    … …  
    2320      CALL etat0_netcdf ( interbar )
    2421c
     22      WRITE(6,1)
     23      WRITE(6,*) '  *********************  '
     24      WRITE(6,*) '  ***  Limit_netcdf ***  '
     25      WRITE(6,*) '  *********************  '
     26      WRITE(6,1)
     27c
    2528      CALL  limit_netcdf ( interbar, extrap , oldice )
     29
     301     FORMAT(//)
    2631
    2732      STOP
Note: See TracChangeset for help on using the changeset viewer.