/[lmdze]/trunk/libf/phylmd/Orography/start_init_orog_m.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Orography/start_init_orog_m.f90

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

revision 31 by guez, Thu Apr 1 09:07:28 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 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    
16      USE flincom, only: flininfo, flinopen_nozoom, flinget, flinclo      USE flincom, only: flininfo, flinopen_nozoom, flinclo
17        use flinget_m, only: flinget
18      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
19      use comgeom, only: rlatu, rlonv      use comgeom, only: rlatu, rlonv
20      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
# Line 73  CONTAINS Line 74  CONTAINS
74      ALLOCATE(lon_rel(iml_rel, jml_rel))      ALLOCATE(lon_rel(iml_rel, jml_rel))
75      ALLOCATE(relief_hi(iml_rel, jml_rel))      ALLOCATE(relief_hi(iml_rel, jml_rel))
76    
77      CALL flinopen_nozoom(orogfname, iml_rel, jml_rel, llm_tmp, &      CALL flinopen_nozoom(iml_rel, jml_rel, llm_tmp, &
78           lon_rel, lat_rel, lev, ttm_tmp, itau, date, dt, fid)           lon_rel, lat_rel, lev, ttm_tmp, itau, date, dt, fid)
79      ! 'RELIEF': high resolution orography      ! 'RELIEF': high resolution orography
80      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.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21