/[lmdze]/trunk/Sources/phylmd/phyredem0.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/phyredem0.f

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

revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 22  contains Line 22  contains
22      USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float      USE netcdf, ONLY: nf90_clobber, nf90_global, nf90_float
23      USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, &      USE netcdf95, ONLY: nf95_create, nf95_put_att, nf95_def_dim, &
24           nf95_def_var, nf95_enddef, nf95_put_var           nf95_def_var, nf95_enddef, nf95_put_var
25      use phyetat0_m, only: rlat, rlon      use phyetat0_m, only: rlat, rlon, itau_phy
     USE temps, ONLY: itau_phy  
26    
27      INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day      INTEGER, intent(in):: lmt_pas ! number of time steps of "physics" per day
28    
# Line 78  contains Line 77  contains
77           (/idim2, dimid_nsoilmx, dimid_nbsrf/), varid)           (/idim2, dimid_nsoilmx, dimid_nbsrf/), varid)
78      call nf95_put_att(ncid_restartphy, varid, 'title', 'soil temperature')      call nf95_put_att(ncid_restartphy, varid, 'title', 'soil temperature')
79    
     call nf95_def_var(ncid_restartphy, 'TSLAB', nf90_float, idim2, varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', &  
          'Ecart de la SST (pour slab-ocean)')  
   
     call nf95_def_var(ncid_restartphy, 'SEAICE', nf90_float, idim2, varid)  
     call nf95_put_att(ncid_restartphy, varid, 'title', &  
          'Glace de mer kg/m2 (pour slab-ocean)')  
   
80      call nf95_def_var(ncid_restartphy, 'QS', nf90_float, &      call nf95_def_var(ncid_restartphy, 'QS', nf90_float, &
81           (/idim2, dimid_nbsrf/), varid)           (/idim2, dimid_nbsrf/), varid)
82      call nf95_put_att(ncid_restartphy, varid, 'title', 'Humidite de surface')      call nf95_put_att(ncid_restartphy, varid, 'title', 'Humidite de surface')
Legend:
Removed from v.157  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21