/[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

revision 139 by guez, Tue May 26 17:46:03 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 15  contains Line 15  contains
15      use dynetat0_m, only: rlatu, rlatv, rlonu, rlonv      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 24  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.139  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21