share/module_io_domain_defs.m4

   1 ! 1 input or output  (direction of io)
   2 ! 2 aux or nothing
   3 ! 3 _ or nothing
   4 ! 4 input or output  (stream)
   5 ! 5 number of stream or nothing
   6
   7 define( DATASET_IO_ROUTINE,
   8 `  SUBROUTINE $1_$2$3$4 ( fid , grid , config_flags , ierr )
   9     IMPLICIT NONE
  10     TYPE(domain) :: grid
  11     TYPE(grid_config_rec_type),  INTENT(IN   )    :: config_flags
  12     INTEGER, INTENT(IN) :: fid
  13     INTEGER, INTENT(INOUT) :: ierr
  14     IF ( config_flags%io_form_$2$3$4 .GT. 0 ) THEN
  15       CALL $1_wrf ( fid , grid , config_flags , $2$3$4_only , ierr )
  16     ENDIF
  17     RETURN
  18   END SUBROUTINE $1_$2$3$4'
  19 )
  20
  21 DATASET_IO_ROUTINE(output,,input,)
  22 DATASET_IO_ROUTINE(output,aux,input,1)
  23 DATASET_IO_ROUTINE(output,aux,input,2)
  24 DATASET_IO_ROUTINE(output,aux,input,3)
  25 DATASET_IO_ROUTINE(output,aux,input,4)
  26 DATASET_IO_ROUTINE(output,aux,input,5)
  27 DATASET_IO_ROUTINE(output,aux,input,6)
  28 DATASET_IO_ROUTINE(output,aux,input,7)
  29 DATASET_IO_ROUTINE(output,aux,input,8)
  30 DATASET_IO_ROUTINE(output,aux,input,9)
  31 DATASET_IO_ROUTINE(output,aux,input,10)
  32 DATASET_IO_ROUTINE(output,aux,input,11)
  33 DATASET_IO_ROUTINE(output,,history,)
  34 DATASET_IO_ROUTINE(output,aux,hist,1)
  35 DATASET_IO_ROUTINE(output,aux,hist,2)
  36 DATASET_IO_ROUTINE(output,aux,hist,3)
  37 DATASET_IO_ROUTINE(output,aux,hist,4)
  38 DATASET_IO_ROUTINE(output,aux,hist,5)
  39 DATASET_IO_ROUTINE(output,aux,hist,6)
  40 DATASET_IO_ROUTINE(output,aux,hist,7)
  41 DATASET_IO_ROUTINE(output,aux,hist,8)
  42 DATASET_IO_ROUTINE(output,aux,hist,9)
  43 DATASET_IO_ROUTINE(output,aux,hist,10)
  44 DATASET_IO_ROUTINE(output,aux,hist,11)
  45
  46 DATASET_IO_ROUTINE(input,input,)
  47 DATASET_IO_ROUTINE(input,aux,input,1)
  48 DATASET_IO_ROUTINE(input,aux,input,2)
  49 DATASET_IO_ROUTINE(input,aux,input,3)
  50 DATASET_IO_ROUTINE(input,aux,input,4)
  51 DATASET_IO_ROUTINE(input,aux,input,5)
  52 DATASET_IO_ROUTINE(input,aux,input,6)
  53 DATASET_IO_ROUTINE(input,aux,input,7)
  54 DATASET_IO_ROUTINE(input,aux,input,8)
  55 DATASET_IO_ROUTINE(input,aux,input,9)
  56 DATASET_IO_ROUTINE(input,aux,input,10)
  57 DATASET_IO_ROUTINE(input,aux,input,11)
  58 DATASET_IO_ROUTINE(input,history,)
  59 DATASET_IO_ROUTINE(input,aux,hist,1)
  60 DATASET_IO_ROUTINE(input,aux,hist,2)
  61 DATASET_IO_ROUTINE(input,aux,hist,3)
  62 DATASET_IO_ROUTINE(input,aux,hist,4)
  63 DATASET_IO_ROUTINE(input,aux,hist,5)
  64 DATASET_IO_ROUTINE(input,aux,hist,6)
  65 DATASET_IO_ROUTINE(input,aux,hist,7)
  66 DATASET_IO_ROUTINE(input,aux,hist,8)
  67 DATASET_IO_ROUTINE(input,aux,hist,9)
  68 DATASET_IO_ROUTINE(input,aux,hist,10)
  69 DATASET_IO_ROUTINE(input,aux,hist,11)