SUBROUTINE wrf_bdyout ( fid , grid , config_flags, switch , & dryrun, ierr ) USE module_io USE module_wrf_error USE module_io_wrf USE module_domain USE module_state_description USE module_configure USE module_scalar_tables USE module_utility IMPLICIT NONE integer, parameter :: WRF_FILE_NOT_OPENED = 100 integer, parameter :: WRF_FILE_OPENED_NOT_COMMITTED = 101 integer, parameter :: WRF_FILE_OPENED_FOR_WRITE = 102 integer, parameter :: WRF_FILE_OPENED_FOR_READ = 103 integer, parameter :: WRF_REAL = 104 integer, parameter :: WRF_DOUBLE = 105 integer, parameter :: WRF_FLOAT=WRF_REAL integer, parameter :: WRF_INTEGER = 106 integer, parameter :: WRF_LOGICAL = 107 integer, parameter :: WRF_COMPLEX = 108 integer, parameter :: WRF_DOUBLE_COMPLEX = 109 integer, parameter :: WRF_FILE_OPENED_FOR_UPDATE = 110 integer, parameter :: WRF_FILE_OPENED_AND_COMMITTED = 102 integer, parameter :: WRF_NO_ERR = 0 integer, parameter :: WRF_WARN_FILE_NF = -1 integer, parameter :: WRF_WARN_MD_NF = -2 integer, parameter :: WRF_WARN_TIME_NF = -3 integer, parameter :: WRF_WARN_TIME_EOF = -4 integer, parameter :: WRF_WARN_VAR_NF = -5 integer, parameter :: WRF_WARN_VAR_EOF = -6 integer, parameter :: WRF_WARN_TOO_MANY_FILES = -7 integer, parameter :: WRF_WARN_TYPE_MISMATCH = -8 integer, parameter :: WRF_WARN_WRITE_RONLY_FILE = -9 integer, parameter :: WRF_WARN_READ_WONLY_FILE = -10 integer, parameter :: WRF_WARN_FILE_NOT_OPENED = -11 integer, parameter :: WRF_WARN_2DRYRUNS_1VARIABLE = -12 integer, parameter :: WRF_WARN_READ_PAST_EOF = -13 integer, parameter :: WRF_WARN_BAD_DATA_HANDLE = -14 integer, parameter :: WRF_WARN_WRTLEN_NE_DRRUNLEN = -15 integer, parameter :: WRF_WARN_TOO_MANY_DIMS = -16 integer, parameter :: WRF_WARN_COUNT_TOO_LONG = -17 integer, parameter :: WRF_WARN_DIMENSION_ERROR = -18 integer, parameter :: WRF_WARN_BAD_MEMORYORDER = -19 integer, parameter :: WRF_WARN_DIMNAME_REDEFINED = -20 integer, parameter :: WRF_WARN_CHARSTR_GT_LENDATA = -21 integer, parameter :: WRF_WARN_NOTSUPPORTED = -22 integer, parameter :: WRF_WARN_NOOP = -23 integer, parameter :: WRF_ERR_FATAL_ALLOCATION_ERROR = -100 integer, parameter :: WRF_ERR_FATAL_DEALLOCATION_ERR = -101 integer, parameter :: WRF_ERR_FATAL_BAD_FILE_STATUS = -102 integer, parameter :: WRF_ERR_FATAL_BAD_VARIABLE_DIM = -1004 integer, parameter :: WRF_ERR_FATAL_MDVAR_DIM_NOT_1D = -1005 integer, parameter :: WRF_ERR_FATAL_TOO_MANY_TIMES = -1006 integer, parameter :: WRF_WARN_BAD_DATA_TYPE = -1007 integer, parameter :: WRF_WARN_FILE_NOT_COMMITTED = -1008 integer, parameter :: WRF_WARN_FILE_OPEN_FOR_READ = -1009 integer, parameter :: WRF_IO_NOT_INITIALIZED = -1010 integer, parameter :: WRF_WARN_MD_AFTER_OPEN = -1011 integer, parameter :: WRF_WARN_TOO_MANY_VARIABLES = -1012 integer, parameter :: WRF_WARN_DRYRUN_CLOSE = -1013 integer, parameter :: WRF_WARN_DATESTR_BAD_LENGTH = -1014 integer, parameter :: WRF_WARN_ZERO_LENGTH_READ = -1015 integer, parameter :: WRF_WARN_DATA_TYPE_NOT_FOUND = -1016 integer, parameter :: WRF_WARN_DATESTR_ERROR = -1017 integer, parameter :: WRF_WARN_DRYRUN_READ = -1018 integer, parameter :: WRF_WARN_ZERO_LENGTH_GET = -1019 integer, parameter :: WRF_WARN_ZERO_LENGTH_PUT = -1020 integer, parameter :: WRF_WARN_NETCDF = -1021 integer, parameter :: WRF_WARN_LENGTH_LESS_THAN_1 = -1022 integer, parameter :: WRF_WARN_MORE_DATA_IN_FILE = -1023 integer, parameter :: WRF_WARN_DATE_LT_LAST_DATE = -1024 integer, parameter :: WRF_HDF5_ERR_FILE = -200 integer, parameter :: WRF_HDF5_ERR_MD = -201 integer, parameter :: WRF_HDF5_ERR_TIME = -202 integer, parameter :: WRF_HDF5_ERR_TIME_EOF = -203 integer, parameter :: WRF_HDF5_ERR_MORE_DATA_IN_FILE = -204 integer, parameter :: WRF_HDF5_ERR_DATE_LT_LAST_DATE = -205 integer, parameter :: WRF_HDF5_ERR_TOO_MANY_FILES = -206 integer, parameter :: WRF_HDF5_ERR_TYPE_MISMATCH = -207 integer, parameter :: WRF_HDF5_ERR_LENGTH_LESS_THAN_1 = -208 integer, parameter :: WRF_HDF5_ERR_WRITE_RONLY_FILE = -209 integer, parameter :: WRF_HDF5_ERR_READ_WONLY_FILE = -210 integer, parameter :: WRF_HDF5_ERR_FILE_NOT_OPENED = -211 integer, parameter :: WRF_HDF5_ERR_DATESTR_ERROR = -212 integer, parameter :: WRF_HDF5_ERR_DRYRUN_READ = -213 integer, parameter :: WRF_HDF5_ERR_ZERO_LENGTH_GET = -214 integer, parameter :: WRF_HDF5_ERR_ZERO_LENGTH_PUT = -215 integer, parameter :: WRF_HDF5_ERR_2DRYRUNS_1VARIABLE = -216 integer, parameter :: WRF_HDF5_ERR_DATA_TYPE_NOTFOUND = -217 integer, parameter :: WRF_HDF5_ERR_READ_PAST_EOF = -218 integer, parameter :: WRF_HDF5_ERR_BAD_DATA_HANDLE = -219 integer, parameter :: WRF_HDF5_ERR_WRTLEN_NE_DRRUNLEN = -220 integer, parameter :: WRF_HDF5_ERR_DRYRUN_CLOSE = -221 integer, parameter :: WRF_HDF5_ERR_DATESTR_BAD_LENGTH = -222 integer, parameter :: WRF_HDF5_ERR_ZERO_LENGTH_READ = -223 integer, parameter :: WRF_HDF5_ERR_TOO_MANY_DIMS = -224 integer, parameter :: WRF_HDF5_ERR_TOO_MANY_VARIABLES = -225 integer, parameter :: WRF_HDF5_ERR_COUNT_TOO_LONG = -226 integer, parameter :: WRF_HDF5_ERR_DIMENSION_ERROR = -227 integer, parameter :: WRF_HDF5_ERR_BAD_MEMORYORDER = -228 integer, parameter :: WRF_HDF5_ERR_DIMNAME_REDEFINED = -229 integer, parameter :: WRF_HDF5_ERR_MD_AFTER_OPEN = -230 integer, parameter :: WRF_HDF5_ERR_CHARSTR_GT_LENDATA = -231 integer, parameter :: WRF_HDF5_ERR_BAD_DATA_TYPE = -232 integer, parameter :: WRF_HDF5_ERR_FILE_NOT_COMMITTED = -233 integer, parameter :: WRF_HDF5_ERR_ALLOCATION = -2001 integer, parameter :: WRF_HDF5_ERR_DEALLOCATION = -2002 integer, parameter :: WRF_HDF5_ERR_BAD_FILE_STATUS = -2003 integer, parameter :: WRF_HDF5_ERR_BAD_VARIABLE_DIM = -2004 integer, parameter :: WRF_HDF5_ERR_MDVAR_DIM_NOT_1D = -2005 integer, parameter :: WRF_HDF5_ERR_TOO_MANY_TIMES = -2006 integer, parameter :: WRF_HDF5_ERR_DATA_ID_NOTFOUND = -2007 integer, parameter :: WRF_HDF5_ERR_DATASPACE = -300 integer, parameter :: WRF_HDF5_ERR_DATATYPE = -301 integer, parameter :: WRF_HDF5_ERR_PROPERTY_LIST = -302 integer, parameter :: WRF_HDF5_ERR_DATASET_CREATE = -303 integer, parameter :: WRF_HDF5_ERR_DATASET_READ = -304 integer, parameter :: WRF_HDF5_ERR_DATASET_WRITE = -305 integer, parameter :: WRF_HDF5_ERR_DATASET_OPEN = -306 integer, parameter :: WRF_HDF5_ERR_DATASET_GENERAL = -307 integer, parameter :: WRF_HDF5_ERR_GROUP = -308 integer, parameter :: WRF_HDF5_ERR_FILE_OPEN = -309 integer, parameter :: WRF_HDF5_ERR_FILE_CREATE = -310 integer, parameter :: WRF_HDF5_ERR_DATASET_CLOSE = -311 integer, parameter :: WRF_HDF5_ERR_FILE_CLOSE = -312 integer, parameter :: WRF_HDF5_ERR_CLOSE_GENERAL = -313 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_CREATE = -314 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_READ = -315 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_WRITE = -316 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_OPEN = -317 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_GENERAL = -318 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_CLOSE = -319 integer, parameter :: WRF_HDF5_ERR_OTHERS = -320 integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_OTHERS = -321 TYPE(domain) :: grid TYPE(grid_config_rec_type), INTENT(INOUT) :: config_flags INTEGER, INTENT(IN) :: fid, switch INTEGER, INTENT(INOUT) :: ierr LOGICAL, INTENT(IN) :: dryrun INTEGER ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & ips , ipe , jps , jpe , kps , kpe INTEGER itrace INTEGER , DIMENSION(3) :: domain_start , domain_end INTEGER , DIMENSION(3) :: memory_start , memory_end INTEGER , DIMENSION(3) :: patch_start , patch_end INTEGER i,j INTEGER julyr, julday, idt, iswater , map_proj REAL gmt, cen_lat, cen_lon, bdyfrq , truelat1 , truelat2, & mp_physics, ra_lw_physics, ra_sw_physics, sf_sfclay_physics, & sf_surface_physics, bl_pbl_physics, cu_physics REAL khdif, kvdif INTEGER rc CHARACTER*256 message CHARACTER*80 char_junk INTEGER ibuf(1) REAL rbuf(1) CHARACTER*40 :: next_datestr CALL get_ijk_from_grid ( grid , & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & ips, ipe, jps, jpe, kps, kpe ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BXS' , & grid%pd_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XS' , & '' , & 'south_north' , & 'bdy_width' , & 'one_element' , & 'bdy Mass at I,J in the sigma domain' , & 'Pa' , & 'inc/wrf_bdyout.inc ext_write_field PD_BXS memorder XS' , & 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, & jms, jme, 1, config_flags%spec_bdy_width, 1, 1, & jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BXE' , & grid%pd_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XE' , & '' , & 'south_north' , & 'bdy_width' , & 'one_element' , & 'bdy Mass at I,J in the sigma domain' , & 'Pa' , & 'inc/wrf_bdyout.inc ext_write_field PD_BXE memorder XE' , & 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, & jms, jme, 1, config_flags%spec_bdy_width, 1, 1, & jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BYS' , & grid%pd_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YS' , & '' , & 'west_east' , & 'bdy_width' , & 'one_element' , & 'bdy Mass at I,J in the sigma domain' , & 'Pa' , & 'inc/wrf_bdyout.inc ext_write_field PD_BYS memorder YS' , & 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, & ims, ime, 1, config_flags%spec_bdy_width, 1, 1, & ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BYE' , & grid%pd_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YE' , & '' , & 'west_east' , & 'bdy_width' , & 'one_element' , & 'bdy Mass at I,J in the sigma domain' , & 'Pa' , & 'inc/wrf_bdyout.inc ext_write_field PD_BYE memorder YE' , & 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, & ims, ime, 1, config_flags%spec_bdy_width, 1, 1, & ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BTXS' , & grid%pd_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XS' , & '' , & 'south_north' , & 'bdy_width' , & 'one_element' , & 'bdy tend Mass at I,J in the sigma domain' , & '(Pa)/dt' , & 'inc/wrf_bdyout.inc ext_write_field PD_BTXS memorder XS' , & 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, & jms, jme, 1, config_flags%spec_bdy_width, 1, 1, & jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BTXE' , & grid%pd_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XE' , & '' , & 'south_north' , & 'bdy_width' , & 'one_element' , & 'bdy tend Mass at I,J in the sigma domain' , & '(Pa)/dt' , & 'inc/wrf_bdyout.inc ext_write_field PD_BTXE memorder XE' , & 1, (jde-1), 1, config_flags%spec_bdy_width, 1, 1, & jms, jme, 1, config_flags%spec_bdy_width, 1, 1, & jps, MIN( (jde-1), jpe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BTYS' , & grid%pd_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YS' , & '' , & 'west_east' , & 'bdy_width' , & 'one_element' , & 'bdy tend Mass at I,J in the sigma domain' , & '(Pa)/dt' , & 'inc/wrf_bdyout.inc ext_write_field PD_BTYS memorder YS' , & 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, & ims, ime, 1, config_flags%spec_bdy_width, 1, 1, & ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'PD_BTYE' , & grid%pd_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YE' , & '' , & 'west_east' , & 'bdy_width' , & 'one_element' , & 'bdy tend Mass at I,J in the sigma domain' , & '(Pa)/dt' , & 'inc/wrf_bdyout.inc ext_write_field PD_BTYE memorder YE' , & 1, (ide-1), 1, config_flags%spec_bdy_width, 1, 1, & ims, ime, 1, config_flags%spec_bdy_width, 1, 1, & ips, MIN( (ide-1), ipe ), 1, config_flags%spec_bdy_width, 1, 1, & ierr ) CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & 'T_BXS' , & grid%t_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Sensible temperature' , & 'K' , & 'inc/wrf_bdyout.inc ext_write_field T_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'T_BXE' , & grid%t_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Sensible temperature' , & 'K' , & 'inc/wrf_bdyout.inc ext_write_field T_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'T_BYS' , & grid%t_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Sensible temperature' , & 'K' , & 'inc/wrf_bdyout.inc ext_write_field T_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'T_BYE' , & grid%t_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Sensible temperature' , & 'K' , & 'inc/wrf_bdyout.inc ext_write_field T_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'T_BTXS' , & grid%t_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Sensible temperature' , & '(K)/dt' , & 'inc/wrf_bdyout.inc ext_write_field T_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'T_BTXE' , & grid%t_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Sensible temperature' , & '(K)/dt' , & 'inc/wrf_bdyout.inc ext_write_field T_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'T_BTYS' , & grid%t_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Sensible temperature' , & '(K)/dt' , & 'inc/wrf_bdyout.inc ext_write_field T_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'T_BTYE' , & grid%t_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Sensible temperature' , & '(K)/dt' , & 'inc/wrf_bdyout.inc ext_write_field T_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q_BXS' , & grid%q_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Specific humidity' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field Q_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q_BXE' , & grid%q_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Specific humidity' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field Q_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q_BYS' , & grid%q_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Specific humidity' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field Q_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q_BYE' , & grid%q_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Specific humidity' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field Q_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q_BTXS' , & grid%q_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Specific humidity' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q_BTXE' , & grid%q_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Specific humidity' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q_BTYS' , & grid%q_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Specific humidity' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q_BTYE' , & grid%q_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Specific humidity' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'U_BXS' , & grid%u_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy U component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field U_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'U_BXE' , & grid%u_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy U component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field U_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'U_BYS' , & grid%u_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy U component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field U_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'U_BYE' , & grid%u_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy U component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field U_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'U_BTXS' , & grid%u_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend U component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field U_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'U_BTXE' , & grid%u_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend U component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field U_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'U_BTYS' , & grid%u_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend U component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field U_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'U_BTYE' , & grid%u_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend U component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field U_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'V_BXS' , & grid%v_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy V component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field V_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'V_BXE' , & grid%v_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy V component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field V_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'V_BYS' , & grid%v_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy V component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field V_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'V_BYE' , & grid%v_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy V component of wind' , & 'm s-1' , & 'inc/wrf_bdyout.inc ext_write_field V_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'V_BTXS' , & grid%v_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend V component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field V_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'V_BTXE' , & grid%v_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend V component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field V_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'V_BTYS' , & grid%v_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend V component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field V_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'V_BTYE' , & grid%v_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend V component of wind' , & '(m s-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field V_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q2_BXS' , & grid%q2_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy 2 * Turbulence kinetic energy' , & 'm2 s-2' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q2_BXE' , & grid%q2_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy 2 * Turbulence kinetic energy' , & 'm2 s-2' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q2_BYS' , & grid%q2_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy 2 * Turbulence kinetic energy' , & 'm2 s-2' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q2_BYE' , & grid%q2_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy 2 * Turbulence kinetic energy' , & 'm2 s-2' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q2_BTXS' , & grid%q2_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend 2 * Turbulence kinetic energy' , & '(m2 s-2)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q2_BTXE' , & grid%q2_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend 2 * Turbulence kinetic energy' , & '(m2 s-2)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'Q2_BTYS' , & grid%q2_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend 2 * Turbulence kinetic energy' , & '(m2 s-2)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'Q2_BTYE' , & grid%q2_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend 2 * Turbulence kinetic energy' , & '(m2 s-2)/dt' , & 'inc/wrf_bdyout.inc ext_write_field Q2_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'CWM_BXS' , & grid%cwm_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Total condensate' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'CWM_BXE' , & grid%cwm_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Total condensate' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'CWM_BYS' , & grid%cwm_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Total condensate' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'CWM_BYE' , & grid%cwm_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Total condensate' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'CWM_BTXS' , & grid%cwm_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Total condensate' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'CWM_BTXE' , & grid%cwm_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Total condensate' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'CWM_BTYS' , & grid%cwm_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Total condensate' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'CWM_BTYE' , & grid%cwm_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Total condensate' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field CWM_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'RRW_BXS' , & grid%rrw_bxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Tracer' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'RRW_BXE' , & grid%rrw_bxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy Tracer' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'RRW_BYS' , & grid%rrw_bys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Tracer' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'RRW_BYE' , & grid%rrw_bye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy Tracer' , & 'kg kg-1' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'RRW_BTXS' , & grid%rrw_btxs(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Tracer' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BTXS memorder XSZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'RRW_BTXE' , & grid%rrw_btxe(jms,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Tracer' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BTXE memorder XEZ' , & 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & 'RRW_BTYS' , & grid%rrw_btys(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Tracer' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BTYS memorder YSZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & 'RRW_BTYE' , & grid%rrw_btye(ims,kds,1) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & 'bdy tend Tracer' , & '(kg kg-1)/dt' , & 'inc/wrf_bdyout.inc ext_write_field RRW_BTYE memorder YEZ' , & 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) DO itrace = PARAM_FIRST_SCALAR , num_scalar IF ( scalar_boundary_table(grid%id, itrace ) ) THEN CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BXS(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BXE(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BYS(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BYE(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) ENDIF ENDDO DO itrace = PARAM_FIRST_SCALAR , num_scalar IF ( scalar_boundary_table(grid%id, itrace ) ) THEN CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BTXS(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BTXE(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BTYS(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & TRIM(scalar_dname_table( grid%id, itrace )) grid%scalar_BTYE(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & scalar_desc_table( grid%id, itrace ), & scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) ENDIF ENDDO DO itrace = PARAM_FIRST_SCALAR , num_dfi_scalar IF ( dfi_scalar_boundary_table(grid%id, itrace ) ) THEN CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BXS(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BXE(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BYS(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BYE(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) ENDIF ENDDO DO itrace = PARAM_FIRST_SCALAR , num_dfi_scalar IF ( dfi_scalar_boundary_table(grid%id, itrace ) ) THEN CALL wrf_ext_write_field ( & fid , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BTXS(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XSZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BTXE(jms,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'XEZ' , & '' , & 'south_north' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (jde-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & jms, jme, 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 , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BTYS(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YSZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, 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 , & current_date(1:19) , & TRIM(dfi_scalar_dname_table( grid%id, itrace )) grid%dfi_scalar_BTYE(ims,kds,1,itrace) , & WRF_FLOAT , & grid%communicator , & grid%iocommunicator , & grid%domdesc , & grid%bdy_mask , & dryrun , & 'YEZ' , & '' , & 'west_east' , & 'bottom_top' , & 'bdy_width' , & dfi_scalar_desc_table( grid%id, itrace ), & dfi_scalar_units_table( grid%id, itrace ), & 'inc/wrf_bdyout.inc ext_write_field ' 1, (ide-1), kds, (kde-1), 1, config_flags%spec_bdy_width, & ims, ime, kds, kde, 1, config_flags%spec_bdy_width, & ips, MIN( (ide-1), ipe ), kds, (kde-1), 1, config_flags%spec_bdy_width, & ierr ) ENDIF ENDDO RETURN END