Changeset 338 for LMDZ.3.3


Ignore:
Timestamp:
Feb 20, 2002, 11:57:18 AM (23 years ago)
Author:
lmdzadmin
Message:

Rendu compatible avec le create_etat0_limit
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_etat0.F

    r2 r338  
     1c
     2c $Header$
     3c
    14      PROGRAM create_etat0
    25C
    … …  
    47C   
    58C
    6       CALL etat0_netcdf
     9      LOGICAL interbar
     10      PARAMETER ( interbar = .TRUE. )
     11#include "dimensions.h"
     12#include "paramet.h"
     13#include "indicesol.h"
     14#include "dimphy.h"
     15      REAL :: masque(iip1,jjp1)
     16      REAL :: pctsrf(klon, nbsrf)
     17
     18      CALL etat0_netcdf( interbar, masque, pctsrf )
    719      STOP
    820      END
Note: See TracChangeset for help on using the changeset viewer.