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 |