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

Diff of /trunk/dyn3d/grilles_gcm_netcdf_sub.f

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

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 294 by guez, Thu Jul 26 13:11:22 2018 UTC
# Line 11  contains Line 11  contains
11    
12      USE comconst, ONLY: g      USE comconst, ONLY: g
13      USE comgeom, ONLY: aire_2d      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      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, &
# Line 61  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.254  
changed lines
  Added in v.294
  ViewVC Help
Powered by ViewVC 1.1.21