+ NASA Homepage + NASA GISS Homepage + Model E Resource Homepage
subroutine print_tpool(tpool)
real*8, dimension(PTRACE, NPOOLS, N_CASA_LAYERS)