mediation_wrf_da.F

1 !WRF:MEDIATION_LAYER:
2 !
3 SUBROUTINE med_shutdown_io ( grid , config_flags )
4   ! Driver layer
5    USE module_domain
6    USE module_io_domain
7   ! Model layer
8    USE module_configure
9 
10    IMPLICIT NONE
11 
12   ! Arguments
13    TYPE(domain)                               :: grid
14    TYPE (grid_config_rec_type) , INTENT(IN)   :: config_flags
15   ! Local
16    CHARACTER (LEN=80)      :: message
17    INTEGER                 :: ierr
18 
19    WRITE ( message , FMT = '("main: time step #",I8)' ) grid%time_step_max
20    IF ( grid%oid > 0 ) CALL close_dataset ( grid%oid , config_flags , "DATASET=HISTORY" )
21 #ifdef QUILT_NO
22    IF ( grid%auxhist1_oid > 0 ) CALL close_dataset ( grid%auxhist1_oid , config_flags , "DATASET=AUXHIST1" )
23 #endif
24 
25    CALL wrf_ioexit( ierr )    ! shut down the quilt I/O
26 
27    RETURN
28 
29 END SUBROUTINE med_shutdown_io
30 
31 SUBROUTINE med_add_config_info_to_grid ( grid )
32 
33    USE module_domain
34    USE module_configure
35  
36    IMPLICIT NONE
37 
38    !  Input data.
39 
40    TYPE(domain) , TARGET          :: grid
41 
42 #define SOURCE_RECORD model_config_rec %
43 #define SOURCE_REC_DEX (grid%id)
44 #define DEST_RECORD   grid %
45 #include <config_assigns.inc>
46 
47    RETURN
48 
49 END SUBROUTINE med_add_config_info_to_grid
50