source: LMDZ.3.3/trunk/libf/dyn3d/create_etat0_limit.F @ 507

Last change on this file since 507 was 269, checked in by lmdz, 23 years ago

Remplacement des allocates par des dimensionnements classiques. LeVan?
LF

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 898 bytes
Line 
1       PROGRAM create_etat0_limit
2c
3c
4c     Programme d'appel a etat0, creation des etats initiaux et limit_netcdf
5c   
6c
7c     interbar = .T . si appel a  interpol. barycentrique inter_barxy
8c
9c     extrap   = .T . si on fait une extrapolation de donnees , comme pour
10c       les  SST  lorsque  le fichier ne contient pas uniquement  des points
11c     oceaniques .
12c
13c     oldice   = .T. si l'on veut garder les anciennes glaces , obtenues
14c     par  grille_m  ( grid_atob ) .
15
16
17      LOGICAL interbar, extrap , oldice
18      PARAMETER ( interbar = .TRUE. , extrap = .FALSE. , oldice=.TRUE.)
19
20      CALL etat0_netcdf ( interbar )
21c
22      WRITE(6,1)
23      WRITE(6,*) '  *********************  '
24      WRITE(6,*) '  ***  Limit_netcdf ***  '
25      WRITE(6,*) '  *********************  '
26      WRITE(6,1)
27c
28      CALL  limit_netcdf ( interbar, extrap , oldice )
29
301     FORMAT(//)
31
32      STOP
33      END
Note: See TracBrowser for help on using the repository browser.