383 subroutine gfs_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling, &
384 Grid, Tbd, Cldprop, Radtend, Diag, Interstitial, &
385 nthreads, blkno, errmsg, errflg)
393 use gfs_typedefs,
only: gfs_control_type, gfs_statein_type, &
394 gfs_stateout_type, gfs_sfcprop_type, &
395 gfs_coupling_type, gfs_grid_type, &
396 gfs_tbd_type, gfs_cldprop_type, &
397 gfs_radtend_type, gfs_diag_type
398 use ccpp_typedefs,
only: gfs_interstitial_type
403 type(gfs_control_type),
intent(in ) :: model
404 type(gfs_statein_type),
intent(in ) :: statein
405 type(gfs_stateout_type),
intent(in ) :: stateout
406 type(gfs_sfcprop_type),
intent(in ) :: sfcprop
407 type(gfs_coupling_type),
intent(in ) :: coupling
408 type(gfs_grid_type),
intent(in ) :: grid
409 type(gfs_tbd_type),
intent(in ) :: tbd
410 type(gfs_cldprop_type),
intent(in ) :: cldprop
411 type(gfs_radtend_type),
intent(in ) :: radtend
412 type(gfs_diag_type),
intent(in ) :: diag
413 type(gfs_interstitial_type),
intent(in) :: interstitial
414 integer,
intent(in ) :: nthreads
415 integer,
intent(in ) :: blkno
416 character(len=*),
intent(out) :: errmsg
417 integer,
intent(out) :: errflg
420 integer :: impi, iomp, ierr, n, idtend, iprocess, itracer
421 integer :: mpirank, mpisize, mpicomm
422 integer :: omprank, ompsize
429 mpicomm = model%communicator
431 mpisize = model%ntasks
438 omprank = omp_get_thread_num()
454 if (mpirank==impi .and. omprank==iomp)
then
455 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Model%kdt' , model%kdt)
457 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%slmsk' , sfcprop%slmsk)
458 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%oceanfrac' , sfcprop%oceanfrac)
459 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%landfrac' , sfcprop%landfrac)
460 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%lakefrac' , sfcprop%lakefrac)
461 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tsfc' , sfcprop%tsfc)
462 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tsfco' , sfcprop%tsfco)
463 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tsfcl' , sfcprop%tsfcl)
464 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tisfc' , sfcprop%tisfc)
465 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%snowd' , sfcprop%snowd)
466 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%zorl' , sfcprop%zorl)
467 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%zorlw' , sfcprop%zorlw)
468 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%zorll' , sfcprop%zorll)
469 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%zorli' , sfcprop%zorli)
470 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%zorlwav' , sfcprop%zorlwav)
471 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%fice' , sfcprop%fice)
472 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%hprime' , sfcprop%hprime)
473 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%sncovr' , sfcprop%sncovr)
474 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%snoalb' , sfcprop%snoalb)
475 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%alvsf' , sfcprop%alvsf)
476 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%alnsf' , sfcprop%alnsf)
477 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%alvwf' , sfcprop%alvwf)
478 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%alnwf' , sfcprop%alnwf)
479 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%facsf' , sfcprop%facsf)
480 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%facwf' , sfcprop%facwf)
481 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%slope' , sfcprop%slope)
482 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%slope_save', sfcprop%slope_save)
483 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%shdmin' , sfcprop%shdmin)
484 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%shdmax' , sfcprop%shdmax)
485 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tg3' , sfcprop%tg3)
486 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%vfrac' , sfcprop%vfrac)
487 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%vtype' , sfcprop%vtype)
488 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%vtype_save', sfcprop%vtype_save)
489 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%stype' , sfcprop%stype)
490 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%stype_save', sfcprop%stype_save)
492 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%scolor' , sfcprop%scolor)
493 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%scolore_save', sfcprop%scolor_save)
495 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%uustar' , sfcprop%uustar)
496 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%oro' , sfcprop%oro)
497 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%oro_uf' , sfcprop%oro_uf)
498 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%hice' , sfcprop%hice)
499 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%weasd' , sfcprop%weasd)
500 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%weasdl' , sfcprop%weasdl)
501 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%%weasdi' , sfcprop%weasdi)
502 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%canopy' , sfcprop%canopy)
503 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%ffmm' , sfcprop%ffmm)
504 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%ffhh' , sfcprop%ffhh)
505 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%f10m' , sfcprop%f10m)
506 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tprcp' , sfcprop%tprcp)
507 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%srflag' , sfcprop%srflag)
508 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%slc' , sfcprop%slc)
509 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%smc' , sfcprop%smc)
510 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%stc' , sfcprop%stc)
511 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%t2m' , sfcprop%t2m)
512 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%q2m' , sfcprop%q2m)
513 if (model%nstf_name(1)>0)
then
514 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tref ', sfcprop%tref)
515 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%z_c ', sfcprop%z_c)
516 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%c_0 ', sfcprop%c_0)
517 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%c_d ', sfcprop%c_d)
518 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%w_0 ', sfcprop%w_0)
519 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%w_d ', sfcprop%w_d)
520 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xt ', sfcprop%xt)
521 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xs ', sfcprop%xs)
522 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xu ', sfcprop%xu)
523 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xv ', sfcprop%xv)
524 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xz ', sfcprop%xz)
525 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%zm ', sfcprop%zm)
526 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xtts ', sfcprop%xtts)
527 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%xzts ', sfcprop%xzts)
528 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%d_conv ', sfcprop%d_conv)
529 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%ifd ', sfcprop%ifd)
530 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%dt_cool ', sfcprop%dt_cool)
531 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%qrain ', sfcprop%qrain)
534 if (model%lsm == model%lsm_ruc)
then
535 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%sh2o', sfcprop%sh2o)
536 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%smois', sfcprop%smois)
537 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tslb', sfcprop%tslb)
538 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%clw_surf_land', sfcprop%clw_surf_land)
539 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%clw_surf_ice', sfcprop%clw_surf_ice)
540 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%qwv_surf_land', sfcprop%qwv_surf_land)
541 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%qwv_surf_ice', sfcprop%qwv_surf_ice)
542 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%flag_frsoil', sfcprop%flag_frsoil)
543 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%rhofr', sfcprop%rhofr)
544 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tsnow_land', sfcprop%tsnow_land)
545 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%tsnow_ice', sfcprop%tsnow_ice)
546 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%snowfallac_land', sfcprop%snowfallac_land)
547 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%snowfallac_ice', sfcprop%snowfallac_ice)
550 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%emis_lnd', sfcprop%emis_lnd)
551 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%emis_ice', sfcprop%emis_ice)
552 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%emis_wat', sfcprop%emis_wat)
554 if (model%lsm == model%lsm_ruc .or. model%lsm == model%lsm_noahmp)
then
555 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdirvis_lnd', sfcprop%albdirvis_lnd)
556 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdirnir_lnd', sfcprop%albdirnir_lnd)
557 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdifvis_lnd', sfcprop%albdifvis_lnd)
558 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdifnir_lnd', sfcprop%albdifnir_lnd)
561 if (model%lsm == model%lsm_ruc)
then
562 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdirvis_ice', sfcprop%albdirvis_ice)
563 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdifvis_ice', sfcprop%albdifvis_ice)
564 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdirnir_ice', sfcprop%albdirnir_ice)
565 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%albdifnir_ice', sfcprop%albdifnir_ice)
566 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%sfalb_lnd', sfcprop%sfalb_lnd)
567 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%sfalb_ice', sfcprop%sfalb_ice)
568 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%sfalb_lnd_bck', sfcprop%sfalb_lnd_bck)
571 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcfsw%upfxc', radtend%sfcfsw(:)%upfxc)
572 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcfsw%dnfxc', radtend%sfcfsw(:)%dnfxc)
573 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcfsw%upfx0', radtend%sfcfsw(:)%upfx0)
574 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcfsw%dnfx0', radtend%sfcfsw(:)%dnfx0)
575 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcflw%upfxc', radtend%sfcflw(:)%upfxc)
576 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcflw%upfx0', radtend%sfcflw(:)%upfx0)
577 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcflw%dnfxc', radtend%sfcflw(:)%dnfxc)
578 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfcflw%dnfx0', radtend%sfcflw(:)%dnfx0)
579 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%htrsw', radtend%htrsw)
580 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%htrlw', radtend%htrlw)
581 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%sfalb', radtend%sfalb)
582 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%coszen', radtend%coszen)
583 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%tsflw', radtend%tsflw)
584 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%semis', radtend%semis)
585 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%coszdg', radtend%coszdg)
586 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%swhc', radtend%swhc)
587 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%lwhc', radtend%lwhc)
588 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Radtend%lwhd', radtend%lwhd)
590 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%icsdsw' , tbd%icsdsw)
591 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%icsdlw' , tbd%icsdlw)
592 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%ozpl' , tbd%ozpl)
593 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%h2opl' , tbd%h2opl)
594 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%rann' , tbd%rann)
595 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%acv' , tbd%acv)
596 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%acvb' , tbd%acvb)
597 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%acvt' , tbd%acvt)
598 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%hpbl' , tbd%hpbl)
599 if(model%imfdeepcnv>0 .or. model%imfshalcnv>0)
then
600 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%ud_mf' , tbd%ud_mf)
602 if (model%do_sppt)
then
603 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%dtdtnp' , tbd%dtdtnp)
604 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%dtotprcp' , tbd%dtotprcp)
605 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%dcnvprcp' , tbd%dcnvprcp)
607 if (model%cplflx .or. model%cplchm)
then
608 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%drain_cpl' , tbd%drain_cpl)
609 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%dsnow_cpl' , tbd%dsnow_cpl)
611 if (model%nctp > 0 .and. model%cscnv)
then
612 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%phy_fctd' , tbd%phy_fctd)
614 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%phy_f2d' , tbd%phy_f2d)
615 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%phy_f3d' , tbd%phy_f3d)
616 do n=1,
size(tbd%phy_f3d(1,1,:))
617 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%phy_f3d_n' , tbd%phy_f3d(:,:,n))
619 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%in_nm' , tbd%in_nm)
620 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%ccn_nm' , tbd%ccn_nm)
621 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%aer_nm' , tbd%aer_nm)
622 if (model%imfdeepcnv == model%imfdeepcnv_gf .or. model%imfdeepcnv == model%imfdeepcnv_unified)
then
623 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%cactiv' , tbd%cactiv)
624 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%cactiv_m' , tbd%cactiv_m)
625 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Tbd%aod_gf' , tbd%aod_gf)
632 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%srunoff ', diag%srunoff)
633 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%evbs ', diag%evbs)
634 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%evcw ', diag%evcw)
635 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%sbsno ', diag%sbsno)
636 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%evbsa ', diag%evbsa)
637 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%evcwa ', diag%evcwa)
638 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%snohfa ', diag%snohfa)
639 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%transa ', diag%transa)
640 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%sbsnoa ', diag%sbsnoa)
641 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%snowca ', diag%snowca)
642 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%soilm ', diag%soilm)
643 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%tmpmin ', diag%tmpmin)
644 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%tmpmax ', diag%tmpmax)
645 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dusfc ', diag%dusfc)
646 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvsfc ', diag%dvsfc)
647 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dtsfc ', diag%dtsfc)
648 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dqsfc ', diag%dqsfc)
649 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totprcp ', diag%totprcp)
650 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totice ', diag%totice)
651 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totsnw ', diag%totsnw)
652 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totgrp ', diag%totgrp)
653 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totprcpb ', diag%totprcpb)
654 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%toticeb ', diag%toticeb)
655 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totsnwb ', diag%totsnwb)
656 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%totgrpb ', diag%totgrpb)
657 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%suntim ', diag%suntim)
658 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%runoff ', diag%runoff)
659 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%ep ', diag%ep)
660 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%cldwrk ', diag%cldwrk)
661 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dugwd ', diag%dugwd)
662 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvgwd ', diag%dvgwd)
663 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%psmean ', diag%psmean)
664 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%cnvprcp ', diag%cnvprcp)
665 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%cnvprcpb ', diag%cnvprcpb)
666 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%spfhmin ', diag%spfhmin)
667 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%spfhmax ', diag%spfhmax)
668 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%u10mmax ', diag%u10mmax)
669 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%v10mmax ', diag%v10mmax)
670 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%wind10mmax ', diag%wind10mmax)
671 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%rain ', diag%rain)
672 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%rainc ', diag%rainc)
673 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%ice ', diag%ice)
674 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%snow ', diag%snow)
675 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%graupel ', diag%graupel)
676 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%u10m ', diag%u10m)
677 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%v10m ', diag%v10m)
678 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dpt2m ', diag%dpt2m)
679 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%zlvl ', diag%zlvl)
680 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%psurf ', diag%psurf)
681 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%pwat ', diag%pwat)
682 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%t1 ', diag%t1)
683 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%q1 ', diag%q1)
684 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%u1 ', diag%u1)
685 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%v1 ', diag%v1)
686 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%chh ', diag%chh)
687 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%cmm ', diag%cmm)
688 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dlwsfci ', diag%dlwsfci)
689 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%ulwsfci ', diag%ulwsfci)
690 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dswsfci ', diag%dswsfci)
691 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%nswsfci ', diag%nswsfci)
692 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%uswsfci ', diag%uswsfci)
693 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dusfci ', diag%dusfci)
694 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvsfci ', diag%dvsfci)
695 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dtsfci ', diag%dtsfci)
696 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dqsfci ', diag%dqsfci)
697 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%gfluxi ', diag%gfluxi)
698 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%epi ', diag%epi)
699 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%smcwlt2 ', diag%smcwlt2)
700 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%smcref2 ', diag%smcref2)
701 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%sr ', diag%sr)
702 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%tdomr ', diag%tdomr)
703 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%tdomzr ', diag%tdomzr)
704 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%tdomip ', diag%tdomip)
705 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%tdoms ', diag%tdoms)
706 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%trans ', diag%trans)
708 if (model%lsm == model%lsm_ruc)
then
709 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Sfcprop%wetness ', sfcprop%wetness)
711 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%wet1 ', diag%wet1)
713 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%zmtnblck ', diag%zmtnblck)
714 if (model%ldiag3d)
then
725 if (model%qdiag3d)
then
726 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%upd_mf ', diag%upd_mf)
727 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dwn_mf ', diag%dwn_mf)
728 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%det_mf ', diag%det_mf)
731 if(model%lradar)
then
732 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%refl_10cm ', diag%refl_10cm)
734 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dkt ', diag%dkt)
735 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dku ', diag%dku)
737 if (model%do_mynnedmf)
then
738 if (model%bl_mynn_output .ne. 0)
then
739 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%edmf_a ', diag%edmf_a)
740 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%edmf_w ', diag%edmf_w)
741 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%edmf_qt ', diag%edmf_qt)
742 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%edmf_thl ', diag%edmf_thl)
743 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%edmf_ent ', diag%edmf_ent)
744 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%edmf_qc ', diag%edmf_qc)
745 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%sub_thl ', diag%sub_thl)
746 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%sub_sqv ', diag%sub_sqv)
747 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%det_thl ', diag%det_thl)
748 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%det_sqv ', diag%det_sqv)
750 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%maxwidth ', diag%maxwidth)
751 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%maxMF ', diag%maxMF)
752 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%ztop_plume ', diag%ztop_plume)
753 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%exch_h ', diag%exch_h)
754 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%exch_m ', diag%exch_m)
757 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dudt_gw ', diag%dudt_gw)
758 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvdt_gw ', diag%dvdt_gw)
759 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dtdt_gw ', diag%dtdt_gw)
760 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%kdis_gw ', diag%kdis_gw)
761 if (model%do_ugwp_v1 .or. model%gwd_opt==33 .or. model%gwd_opt==22)
then
762 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dudt_ogw ', diag%dudt_ogw )
763 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvdt_ogw ', diag%dvdt_ogw )
764 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dudt_obl ', diag%dudt_obl )
765 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvdt_obl ', diag%dvdt_obl )
766 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dudt_oss ', diag%dudt_oss )
767 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvdt_oss ', diag%dvdt_oss )
768 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dudt_ofd ', diag%dudt_ofd )
769 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dvdt_ofd ', diag%dvdt_ofd )
770 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%du_ogwcol ', diag%du_ogwcol)
771 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dv_ogwcol ', diag%dv_ogwcol)
772 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%du_oblcol ', diag%du_oblcol)
773 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dv_oblcol ', diag%dv_oblcol)
774 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%du_osscol ', diag%du_osscol)
775 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dv_osscol ', diag%dv_osscol)
776 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%du_ofdcol ', diag%du_ofdcol)
777 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dv_ofdcol ', diag%dv_ofdcol)
779 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Diag%dudt_ogw ', diag%dudt_ogw)
782 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%phii' , statein%phii)
783 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%prsi' , statein%prsi)
784 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%prsik' , statein%prsik)
785 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%phil' , statein%phil)
786 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%prsl' , statein%prsl)
787 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%prslk' , statein%prslk)
788 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%pgr' , statein%pgr)
789 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%ugrs' , statein%ugrs)
790 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%vgrs' , statein%vgrs)
791 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%vvl' , statein%vvl)
792 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%tgrs' , statein%tgrs)
793 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%qgrs' , statein%qgrs)
794 do n=1,
size(statein%qgrs(1,1,:))
795 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%qgrs_n', statein%qgrs(:,:,n))
797 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%diss_est', statein%diss_est)
798 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%smc' , statein%smc)
799 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%stc' , statein%stc)
800 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Statein%slc' , statein%slc)
802 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Stateout%gu0', stateout%gu0)
803 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Stateout%gv0', stateout%gv0)
804 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Stateout%gt0', stateout%gt0)
805 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Stateout%gq0', stateout%gq0)
806 do n=1,
size(stateout%gq0(1,1,:))
807 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Stateout%gq0_n', stateout%gq0(:,:,n))
810 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nirbmdi', coupling%nirbmdi)
811 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nirdfdi', coupling%nirdfdi)
812 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%visbmdi', coupling%visbmdi)
813 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%visdfdi', coupling%visdfdi)
814 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nirbmui', coupling%nirbmui)
815 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nirdfui', coupling%nirdfui)
816 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%visbmui', coupling%visbmui)
817 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%visdfui', coupling%visdfui)
818 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%sfcdsw ', coupling%sfcdsw )
819 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%sfcnsw ', coupling%sfcnsw )
820 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%sfcdlw ', coupling%sfcdlw )
821 if (model%cplflx .or. model%do_sppt .or. model%cplchm)
then
822 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%rain_cpl', coupling%rain_cpl)
823 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%snow_cpl', coupling%snow_cpl)
828 if (model%cplflx)
then
829 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%oro_cpl' , coupling%oro_cpl )
830 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%slmsk_cpl' , coupling%slmsk_cpl )
831 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%slimskin_cpl', coupling%slimskin_cpl )
832 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dusfcin_cpl ', coupling%dusfcin_cpl )
833 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvsfcin_cpl ', coupling%dvsfcin_cpl )
834 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dtsfcin_cpl ', coupling%dtsfcin_cpl )
835 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dqsfcin_cpl ', coupling%dqsfcin_cpl )
836 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ulwsfcin_cpl', coupling%ulwsfcin_cpl )
841 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%hsnoin_cpl ', coupling%hsnoin_cpl )
842 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dusfc_cpl ', coupling%dusfc_cpl )
843 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvsfc_cpl ', coupling%dvsfc_cpl )
844 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dtsfc_cpl ', coupling%dtsfc_cpl )
845 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dqsfc_cpl ', coupling%dqsfc_cpl )
846 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dlwsfc_cpl ', coupling%dlwsfc_cpl )
847 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dswsfc_cpl ', coupling%dswsfc_cpl )
848 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dnirbm_cpl ', coupling%dnirbm_cpl )
849 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dnirdf_cpl ', coupling%dnirdf_cpl )
850 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvisbm_cpl ', coupling%dvisbm_cpl )
851 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvisdf_cpl ', coupling%dvisdf_cpl )
852 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nlwsfc_cpl ', coupling%nlwsfc_cpl )
853 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nswsfc_cpl ', coupling%nswsfc_cpl )
854 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nnirbm_cpl ', coupling%nnirbm_cpl )
855 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nnirdf_cpl ', coupling%nnirdf_cpl )
856 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nvisbm_cpl ', coupling%nvisbm_cpl )
857 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nvisdf_cpl ', coupling%nvisdf_cpl )
858 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dusfci_cpl ', coupling%dusfci_cpl )
859 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvsfci_cpl ', coupling%dvsfci_cpl )
860 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dtsfci_cpl ', coupling%dtsfci_cpl )
861 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dqsfci_cpl ', coupling%dqsfci_cpl )
862 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dlwsfci_cpl ', coupling%dlwsfci_cpl )
863 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dswsfci_cpl ', coupling%dswsfci_cpl )
864 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dnirbmi_cpl ', coupling%dnirbmi_cpl )
865 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dnirdfi_cpl ', coupling%dnirdfi_cpl )
866 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvisbmi_cpl ', coupling%dvisbmi_cpl )
867 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvisdfi_cpl ', coupling%dvisdfi_cpl )
868 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nlwsfci_cpl ', coupling%nlwsfci_cpl )
869 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nswsfci_cpl ', coupling%nswsfci_cpl )
870 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nnirbmi_cpl ', coupling%nnirbmi_cpl )
871 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nnirdfi_cpl ', coupling%nnirdfi_cpl )
872 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nvisbmi_cpl ', coupling%nvisbmi_cpl )
873 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nvisdfi_cpl ', coupling%nvisdfi_cpl )
874 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%t2mi_cpl ', coupling%t2mi_cpl )
875 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%q2mi_cpl ', coupling%q2mi_cpl )
876 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%u10mi_cpl ', coupling%u10mi_cpl )
877 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%v10mi_cpl ', coupling%v10mi_cpl )
878 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%tsfci_cpl ', coupling%tsfci_cpl )
879 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%psurfi_cpl ', coupling%psurfi_cpl )
880 if (model%use_med_flux)
then
881 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dusfcino_cpl ', coupling%dusfcino_cpl )
882 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dvsfcino_cpl ', coupling%dvsfcino_cpl )
883 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dtsfcino_cpl ', coupling%dtsfcino_cpl )
884 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%dqsfcino_cpl ', coupling%dqsfcino_cpl )
885 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ulwsfcino_cpl', coupling%ulwsfcino_cpl )
888 if (model%cplchm)
then
889 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%rainc_cpl', coupling%rainc_cpl)
890 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ushfsfci ', coupling%ushfsfci )
891 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%pfi_lsan', coupling%pfi_lsan )
892 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%pfl_lsan', coupling%pfl_lsan )
894 if (model%do_sppt)
then
895 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%sppt_wts', coupling%sppt_wts)
897 if (model%do_shum)
then
898 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%shum_wts', coupling%shum_wts)
900 if (model%do_skeb)
then
901 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%skebu_wts', coupling%skebu_wts )
902 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%skebv_wts', coupling%skebv_wts )
904 if (model%lndp_type /= 0)
then
905 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%sfc_wts' , coupling%sfc_wts )
907 if (model%do_ca)
then
908 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ca1 ', coupling%ca1 )
909 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ca_deep ', coupling%ca_deep )
910 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ca_turb ', coupling%ca_turb )
911 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ca_shal ', coupling%ca_shal )
912 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ca_rad ', coupling%ca_rad )
913 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%ca_micro ', coupling%ca_micro )
915 if(model%imp_physics == model%imp_physics_thompson .and. model%ltaerosol)
then
916 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nwfa2d', coupling%nwfa2d)
917 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%nifa2d', coupling%nifa2d)
919 if (model%do_RRTMGP)
then
920 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%fluxlwUP_jac', coupling%fluxlwUP_jac)
921 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Coupling%htrlw', coupling%htrlw)
925 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%xlon ', grid%xlon )
926 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%xlat ', grid%xlat )
927 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%xlat_d', grid%xlat_d)
928 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%sinlat', grid%sinlat)
929 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%coslat', grid%coslat)
930 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%area ', grid%area )
931 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%dx ', grid%dx )
932 if (model%kdt>0 .and. model%ntoz>0)
then
933 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%ddy_o3 ', grid%ddy_o3 )
934 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%jindx1_o3', grid%jindx1_o3)
935 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%jindx2_o3', grid%jindx2_o3)
937 if (model%kdt>0 .and. model%h2o_phys)
then
938 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%ddy_h ', grid%ddy_h )
939 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%jindx1_h', grid%jindx1_h)
940 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%jindx2_h', grid%jindx2_h)
942 if (model%kdt>0 .and. model%do_ugwp_v1)
then
943 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%ddy_j1tau ', grid%ddy_j1tau )
944 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%ddy_j2tau ', grid%ddy_j2tau )
945 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%jindx1_tau', grid%jindx1_tau )
946 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Grid%jindx2_tau', grid%jindx2_tau )
1053 subroutine gfs_interstitialtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling, &
1054 Grid, Tbd, Cldprop, Radtend, Diag, Interstitial, &
1055 nthreads, blkno, errmsg, errflg)
1064 use gfs_typedefs,
only: gfs_control_type, gfs_statein_type, &
1065 gfs_stateout_type, gfs_sfcprop_type, &
1066 gfs_coupling_type, gfs_grid_type, &
1067 gfs_tbd_type, gfs_cldprop_type, &
1068 gfs_radtend_type, gfs_diag_type
1069 use ccpp_typedefs,
only: gfs_interstitial_type
1074 type(gfs_control_type),
intent(in ) :: model
1075 type(gfs_statein_type),
intent(in ) :: statein
1076 type(gfs_stateout_type),
intent(in ) :: stateout
1077 type(gfs_sfcprop_type),
intent(in ) :: sfcprop
1078 type(gfs_coupling_type),
intent(in ) :: coupling
1079 type(gfs_grid_type),
intent(in ) :: grid
1080 type(gfs_tbd_type),
intent(in ) :: tbd
1081 type(gfs_cldprop_type),
intent(in ) :: cldprop
1082 type(gfs_radtend_type),
intent(in ) :: radtend
1083 type(gfs_diag_type),
intent(in ) :: diag
1084 type(gfs_interstitial_type),
intent(in) :: interstitial
1085 integer,
intent(in ) :: nthreads
1086 integer,
intent(in ) :: blkno
1087 character(len=*),
intent( out) :: errmsg
1088 integer,
intent( out) :: errflg
1091 integer :: impi, iomp, ierr
1092 integer :: mpirank, mpisize, mpicomm
1093 integer :: omprank, ompsize
1094 integer :: istart, iend, kstart, kend
1101 mpicomm = model%communicator
1103 call mpi_comm_size(mpicomm, mpisize, ierr)
1110 omprank = omp_get_thread_num()
1126 if (mpirank==impi .and. omprank==iomp)
then
1128 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ipr ', interstitial%ipr )
1129 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%itc ', interstitial%itc )
1130 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%latidxprnt ', interstitial%latidxprnt )
1131 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%levi ', interstitial%levi )
1132 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%lmk ', interstitial%lmk )
1133 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%lmp ', interstitial%lmp )
1134 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nbdlw ', interstitial%nbdlw )
1135 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nbdsw ', interstitial%nbdsw )
1136 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nf_aelw ', interstitial%nf_aelw )
1137 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nf_aesw ', interstitial%nf_aesw )
1138 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nsamftrac ', interstitial%nsamftrac )
1139 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nscav ', interstitial%nscav )
1140 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nspc1 ', interstitial%nspc1 )
1141 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ntiwx ', interstitial%ntiwx )
1142 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nvdiff ', interstitial%nvdiff )
1143 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%phys_hydrostatic ', interstitial%phys_hydrostatic )
1144 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%skip_macro ', interstitial%skip_macro )
1145 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%trans_aero ', interstitial%trans_aero )
1147 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjsfculw_land ', interstitial%adjsfculw_land )
1148 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjsfculw_ice ', interstitial%adjsfculw_ice )
1149 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjsfculw_water ', interstitial%adjsfculw_water )
1150 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjnirbmd ', interstitial%adjnirbmd )
1151 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjnirbmu ', interstitial%adjnirbmu )
1152 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjnirdfd ', interstitial%adjnirdfd )
1153 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjnirdfu ', interstitial%adjnirdfu )
1154 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjvisbmd ', interstitial%adjvisbmd )
1155 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjvisbmu ', interstitial%adjvisbmu )
1156 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjvisdfu ', interstitial%adjvisdfu )
1157 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%adjvisdfd ', interstitial%adjvisdfd )
1158 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%aerodp ', interstitial%aerodp )
1159 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%alb1d ', interstitial%alb1d )
1160 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%bexp1d ', interstitial%bexp1d )
1161 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cd ', interstitial%cd )
1162 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cd_ice ', interstitial%cd_ice )
1163 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cd_land ', interstitial%cd_land )
1164 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cd_water ', interstitial%cd_water )
1165 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cdq ', interstitial%cdq )
1166 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cdq_ice ', interstitial%cdq_ice )
1167 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cdq_land ', interstitial%cdq_land )
1168 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cdq_water ', interstitial%cdq_water )
1169 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%chh_ice ', interstitial%chh_ice )
1170 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%chh_land ', interstitial%chh_land )
1171 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%chh_water ', interstitial%chh_water )
1172 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cldf ', interstitial%cldf )
1173 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cldsa ', interstitial%cldsa )
1174 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cldtaulw ', interstitial%cldtaulw )
1175 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cldtausw ', interstitial%cldtausw )
1176 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld1d ', interstitial%cld1d )
1177 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%clw ', interstitial%clw )
1178 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%clx ', interstitial%clx )
1179 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%clouds ', interstitial%clouds )
1180 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cmm_ice ', interstitial%cmm_ice )
1181 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cmm_land ', interstitial%cmm_land )
1182 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cmm_water ', interstitial%cmm_water )
1183 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnvc ', interstitial%cnvc )
1184 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnvw ', interstitial%cnvw )
1185 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ctei_r ', interstitial%ctei_r )
1186 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ctei_rml ', interstitial%ctei_rml )
1187 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cumabs ', interstitial%cumabs )
1188 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dd_mf ', interstitial%dd_mf )
1189 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%de_lgth ', interstitial%de_lgth )
1190 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%del ', interstitial%del )
1191 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%del_gz ', interstitial%del_gz )
1192 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%delr ', interstitial%delr )
1193 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dlength ', interstitial%dlength )
1194 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dqdt ', interstitial%dqdt )
1195 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dqsfc1 ', interstitial%dqsfc1 )
1196 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%drain ', interstitial%drain )
1197 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dtdt ', interstitial%dtdt )
1198 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dtsfc1 ', interstitial%dtsfc1 )
1199 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dtzm ', interstitial%dtzm )
1200 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dt_mf ', interstitial%dt_mf )
1201 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dudt ', interstitial%dudt )
1202 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dusfcg ', interstitial%dusfcg )
1203 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dusfc1 ', interstitial%dusfc1 )
1204 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dvdftra ', interstitial%dvdftra )
1205 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dvdt ', interstitial%dvdt )
1206 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dvsfcg ', interstitial%dvsfcg )
1207 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dvsfc1 ', interstitial%dvsfc1 )
1208 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dzlyr ', interstitial%dzlyr )
1209 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%elvmax ', interstitial%elvmax )
1210 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ep1d ', interstitial%ep1d )
1211 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ep1d_ice ', interstitial%ep1d_ice )
1212 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ep1d_land ', interstitial%ep1d_land )
1213 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ep1d_water ', interstitial%ep1d_water )
1214 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%evap_ice ', interstitial%evap_ice )
1215 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%evap_land ', interstitial%evap_land )
1216 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%evap_water ', interstitial%evap_water )
1217 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ext_diag_thompson_reset', interstitial%ext_diag_thompson_reset)
1218 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%faerlw ', interstitial%faerlw )
1219 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%faersw ', interstitial%faersw )
1220 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ffhh_ice ', interstitial%ffhh_ice )
1221 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ffhh_land ', interstitial%ffhh_land )
1222 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ffhh_water ', interstitial%ffhh_water )
1223 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fh2 ', interstitial%fh2 )
1224 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fh2_ice ', interstitial%fh2_ice )
1225 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fh2_land ', interstitial%fh2_land )
1226 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fh2_water ', interstitial%fh2_water )
1227 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%flag_cice ', interstitial%flag_cice )
1228 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%flag_guess ', interstitial%flag_guess )
1229 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%flag_iter ', interstitial%flag_iter )
1230 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ffmm_ice ', interstitial%ffmm_ice )
1231 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ffmm_land ', interstitial%ffmm_land )
1232 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ffmm_water ', interstitial%ffmm_water )
1233 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fm10 ', interstitial%fm10 )
1234 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fm10_ice ', interstitial%fm10_ice )
1235 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fm10_land ', interstitial%fm10_land )
1236 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fm10_water ', interstitial%fm10_water )
1237 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%frain ', interstitial%frain )
1238 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%frland ', interstitial%frland )
1239 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fscav ', interstitial%fscav )
1240 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fswtr ', interstitial%fswtr )
1241 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gabsbdlw ', interstitial%gabsbdlw )
1242 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gabsbdlw_ice ', interstitial%gabsbdlw_ice )
1243 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gabsbdlw_land ', interstitial%gabsbdlw_land )
1244 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gabsbdlw_water ', interstitial%gabsbdlw_water )
1245 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gamma ', interstitial%gamma )
1246 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gamq ', interstitial%gamq )
1247 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gamt ', interstitial%gamt )
1248 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gasvmr ', interstitial%gasvmr )
1249 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gflx ', interstitial%gflx )
1250 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gflx_ice ', interstitial%gflx_ice )
1251 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gflx_land ', interstitial%gflx_land )
1252 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gflx_water ', interstitial%gflx_water )
1253 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gwdcu ', interstitial%gwdcu )
1254 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%gwdcv ', interstitial%gwdcv )
1255 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%zvfun ', interstitial%zvfun )
1256 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%hffac ', interstitial%hffac )
1257 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%hflxq ', interstitial%hflxq )
1258 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%hflx_ice ', interstitial%hflx_ice )
1259 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%hflx_land ', interstitial%hflx_land )
1260 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%hflx_water ', interstitial%hflx_water )
1261 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%htlwc ', interstitial%htlwc )
1262 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%htlw0 ', interstitial%htlw0 )
1263 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%htswc ', interstitial%htswc )
1264 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%htsw0 ', interstitial%htsw0 )
1265 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dry ', interstitial%dry )
1266 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%idxday ', interstitial%idxday )
1267 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%icy ', interstitial%icy )
1268 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%lake ', interstitial%lake )
1269 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ocean ', interstitial%ocean )
1270 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%islmsk ', interstitial%islmsk )
1271 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%islmsk_cice ', interstitial%islmsk_cice )
1272 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%wet ', interstitial%wet )
1273 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kb ', interstitial%kb )
1274 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kbot ', interstitial%kbot )
1275 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kcnv ', interstitial%kcnv )
1276 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kd ', interstitial%kd )
1277 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kinver ', interstitial%kinver )
1278 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kpbl ', interstitial%kpbl )
1279 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kt ', interstitial%kt )
1280 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ktop ', interstitial%ktop )
1281 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%max_hourly_reset ', interstitial%max_hourly_reset )
1282 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%mbota ', interstitial%mbota )
1283 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%mtopa ', interstitial%mtopa )
1284 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%nday ', interstitial%nday )
1285 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%oa4 ', interstitial%oa4 )
1286 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%oc ', interstitial%oc )
1287 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%olyr ', interstitial%olyr )
1288 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%plvl ', interstitial%plvl )
1289 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%plyr ', interstitial%plyr )
1290 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%prcpmp ', interstitial%prcpmp )
1291 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%prnum ', interstitial%prnum )
1292 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qlyr ', interstitial%qlyr )
1293 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qss_ice ', interstitial%qss_ice )
1294 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qss_land ', interstitial%qss_land )
1295 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qss_water ', interstitial%qss_water )
1296 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%radar_reset ', interstitial%radar_reset )
1297 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%raddt ', interstitial%raddt )
1298 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%raincd ', interstitial%raincd )
1299 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%raincs ', interstitial%raincs )
1300 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rainmcadj ', interstitial%rainmcadj )
1301 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rainp ', interstitial%rainp )
1302 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rb ', interstitial%rb )
1303 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rb_ice ', interstitial%rb_ice )
1304 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rb_land ', interstitial%rb_land )
1305 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rb_water ', interstitial%rb_water )
1306 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rhc ', interstitial%rhc )
1307 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%runoff ', interstitial%runoff )
1308 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%save_q ', interstitial%save_q )
1309 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%save_t ', interstitial%save_t )
1310 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%save_tcp ', interstitial%save_tcp )
1311 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%save_u ', interstitial%save_u )
1312 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%save_v ', interstitial%save_v )
1313 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%scmpsw%uvbfc ', interstitial%scmpsw%uvbfc )
1314 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%scmpsw%uvbf0 ', interstitial%scmpsw%uvbf0 )
1315 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%scmpsw%nirbm ', interstitial%scmpsw%nirbm )
1316 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%scmpsw%nirdf ', interstitial%scmpsw%nirdf )
1317 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%scmpsw%visbm ', interstitial%scmpsw%visbm )
1318 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%scmpsw%visdf ', interstitial%scmpsw%visdf )
1319 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%sfcalb ', interstitial%sfcalb )
1320 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%sigma ', interstitial%sigma )
1321 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%sigmaf ', interstitial%sigmaf )
1322 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%sigmafrac ', interstitial%sigmafrac )
1323 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%sigmatot ', interstitial%sigmatot )
1324 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%snowc ', interstitial%snowc )
1325 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%snowd_ice ', interstitial%snowd_ice )
1326 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%snowd_land ', interstitial%snowd_land )
1327 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%snohf ', interstitial%snohf )
1328 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%snowmt ', interstitial%snowmt )
1329 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%stress ', interstitial%stress )
1330 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%stress_ice ', interstitial%stress_ice )
1331 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%stress_land ', interstitial%stress_land )
1332 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%stress_water ', interstitial%stress_water )
1333 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%theta ', interstitial%theta )
1334 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tlvl ', interstitial%tlvl )
1335 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tlyr ', interstitial%tlyr )
1336 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tprcp_ice ', interstitial%tprcp_ice )
1337 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tprcp_land ', interstitial%tprcp_land )
1338 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tprcp_water ', interstitial%tprcp_water )
1339 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tseal ', interstitial%tseal )
1340 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tsfa ', interstitial%tsfa )
1341 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tsfc_water ', interstitial%tsfc_water )
1342 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tsfg ', interstitial%tsfg )
1343 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tsurf_ice ', interstitial%tsurf_ice )
1344 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tsurf_land ', interstitial%tsurf_land )
1345 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tsurf_water ', interstitial%tsurf_water )
1346 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%uustar_ice ', interstitial%uustar_ice )
1347 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%uustar_land ', interstitial%uustar_land )
1348 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%uustar_water ', interstitial%uustar_water )
1349 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%vdftra ', interstitial%vdftra )
1350 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%vegf1d ', interstitial%vegf1d )
1351 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%wcbmax ', interstitial%wcbmax )
1355 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%wind ', interstitial%wind )
1356 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%work1 ', interstitial%work1 )
1357 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%work2 ', interstitial%work2 )
1358 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%work3 ', interstitial%work3 )
1359 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%xcosz ', interstitial%xcosz )
1360 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%xlai1d ', interstitial%xlai1d )
1361 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%xmu ', interstitial%xmu )
1362 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%z01d ', interstitial%z01d )
1363 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%zt1d ', interstitial%zt1d )
1364 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ztmax_ice ', interstitial%ztmax_ice )
1365 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ztmax_land ', interstitial%ztmax_land )
1366 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ztmax_water ', interstitial%ztmax_water )
1368 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tau_mtb ', interstitial%tau_mtb )
1369 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tau_ogw ', interstitial%tau_ogw )
1370 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tau_tofd ', interstitial%tau_tofd )
1371 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tau_ngw ', interstitial%tau_ngw )
1372 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tau_oss ', interstitial%tau_oss )
1373 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dudt_mtb ', interstitial%dudt_mtb )
1374 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dudt_tms ', interstitial%dudt_tms )
1375 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%zmtb ', interstitial%zmtb )
1376 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%zlwb ', interstitial%zlwb )
1377 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%zogw ', interstitial%zogw )
1378 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%zngw ', interstitial%zngw )
1380 if (model%do_ugwp_v1)
then
1381 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dudt_ngw ', interstitial%dudt_ngw )
1382 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dvdt_ngw ', interstitial%dvdt_ngw )
1383 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%dtdt_ngw ', interstitial%dtdt_ngw )
1384 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%kdis_ngw ', interstitial%kdis_ngw )
1387 if (model%gwd_opt==3 .or. model%gwd_opt==33 .or. &
1388 model%gwd_opt==2 .or. model%gwd_opt==22)
then
1389 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%varss ', interstitial%varss )
1390 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ocss ', interstitial%ocss )
1391 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%oa4ss ', interstitial%oa4ss )
1392 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%clxss ', interstitial%clxss )
1395 if (model%imp_physics == model%imp_physics_gfdl .or. model%imp_physics == model%imp_physics_thompson .or. model%imp_physics == model%imp_physics_nssl)
then
1396 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%graupelmp ', interstitial%graupelmp )
1397 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%icemp ', interstitial%icemp )
1398 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%rainmp ', interstitial%rainmp )
1399 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%snowmp ', interstitial%snowmp )
1401 else if (model%imp_physics == model%imp_physics_mg)
then
1402 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ncgl ', interstitial%ncgl )
1403 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ncpr ', interstitial%ncpr )
1404 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ncps ', interstitial%ncps )
1405 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qgl ', interstitial%qgl )
1406 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qrn ', interstitial%qrn )
1407 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qsnw ', interstitial%qsnw )
1408 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qlcn ', interstitial%qlcn )
1409 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qicn ', interstitial%qicn )
1410 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%w_upi ', interstitial%w_upi )
1411 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cf_upi ', interstitial%cf_upi )
1412 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnv_mfd ', interstitial%cnv_mfd )
1413 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnv_dqldt ', interstitial%cnv_dqldt )
1414 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%clcn ', interstitial%clcn )
1415 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnv_fice ', interstitial%cnv_fice )
1416 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnv_ndrop ', interstitial%cnv_ndrop )
1417 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cnv_nice ', interstitial%cnv_nice )
1420 if (model%do_shoc)
then
1421 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ncgl ', interstitial%ncgl )
1422 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qrn ', interstitial%qrn )
1423 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qsnw ', interstitial%qsnw )
1424 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qgl ', interstitial%qgl )
1425 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ncpi ', interstitial%ncpi )
1426 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%ncpl ', interstitial%ncpl )
1429 if (model%lsm == model%lsm_noahmp)
then
1430 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%t2mmp ', interstitial%t2mmp )
1431 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%q2mp ', interstitial%q2mp )
1434 if (model%do_RRTMGP)
then
1435 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%aerosolslw ', interstitial%aerosolslw )
1436 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%aerosolssw ', interstitial%aerosolssw )
1437 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_frac ', interstitial%cld_frac )
1438 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_lwp ', interstitial%cld_lwp )
1439 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_reliq ', interstitial%cld_reliq )
1440 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_iwp ', interstitial%cld_iwp )
1441 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_reice ', interstitial%cld_reice )
1442 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_swp ', interstitial%cld_swp )
1443 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_resnow ', interstitial%cld_resnow )
1444 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_rwp ', interstitial%cld_rwp )
1445 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cld_rerain ', interstitial%cld_rerain )
1446 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%precip_frac ', interstitial%precip_frac )
1447 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxlwUP_allsky ', interstitial%fluxlwUP_allsky )
1448 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxlwDOWN_allsky ', interstitial%fluxlwDOWN_allsky )
1449 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxlwUP_clrsky ', interstitial%fluxlwUP_clrsky )
1450 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxlwDOWN_clrsky ', interstitial%fluxlwDOWN_clrsky )
1451 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxswUP_allsky ', interstitial%fluxswUP_allsky )
1452 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxswDOWN_allsky ', interstitial%fluxswDOWN_allsky )
1453 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxswUP_clrsky ', interstitial%fluxswUP_clrsky )
1454 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%fluxswDOWN_clrsky ', interstitial%fluxswDOWN_clrsky )
1455 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%relhum ', interstitial%relhum )
1456 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%q_lay ', interstitial%q_lay )
1457 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%qs_lay ', interstitial%qs_lay )
1458 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%deltaZ ', interstitial%deltaZ )
1459 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%p_lay ', interstitial%p_lay )
1460 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%p_lev ', interstitial%p_lev )
1461 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%t_lay ', interstitial%t_lay )
1462 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%t_lev ', interstitial%t_lev )
1463 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%tv_lay ', interstitial%tv_lay )
1464 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%cloud_overlap_param ', interstitial%cloud_overlap_param )
1465 call print_var(mpirank, omprank, blkno, grid%xlat_d, grid%xlon_d,
'Interstitial%precip_overlap_param', interstitial%precip_overlap_param )