/[lmdze]/trunk/libf/phylmd/phyetat0.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/phyetat0.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 14 by guez, Fri Jul 25 19:59:34 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 1  Line 1 
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    
# Line 28  contains Line 28  contains
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    
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21