SUBROUTINE wrf_auxhist11out ( 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_utility IMPLICIT NONE #include #include 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 ! Local data 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 INTEGER dyn_opt, diff_opt, km_opt, damp_opt, & 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 nl_get_dyn_opt ( 1 , dyn_opt ) ! note that the string current_date comes in through use association ! of module_io_wrf ! generated by the registry #include RETURN END