/[lmdze]/trunk/libf/dyn3d/startdyn.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/startdyn.f90

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

revision 39 by guez, Tue Jan 25 15:11:05 2011 UTC revision 42 by guez, Thu Mar 24 11:52:41 2011 UTC
# Line 41  CONTAINS Line 41  CONTAINS
41    
42      REAL date, dt      REAL date, dt
43      INTEGER itau(1)      INTEGER itau(1)
     INTEGER i, j  
44      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
45    
46      REAL, ALLOCATABLE:: lon_dyn(:, :), lat_dyn(:, :)      REAL, ALLOCATABLE:: lon_dyn(:, :), lat_dyn(:, :)
# Line 55  CONTAINS Line 54  CONTAINS
54    
55      print *, "Call sequence information: start_init_dyn"      print *, "Call sequence information: start_init_dyn"
56      call assert((/size(tsol_2d, 1), size(psol, 1)/) == iim + 1, &      call assert((/size(tsol_2d, 1), size(psol, 1)/) == iim + 1, &
57           "start_init_phys size 1")           "start_init_dyn size 1")
58      call assert((/size(tsol_2d, 2), size(psol, 2)/) == jjm + 1, &      call assert((/size(tsol_2d, 2), size(psol, 2)/) == jjm + 1, &
59           "start_init_phys size 2")           "start_init_dyn size 2")
60      CALL flininfo('ECDYN.nc', iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn)      CALL flininfo('ECDYN.nc', iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn)
61      print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, &      print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, &
62           ", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn           ", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn
Legend:
Removed from v.39  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.21