1 |
module phyetat0_m |
module phyetat0_m |
2 |
|
|
3 |
use dimphy, only: klon, klev, zmasq |
use dimphy, only: klon |
4 |
|
|
5 |
IMPLICIT none |
IMPLICIT none |
6 |
|
|
7 |
REAL, save:: rlat(klon), rlon(klon) |
REAL, save:: rlat(klon), rlon(klon) |
8 |
! latitude et longitude pour chaque point, in degrees |
! latitude et longitude pour chaque point, in degrees |
9 |
|
|
10 |
private klon, klev, zmasq |
private klon |
11 |
|
|
12 |
contains |
contains |
13 |
|
|
28 |
USE temps, ONLY : itau_phy |
USE temps, ONLY : itau_phy |
29 |
use netcdf, only: nf90_get_att, nf90_global |
use netcdf, only: nf90_get_att, nf90_global |
30 |
use netcdf95, only: handle_err |
use netcdf95, only: handle_err |
31 |
|
use dimphy, only: zmasq, klev |
32 |
|
|
33 |
include "netcdf.inc" |
include "netcdf.inc" |
34 |
|
|