[2759] | 1 | SUBROUTINE wrf_auxinput2out ( fid , grid , config_flags, switch , & |
---|
| 2 | dryrun, ierr ) |
---|
| 3 | USE module_io |
---|
| 4 | USE module_wrf_error |
---|
| 5 | USE module_io_wrf |
---|
| 6 | USE module_domain |
---|
| 7 | USE module_state_description |
---|
| 8 | USE module_configure |
---|
| 9 | USE module_scalar_tables |
---|
| 10 | USE module_utility |
---|
| 11 | IMPLICIT NONE |
---|
| 12 | #include <wrf_io_flags.h> |
---|
| 13 | #include <wrf_status_codes.h> |
---|
| 14 | TYPE(domain) :: grid |
---|
| 15 | TYPE(grid_config_rec_type), INTENT(INOUT) :: config_flags |
---|
| 16 | INTEGER, INTENT(IN) :: fid, switch |
---|
| 17 | INTEGER, INTENT(INOUT) :: ierr |
---|
| 18 | LOGICAL, INTENT(IN) :: dryrun |
---|
| 19 | |
---|
| 20 | ! Local data |
---|
| 21 | INTEGER ids , ide , jds , jde , kds , kde , & |
---|
| 22 | ims , ime , jms , jme , kms , kme , & |
---|
| 23 | ips , ipe , jps , jpe , kps , kpe |
---|
| 24 | |
---|
| 25 | INTEGER itrace |
---|
| 26 | INTEGER , DIMENSION(3) :: domain_start , domain_end |
---|
| 27 | INTEGER , DIMENSION(3) :: memory_start , memory_end |
---|
| 28 | INTEGER , DIMENSION(3) :: patch_start , patch_end |
---|
| 29 | INTEGER i,j |
---|
| 30 | INTEGER julyr, julday, idt, iswater , map_proj |
---|
| 31 | REAL gmt, cen_lat, cen_lon, bdyfrq , truelat1 , truelat2, & |
---|
| 32 | mp_physics, ra_lw_physics, ra_sw_physics, sf_sfclay_physics, & |
---|
| 33 | sf_surface_physics, bl_pbl_physics, cu_physics |
---|
| 34 | REAL khdif, kvdif |
---|
| 35 | INTEGER rc |
---|
| 36 | |
---|
| 37 | CHARACTER*256 message |
---|
| 38 | CHARACTER*80 char_junk |
---|
| 39 | INTEGER ibuf(1) |
---|
| 40 | REAL rbuf(1) |
---|
| 41 | CHARACTER*40 :: next_datestr |
---|
| 42 | |
---|
| 43 | CALL get_ijk_from_grid ( grid , & |
---|
| 44 | ids, ide, jds, jde, kds, kde, & |
---|
| 45 | ims, ime, jms, jme, kms, kme, & |
---|
| 46 | ips, ipe, jps, jpe, kps, kpe ) |
---|
| 47 | |
---|
| 48 | |
---|
| 49 | ! note that the string current_date comes in through use association |
---|
| 50 | ! of module_io_wrf |
---|
| 51 | |
---|
| 52 | ! generated by the registry |
---|
| 53 | #include <wrf_auxinput2out.inc> |
---|
| 54 | |
---|
| 55 | RETURN |
---|
| 56 | END |
---|