/[lmdze]/trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f

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

trunk/dyn3d/grilles_gcm_netcdf_sub.f revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 10  contains Line 10  contains
10      ! longitudes and latitudes in degrees for grids u and v.      ! longitudes and latitudes in degrees for grids u and v.
11    
12      USE comconst, ONLY: g      USE comconst, ONLY: g
13      USE comgeom, ONLY: aire_2d, rlatu, rlatv, rlonu, rlonv      USE comgeom, ONLY: aire_2d
14      USE dimens_m, ONLY: iim, jjm      USE dimens_m, ONLY: iim, jjm
15        use dynetat0_m, only: rlatu, rlatv, rlonu, rlonv
16      USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_int      USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_int
17      USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &      USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, &
18           nf95_enddef, nf95_put_att, nf95_put_var, nf95_redef           nf95_enddef, nf95_put_att, nf95_put_var
19      USE nr_util, ONLY: pi      USE nr_util, ONLY: pi
20      USE start_init_orog_m, ONLY: mask      USE start_init_orog_m, ONLY: mask
21    
# Line 23  contains Line 24  contains
24    
25      ! Local:      ! Local:
26    
27      REAL grille_s(iim+1, jjm+1)      REAL grille_s(iim + 1, jjm + 1)
28      INTEGER i, j      INTEGER i, j
29    
30      ! For Netcdf:      ! For Netcdf:
Legend:
Removed from v.118  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21