1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE pmm_readinput(end_prog)
   4 | 
   5 | !       ================================================================!
   6 | !                                                                       !
   7 | !       read_data.F   : Reads and stores data from input.dat file.      !
   8 | !                                                                       !
   9 | !       out           : Global I/O options for PRISSMA.                 !
  10 | !                                                                       !
  11 | !       author        : J. AMAYA (september 2007)                       !
  12 | !                                                                       !
  13 | !       ================================================================!
  14 | 
  15 |         USE mod_inout
  16 | #ifdef USEPALM
  17 |         USE palm_user_param
  18 | #endif
  19 | 
  20 |         IMPLICIT NONE
  21 | 
  22 |         include 'dom_constants.h'
  23 | 
  24 | !       IN
  25 |         DOM_INT :: end_prog
  26 | #ifdef USEPALM
  27 |         DOM_STR80 :: wkin, wkout, wkspec
  28 | #endif
  29 | 
  30 | !       --------------------!
  31 | !       Read input.dat file !
  32 | !       --------------------!
  33 | 
  34 | #ifdef USEPALM
  35 |         OPEN(UNIT=1,FILE=trim(rundomdir)//'/prissma.choices')
  36 | 
  37 |         READ(1,*) wkin
  38 |         path = trim(rundomdir)//'/'//wkin
  39 |         READ(1,*) wkspec
  40 |         pathspec = trim(rundomdir)//'/'//wkspec
  41 |         READ(1,*) wkout
  42 |         outpath = trim(rundomdir)//'/'//wkout
  43 | #else
  44 |         OPEN(UNIT=1,FILE='prissma.choices')
  45 | 
  46 |         READ(1,*) path
  47 |         READ(1,*) pathspec
  48 |         READ(1,*) outpath
  49 | #endif
  50 |         READ(1,*) datastatus
  51 |         READ(1,*) spascheme
  52 |         READ(1,*) mediumtype
  53 |         READ(1,*) Nq_kabs
  54 |         READ(1,*) critconv
  55 |         READ(1,*) homosyst
  56 | 
  57 |         CLOSE(1)
  58 | 
  59 | !       -----------------------------------------!
  60 | !         CHOIX DU SCHEMA DE DERIVATION SPATIALE !
  61 | !       -----------------------------------------!
  62 | 
  63 |         IF (spascheme==DMFS) THEN
  64 |           alpha=0.5
  65 |           I_SCHEME=1
  66 |         ELSE IF (spascheme==SMFS) THEN
  67 |           alpha=1.0
  68 |           I_SCHEME=1
  69 |         ELSE IF (spascheme==EXPON) THEN
  70 |           alpha=0.0
  71 |           I_SCHEME=2
  72 |         ELSE
  73 |           end_prog=1
  74 |         ENDIF
  75 | 
  76 |       END SUBROUTINE pmm_readinput