/[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 30 by guez, Thu Apr 1 09:07:28 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 11  CONTAINS Line 11  CONTAINS
11    
12    SUBROUTINE start_init_phys(tsol_2d)    SUBROUTINE start_init_phys(tsol_2d)
13    
14      USE flincom, only: flininfo, flinopen_nozoom, flinget, flinclo      USE flincom, only: flininfo, flinopen_nozoom, flinclo
15        use flinget_m, only: flinget
16      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
17      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
18      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
# Line 50  CONTAINS Line 51  CONTAINS
51      ALLOCATE(lon_phys(iml_phys, jml_phys))      ALLOCATE(lon_phys(iml_phys, jml_phys))
52      ALLOCATE(levphys_ini(llm_tmp))      ALLOCATE(levphys_ini(llm_tmp))
53    
54      CALL flinopen_nozoom(physfname, iml_phys, jml_phys,  &      CALL flinopen_nozoom(iml_phys, jml_phys,  &
55           llm_tmp, lon_phys, lat_phys, levphys_ini, ttm_tmp,  &           llm_tmp, lon_phys, lat_phys, levphys_ini, ttm_tmp,  &
56           itau, date, dt, fid_phys)           itau, date, dt, fid_phys)
57    
Legend:
Removed from v.30  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21