wrf_histout.F

1   SUBROUTINE wrf_histout ( 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_histout.inc>
55 
56     RETURN
57     END