source: LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_etat0.F @ 4327

Last change on this file since 4327 was 338, checked in by lmdzadmin, 23 years ago

Rendu compatible avec le create_etat0_limit
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 399 bytes
Line 
1c
2c $Header$
3c
4      PROGRAM create_etat0
5C
6C   Programme d'appel a etat0, creation des etats initiaux
7C   
8C
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 )
19      STOP
20      END
Note: See TracBrowser for help on using the repository browser.