/[lmdze]/trunk/Sources/phylmd/Orography/start_init_orog.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Orography/start_init_orog.f

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

revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC
# Line 13  CONTAINS Line 13  CONTAINS
13    SUBROUTINE start_init_orog(relief, zstd_2d, zsig_2d, zgam_2d, zthe_2d, &    SUBROUTINE start_init_orog(relief, zstd_2d, zsig_2d, zgam_2d, zthe_2d, &
14         zpic_2d, zval_2d)         zpic_2d, zval_2d)
15    
     USE flincom, only: flininfo, flinopen_nozoom, flinclo  
     use flinget_m, only: flinget  
16      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
17      use comgeom, only: rlatu, rlonv      use comgeom, only: rlatu, rlonv
18      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
19      use indicesol, only: epsfra      USE flincom, only: flininfo, flinopen_nozoom, flinclo
20      use comconst, only: pi      use flinget_m, only: flinget
21      use grid_noro_m, only: grid_noro      use grid_noro_m, only: grid_noro
22        use indicesol, only: epsfra
23        use nr_util, only: pi
24    
25      REAL, intent(out):: relief(:, :) ! orographie moyenne      REAL, intent(out):: relief(:, :) ! orographie moyenne
26    
# Line 52  CONTAINS Line 52  CONTAINS
52      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)
53      REAL, ALLOCATABLE:: lon_rel(:, :), lat_rel(:, :)      REAL, ALLOCATABLE:: lon_rel(:, :), lat_rel(:, :)
54    
     CHARACTER(len=120) orogfname  
   
55      !-----------------------------------      !-----------------------------------
56    
57      print *, "Call sequence information: start_init_orog"      print *, "Call sequence information: start_init_orog"
# Line 65  CONTAINS Line 63  CONTAINS
63           size(zgam_2d, 2), size(zthe_2d, 2), size(zpic_2d, 2), &           size(zgam_2d, 2), size(zthe_2d, 2), size(zpic_2d, 2), &
64           size(zval_2d, 2)/) /= jjm + 1)) stop "start_init_orog size 2"           size(zval_2d, 2)/) /= jjm + 1)) stop "start_init_orog size 2"
65    
     orogfname = 'Relief.nc'  
66      print *, 'Reading the high resolution orography'      print *, 'Reading the high resolution orography'
67        CALL flininfo('Relief.nc', iml_rel, jml_rel, llm_tmp, ttm_tmp, fid)
     CALL flininfo(orogfname, iml_rel, jml_rel, llm_tmp, ttm_tmp, fid)  
68    
69      ALLOCATE(lat_rel(iml_rel, jml_rel))      ALLOCATE(lat_rel(iml_rel, jml_rel))
70      ALLOCATE(lon_rel(iml_rel, jml_rel))      ALLOCATE(lon_rel(iml_rel, jml_rel))
Legend:
Removed from v.32  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21