/[lmdze]/trunk/dyn3d/grilles_gcm_netcdf_sub.f90
ViewVC logotype

Diff of /trunk/dyn3d/grilles_gcm_netcdf_sub.f90

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

trunk/Sources/dyn3d/grilles_gcm_netcdf_sub.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/dyn3d/grilles_gcm_netcdf_sub.f revision 294 by guez, Thu Jul 26 13:11:22 2018 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 dimensions, 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:
# Line 60  contains Line 61  contains
61      call NF95_PUT_ATT(ncid, varid_latv, 'units', 'degrees_north')      call NF95_PUT_ATT(ncid, varid_latv, 'units', 'degrees_north')
62      call NF95_PUT_ATT(ncid, varid_latv, 'long_name', 'Latitude en v')      call NF95_PUT_ATT(ncid, varid_latv, 'long_name', 'Latitude en v')
63    
     call NF95_DEF_VAR(ncid, 'grille_u', NF90_FLOAT, (/dimid_lonu, &  
          dimid_latu/), varid)  
     call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points u')  
   
     call NF95_DEF_VAR(ncid, 'grille_v', NF90_FLOAT, (/dimid_lonv, &  
          dimid_latv/), varid)  
     call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points v')  
   
64      call NF95_DEF_VAR(ncid, 'grille_s', NF90_FLOAT, (/dimid_lonv, &      call NF95_DEF_VAR(ncid, 'grille_s', NF90_FLOAT, (/dimid_lonv, &
65           dimid_latu/), varid)           dimid_latu/), varid)
66      call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points scalaires')      call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points scalaires')
Legend:
Removed from v.134  
changed lines
  Added in v.294
  ViewVC Help
Powered by ViewVC 1.1.21