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

Diff of /trunk/dyn3d/start_init_phys_m.f

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

revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 16  CONTAINS Line 16  CONTAINS
16      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
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, find_longitude, find_latitude           nf95_gw_var, find_coord
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)
# Line 40  CONTAINS Line 40  CONTAINS
40    
41      call nf95_open('ECPHY.nc', nf90_nowrite, ncid)      call nf95_open('ECPHY.nc', nf90_nowrite, ncid)
42    
43      call find_longitude(ncid, varid=varid)      call find_coord(ncid, varid=varid, std_name="longitude")
44      call nf95_gw_var(ncid, varid, lon_ini)      call nf95_gw_var(ncid, varid, lon_ini)
45      lon_ini = lon_ini * pi / 180. ! convert to rad      lon_ini = lon_ini * pi / 180. ! convert to rad
46      iml_phys = size(lon_ini)      iml_phys = size(lon_ini)
47    
48      call find_latitude(ncid, varid=varid)      call find_coord(ncid, varid=varid, std_name="latitude")
49      call nf95_gw_var(ncid, varid, lat_ini)      call nf95_gw_var(ncid, varid, lat_ini)
50      lat_ini = lat_ini * pi / 180. ! convert to rad      lat_ini = lat_ini * pi / 180. ! convert to rad
51      jml_phys = size(lat_ini)      jml_phys = size(lat_ini)
Legend:
Removed from v.52  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21