share/wrf_restartout.F

   1   SUBROUTINE wrf_restartout ( 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,idim1,idim2,idim3,idim4,idim5,idim6,idim7
  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_restartout.inc"
  54
  55     RETURN
  56     END