/[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 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 36 by guez, Thu Dec 2 17:11:04 2010 UTC
# Line 31  CONTAINS Line 31  CONTAINS
31      INTEGER:: itau(1)      INTEGER:: itau(1)
32      INTEGER::  llm_tmp, ttm_tmp      INTEGER::  llm_tmp, ttm_tmp
33    
     CHARACTER(len=120) physfname  
     LOGICAL:: check=.TRUE.  
   
34      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
35      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:)
36      REAL, ALLOCATABLE:: var_ana(:, :)      REAL, ALLOCATABLE:: var_ana(:, :)
# Line 43  CONTAINS Line 40  CONTAINS
40    
41      print *, "Call sequence information: start_init_phys"      print *, "Call sequence information: start_init_phys"
42      if (any(shape(tsol_2d) /= (/iim + 1, jjm + 1/))) stop "start_init_phys"      if (any(shape(tsol_2d) /= (/iim + 1, jjm + 1/))) stop "start_init_phys"
43      physfname = 'ECPHY.nc'      CALL flininfo('ECPHY.nc', iml_phys, jml_phys, llm_tmp, ttm_tmp, fid_phys)
     IF ( check ) print *, 'Opening the surface analysis'  
     CALL flininfo(physfname, iml_phys, jml_phys, llm_tmp, ttm_tmp, fid_phys)  
44    
45      ALLOCATE(lat_phys(iml_phys, jml_phys))      ALLOCATE(lat_phys(iml_phys, jml_phys))
46      ALLOCATE(lon_phys(iml_phys, jml_phys))      ALLOCATE(lon_phys(iml_phys, jml_phys))
Legend:
Removed from v.32  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.21