Rev | Line | |
---|
[224] | 1 | ! |
---|
| 2 | ! $Id: ce0l.F90 1984 2014-02-18 09:59:29Z emillour $ |
---|
| 3 | ! |
---|
| 4 | !------------------------------------------------------------------------------- |
---|
| 5 | ! |
---|
| 6 | PROGRAM ce0l |
---|
| 7 | !------------------------------------------------------------------------------- |
---|
| 8 | ! Purpose: Calls etat0, creates initial states and limit_netcdf |
---|
| 9 | ! |
---|
| 10 | ! interbar=.T. for barycentric interpolation inter_barxy |
---|
| 11 | ! extrap =.T. for data extrapolation, like for the SSTs when file does not |
---|
| 12 | ! contain ocean points only. |
---|
| 13 | ! oldice =.T. for old-style ice, obtained using grille_m (grid_atob). |
---|
| 14 | ! masque is created in etat0, passed to limit to ensure consistancy. |
---|
| 15 | !------------------------------------------------------------------------------- |
---|
| 16 | USE control_mod |
---|
| 17 | IMPLICIT NONE |
---|
| 18 | ! |
---|
| 19 | ! $Header$ |
---|
| 20 | ! |
---|
| 21 | ! |
---|
| 22 | ! gestion des impressions de sorties et de débogage |
---|
| 23 | ! lunout: unité du fichier dans lequel se font les sorties |
---|
| 24 | ! (par defaut 6, la sortie standard) |
---|
| 25 | ! prt_level: niveau d'impression souhaité (0 = minimum) |
---|
| 26 | ! |
---|
| 27 | INTEGER lunout, prt_level |
---|
| 28 | COMMON /comprint/ lunout, prt_level |
---|
| 29 | |
---|
| 30 | |
---|
| 31 | |
---|
| 32 | |
---|
| 33 | |
---|
| 34 | |
---|
| 35 | WRITE(lunout,*)'limit_netcdf: Earth-specific routine, needs Earth physics' |
---|
| 36 | ! of #ifndef CPP_EARTH #else |
---|
| 37 | |
---|
| 38 | END PROGRAM ce0l |
---|
| 39 | ! |
---|
| 40 | !------------------------------------------------------------------------------- |
---|
| 41 | |
---|
Note: See
TracBrowser
for help on using the repository browser.