/[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 40 by guez, Tue Feb 22 13:49:36 2011 UTC revision 42 by guez, Thu Mar 24 11:52:41 2011 UTC
# Line 54  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.40  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.21