/[lmdze]/trunk/libf/dyn3d/start_init_phys_m.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/start_init_phys_m.f90

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

revision 51 by guez, Wed Aug 24 11:43:14 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 14  CONTAINS Line 14  CONTAINS
14      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
15      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
16      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
     use jumble, only: find_longitude, find_latitude  
17      use netcdf, only: nf90_nowrite      use netcdf, only: nf90_nowrite
18      use netcdf95, only: nf95_open, nf95_close, nf95_get_var, nf95_inq_varid, &      use netcdf95, only: nf95_open, nf95_close, nf95_get_var, nf95_inq_varid, &
19           nf95_gw_var           nf95_gw_var, find_longitude, find_latitude
20      use nr_util, only: assert, pi      use nr_util, only: assert, pi
21    
22      REAL, intent(out):: tsol_2d(:, :), qsol_2d(:, :) ! (iim + 1, jjm + 1)      REAL, intent(out):: tsol_2d(:, :), qsol_2d(:, :) ! (iim + 1, jjm + 1)
Legend:
Removed from v.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21