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

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

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

revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 43  contains Line 43  contains
43      use netcdf95, only: nf95_close, nf95_get_var, nf95_gw_var, nf95_put_var, &      use netcdf95, only: nf95_close, nf95_get_var, nf95_gw_var, nf95_put_var, &
44           nf95_inq_varid, nf95_open           nf95_inq_varid, nf95_open
45      use nr_util, only: pi, assert      use nr_util, only: pi, assert
46      use phyetat0_m, only: rlat, rlon      use phyetat0_m, only: rlat, rlon, itau_phy
47      use phyredem0_m, only: phyredem0, ncid_restartphy      use phyredem0_m, only: phyredem0, ncid_restartphy
48      use phyredem_m, only: phyredem      use phyredem_m, only: phyredem
49      use q_sat_m, only: q_sat      use q_sat_m, only: q_sat
# Line 335  contains Line 335  contains
335      w01 = 0.      w01 = 0.
336    
337      nday = 0      nday = 0
338      call phyredem0(lmt_pas = day_step / iphysiq, itau_phy = 0)      itau_phy = 0 ! side effect
339        call phyredem0(lmt_pas = day_step / iphysiq)
340    
341      call nf95_inq_varid(ncid_restartphy, "trs", varid)      call nf95_inq_varid(ncid_restartphy, "trs", varid)
342      call nf95_put_var(ncid_restartphy, varid, null_array)      call nf95_put_var(ncid_restartphy, varid, null_array)
Legend:
Removed from v.178  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21