6 SUBROUTINE open_file(HPROGRAM,KUNIT,HFILE,HFORM,HACTION,HACCESS,KRECL)
40 #if defined(SFX_ASC) || defined(SFX_ARO) || defined(SFX_MNH) || defined(SFX_NC)
41 USE modi_open_file_asc
47 USE modi_open_file_lfi
56 USE modi_open_file_mnh
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
67 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
68 INTEGER,
INTENT(OUT) :: kunit
69 CHARACTER(LEN=*),
INTENT(IN) :: hfile
70 CHARACTER(LEN=*),
INTENT(IN) :: hform
71 CHARACTER(LEN=*),
INTENT(IN),
OPTIONAL :: haction
72 CHARACTER(LEN=*),
INTENT(IN),
OPTIONAL :: haccess
73 INTEGER,
INTENT(IN),
OPTIONAL :: krecl
79 CHARACTER(LEN=28) :: yfile
80 CHARACTER(LEN=11) :: yform
81 CHARACTER(LEN=9) :: yaction
82 CHARACTER(LEN=6) :: yaccess
84 REAL(KIND=JPRB) :: zhook_handle
88 IF (lhook) CALL dr_hook(
'OPEN_FILE',0,zhook_handle)
92 IF (present(haction))
THEN
97 IF (present(haccess))
THEN
102 IF (present(krecl))
THEN
108 IF (hprogram==
'MESONH')
THEN
110 CALL open_file_mnh(kunit,yfile,yform,yaction,yaccess,irecl)
112 ELSE IF (hprogram==
'OFFLIN')
THEN
114 CALL
open_file_ol(kunit,yfile,yform,yaction,yaccess,irecl)
116 ELSE IF (hprogram==
'ASCII ' .OR. hprogram==
'AROME ')
THEN
117 #if defined(SFX_ASC) || defined(SFX_ARO) || defined(SFX_MNH) || defined(SFX_NC)
120 ELSE IF (hprogram==
'FA ')
THEN
122 CALL
open_file_fa(kunit,yfile,yform,yaction,yaccess,irecl)
124 ELSE IF (hprogram==
'NC ')
THEN
126 CALL
open_file_nc(kunit,yfile,yform,yaction,yaccess,irecl)
128 ELSE IF (hprogram==
'LFI ')
THEN
130 CALL
open_file_lfi(kunit,yfile,yform,yaction,yaccess,
'ASIS ',irecl)
134 IF (lhook) CALL dr_hook(
'OPEN_FILE',1,zhook_handle)
subroutine open_file_nc(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)
subroutine open_file_lfi(KUNIT, HFILE, HFORM, HACTION, HACCESS, HPOSITION, KRECL)
subroutine open_file_asc(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)
subroutine open_file_ol(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)
subroutine open_file(HPROGRAM, KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)
subroutine open_file_fa(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)