/[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

trunk/libf/dyn3d/start_init_orog_m.f90 revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC trunk/libf/phylmd/Orography/start_init_orog_m.f90 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 ioipsl, only: flininfo, flinopen_nozoom, flinget, flinclo  
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 51  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 64  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))
71      ALLOCATE(relief_hi(iml_rel, jml_rel))      ALLOCATE(relief_hi(iml_rel, jml_rel))
72    
73      CALL flinopen_nozoom(orogfname, iml_rel, jml_rel, llm_tmp, &      CALL flinopen_nozoom(iml_rel, jml_rel, llm_tmp, &
74           lon_rel, lat_rel, lev, ttm_tmp, itau, date, dt, fid)           lon_rel, lat_rel, lev, ttm_tmp, itau, date, dt, fid)
75      ! 'RELIEF': high resolution orography      ! 'RELIEF': high resolution orography
76      CALL flinget(fid, 'RELIEF', iml_rel, jml_rel, llm_tmp, ttm_tmp, 1, 1, &      CALL flinget(fid, 'RELIEF', iml_rel, jml_rel, llm_tmp, ttm_tmp, 1, 1, &
Legend:
Removed from v.15  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.21