1 | SUBROUTINE wrf_auxinput8out ( 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_utility |
---|
10 | IMPLICIT NONE |
---|
11 | #include <wrf_io_flags.h> |
---|
12 | #include <wrf_status_codes.h> |
---|
13 | TYPE(domain) :: grid |
---|
14 | TYPE(grid_config_rec_type), INTENT(INOUT) :: config_flags |
---|
15 | INTEGER, INTENT(IN) :: fid, switch |
---|
16 | INTEGER, INTENT(INOUT) :: ierr |
---|
17 | LOGICAL, INTENT(IN) :: dryrun |
---|
18 | |
---|
19 | ! Local data |
---|
20 | INTEGER ids , ide , jds , jde , kds , kde , & |
---|
21 | ims , ime , jms , jme , kms , kme , & |
---|
22 | ips , ipe , jps , jpe , kps , kpe |
---|
23 | |
---|
24 | INTEGER itrace |
---|
25 | INTEGER , DIMENSION(3) :: domain_start , domain_end |
---|
26 | INTEGER , DIMENSION(3) :: memory_start , memory_end |
---|
27 | INTEGER , DIMENSION(3) :: patch_start , patch_end |
---|
28 | INTEGER i,j |
---|
29 | INTEGER julyr, julday, idt, iswater , map_proj |
---|
30 | REAL gmt, cen_lat, cen_lon, bdyfrq , truelat1 , truelat2 |
---|
31 | INTEGER dyn_opt, diff_opt, km_opt, damp_opt, & |
---|
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 | call nl_get_dyn_opt ( 1 , dyn_opt ) |
---|
49 | |
---|
50 | ! note that the string current_date comes in through use association |
---|
51 | ! of module_io_wrf |
---|
52 | |
---|
53 | ! generated by the registry |
---|
54 | #include <wrf_auxinput8out.inc> |
---|
55 | |
---|
56 | RETURN |
---|
57 | END |
---|