include file: wrf_bdyout.inc 1,96 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/wrf_bdyout.inc' ! ! WARNING This file is generated automatically by use_registry ! using the data base in the file named Registry. ! Do not edit. Your changes to this file will be lost. ! IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BXS' , & ! Data Name grid%em_u_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'X' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BXE' , & ! Data Name grid%em_u_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'X' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BYS' , & ! Data Name grid%em_u_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'X' , & ! Stagger 'west_east_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BYS memorder YSZ' , & ! Debug message 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BYE' , & ! Data Name grid%em_u_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'X' , & ! Stagger 'west_east_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BYE memorder YEZ' , & ! Debug message 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BTXS' , & ! Data Name grid%em_u_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'X' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BTXE' , & ! Data Name grid%em_u_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'X' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BTYS' , & ! Data Name grid%em_u_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'X' , & ! Stagger 'west_east_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BTYS memorder YSZ' , & ! Debug message 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RU_BTYE' , & ! Data Name grid%em_u_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'X' , & ! Stagger 'west_east_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'X WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RU_BTYE memorder YEZ' , & ! Debug message 1, ide, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( ide, ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BXS' , & ! Data Name grid%em_v_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'Y' , & ! Stagger 'south_north_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BXS memorder XSZ' , & ! Debug message 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BXE' , & ! Data Name grid%em_v_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'Y' , & ! Stagger 'south_north_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BXE memorder XEZ' , & ! Debug message 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BYS' , & ! Data Name grid%em_v_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'Y' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BYE' , & ! Data Name grid%em_v_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'Y' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BTXS' , & ! Data Name grid%em_v_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'Y' , & ! Stagger 'south_north_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BTXS memorder XSZ' , & ! Debug message 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BTXE' , & ! Data Name grid%em_v_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'Y' , & ! Stagger 'south_north_stag' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BTXE memorder XEZ' , & ! Debug message 1, jde, kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( jde, jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BTYS' , & ! Data Name grid%em_v_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'Y' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RV_BTYE' , & ! Data Name grid%em_v_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'Y' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Y WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RV_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BXS' , & ! Data Name grid%em_w_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BXE' , & ! Data Name grid%em_w_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BYS' , & ! Data Name grid%em_w_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BYE' , & ! Data Name grid%em_w_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BTXS' , & ! Data Name grid%em_w_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BTXE' , & ! Data Name grid%em_w_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BTYS' , & ! Data Name grid%em_w_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RW_BTYE' , & ! Data Name grid%em_w_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'Z WIND TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RW_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BXS' , & ! Data Name grid%em_ph_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BXE' , & ! Data Name grid%em_ph_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BYS' , & ! Data Name grid%em_ph_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BYE' , & ! Data Name grid%em_ph_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BTXS' , & ! Data Name grid%em_ph_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BTXE' , & ! Data Name grid%em_ph_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BTYS' , & ! Data Name grid%em_ph_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'PH_BTYE' , & ! Data Name grid%em_ph_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder 'Z' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top_stag' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'HEIGHT TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field PH_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, kde, 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, kde, 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BXS' , & ! Data Name grid%em_t_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BXE' , & ! Data Name grid%em_t_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BYS' , & ! Data Name grid%em_t_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BYE' , & ! Data Name grid%em_t_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BTXS' , & ! Data Name grid%em_t_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BTXE' , & ! Data Name grid%em_t_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BTYS' , & ! Data Name grid%em_t_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'T_BTYE' , & ! Data Name grid%em_t_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'THETA PERTURBATION TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field T_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BXS' , & ! Data Name grid%em_mu_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BXE' , & ! Data Name grid%em_mu_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BYS' , & ! Data Name grid%em_mu_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BYE' , & ! Data Name grid%em_mu_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BTXS' , & ! Data Name grid%em_mu_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BTXE' , & ! Data Name grid%em_mu_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BTYS' , & ! Data Name grid%em_mu_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'MU_BTYE' , & ! Data Name grid%em_mu_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'MU TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field MU_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BXS' , & ! Data Name grid%em_rqv_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BXE' , & ! Data Name grid%em_rqv_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BYS' , & ! Data Name grid%em_rqv_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BYE' , & ! Data Name grid%em_rqv_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BTXS' , & ! Data Name grid%em_rqv_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BTXE' , & ! Data Name grid%em_rqv_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BTYS' , & ! Data Name grid%em_rqv_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF IF ( grid%dyn_opt .EQ. dyn_em ) THEN CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQV_BTYE' , & ! Data Name grid%em_rqv_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER VAPOR MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQV_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) END IF CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BXS' , & ! Data Name grid%rqc_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BXE' , & ! Data Name grid%rqc_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BYS' , & ! Data Name grid%rqc_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BYE' , & ! Data Name grid%rqc_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BTXS' , & ! Data Name grid%rqc_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BTXE' , & ! Data Name grid%rqc_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BTYS' , & ! Data Name grid%rqc_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQC_BTYE' , & ! Data Name grid%rqc_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER CLOUD MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQC_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BXS' , & ! Data Name grid%rqr_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BXE' , & ! Data Name grid%rqr_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BYS' , & ! Data Name grid%rqr_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BYE' , & ! Data Name grid%rqr_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BTXS' , & ! Data Name grid%rqr_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BTXE' , & ! Data Name grid%rqr_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BTYS' , & ! Data Name grid%rqr_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQR_BTYE' , & ! Data Name grid%rqr_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER RAIN MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQR_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BXS' , & ! Data Name grid%rqi_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BXE' , & ! Data Name grid%rqi_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BYS' , & ! Data Name grid%rqi_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BYE' , & ! Data Name grid%rqi_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BTXS' , & ! Data Name grid%rqi_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BTXE' , & ! Data Name grid%rqi_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BTYS' , & ! Data Name grid%rqi_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQI_BTYE' , & ! Data Name grid%rqi_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER ICE MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQI_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BXS' , & ! Data Name grid%rqs_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BXE' , & ! Data Name grid%rqs_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BYS' , & ! Data Name grid%rqs_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BYE' , & ! Data Name grid%rqs_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BTXS' , & ! Data Name grid%rqs_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BTXE' , & ! Data Name grid%rqs_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BTYS' , & ! Data Name grid%rqs_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQS_BTYE' , & ! Data Name grid%rqs_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER SNOW MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQS_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BXS' , & ! Data Name grid%rqg_b(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BXE' , & ! Data Name grid%rqg_b(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BYS' , & ! Data Name grid%rqg_b(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BYE' , & ! Data Name grid%rqg_b(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BTXS' , & ! Data Name grid%rqg_bt(1,kds,1,1) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XSZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BTXS memorder XSZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BTXE' , & ! Data Name grid%rqg_bt(1,kds,1,2) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'XEZ' , & ! MemoryOrder '' , & ! Stagger 'south_north' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BTXE memorder XEZ' , & ! Debug message 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & jps, MIN( (jde-1), jpe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BTYS' , & ! Data Name grid%rqg_bt(1,kds,1,3) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YSZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BTYS memorder YSZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) CALL wrf_ext_write_field
( & fid , & ! DataHandle current_date(1:19) , & ! DateStr 'RQG_BTYE' , & ! Data Name grid%rqg_bt(1,kds,1,4) , & ! Field WRF_real , & ! FieldType grid%communicator , & ! Comm grid%iocommunicator , & ! Comm grid%domdesc , & ! Comm grid%bdy_mask , & ! bdy_mask dryrun , & ! flag 'YEZ' , & ! MemoryOrder '' , & ! Stagger 'west_east' , & ! Dimname 1 'bottom_top' , & ! Dimname 2 'bdy_width' , & ! Dimname 3 'WATER GRAUPEL MIXING RATIO TENDENCY AT BOUNDARIES' , & ! Desc '' , & ! Units 'inc/wrf_bdyout.inc ext_write_field RQG_BTYE memorder YEZ' , & ! Debug message 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & 1, MAX( ide , jde ), kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) !ENDOFREGISTRYGENERATEDINCLUDE