param_slave.F [SRC] [CPP] [JOB] [SCAN]
SOURCES / INOUT



   1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE PARAM_SLAVE(pathspec)
   4 | 
   5 |         USE mod_slave
   6 | 
   7 |         IMPLICIT NONE
   8 | 
   9 |         INCLUDE 'dom_constants.h'
  10 | 
  11 | !       IN
  12 |         CHARACTER*80 pathspec
  13 | 
  14 | !       LOCAL
  15 |         DOM_INT   :: I, J
  16 | 
  17 |         OPEN(UNIT=1010,FILE=trim(pathspec)//'/SNBH2O_K')
  18 |         OPEN(UNIT=1020,FILE=trim(pathspec)//'/SNBH2O_Phi')
  19 |         OPEN(UNIT=1030,FILE=trim(pathspec)//'/SNBCO2_K')
  20 |         OPEN(UNIT=1040,FILE=trim(pathspec)//'/SNBCO2_Phi')
  21 |         OPEN(UNIT=1050,FILE=trim(pathspec)//'/SNBCO_K')
  22 |         OPEN(UNIT=1060,FILE=trim(pathspec)//'/SNBCO_Phi')
  23 | 
  24 |         DO I=1,is_nbandes(GAZ_CO)
  25 |           READ(1050,*) (s_KCO(J,I),J=1,14)
  26 |           READ(1060,*) (s_DCO(J,I),J=1,14)
  27 |         END DO
  28 | 
  29 |         DO I=1,is_nbandes(GAZ_C)
  30 |           READ(1030,*) (s_KC(J,I),J=1,14)
  31 |           READ(1040,*) (s_DC(J,I),J=1,14)
  32 |         END DO
  33 | 
  34 |         DO I=1,is_nbandes(GAZ_H)
  35 |           READ(1010,*) (s_KH(J,I),J=1,14)
  36 |           READ(1020,*) (s_DH(J,I),J=1,14)
  37 |         END DO
  38 | 
  39 |         CLOSE(1010)
  40 |         CLOSE(1020)
  41 |         CLOSE(1030)
  42 |         CLOSE(1040)
  43 |         CLOSE(1050)
  44 |         CLOSE(1060)
  45 | 
  46 |       END SUBROUTINE PARAM_SLAVE


param_slave.F could be called by:
Makefile [SOURCES] - 132 - 177
read_data_slave.F [SOURCES/INOUT] - 310