6 SUBROUTINE open_file_nc(KUNIT,HFILE,HFORM,HACTION,HACCESS,KRECL)
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
55 INTEGER,
INTENT(OUT):: kunit
56 CHARACTER(LEN=28),
INTENT(IN) :: hfile
57 CHARACTER(LEN=11),
INTENT(IN) :: hform
58 CHARACTER(LEN=9),
INTENT(IN) :: haction
59 CHARACTER(LEN=6),
INTENT(IN) :: haccess
60 INTEGER,
INTENT(IN) :: krecl
67 REAL(KIND=JPRB) :: zhook_handle
72 IF (lhook) CALL dr_hook(
'OPEN_FILE_NC',0,zhook_handle)
74 IF(haction==
'READ ')
THEN
75 INQUIRE (file=hfile,exist=lexist)
76 IF (.NOT. lexist )
THEN
77 CALL
abor1_sfx(
'ERROR WHILE OPENING '//hfile//
' THIS FILE IS MISSING'// &
78 ' IN THE RUN DIRECTORY')
84 IF (hform==
'FORMATTED')
THEN
85 OPEN(unit=kunit,file=hfile,action=haction, &
88 IF (haccess==
'DIRECT')
THEN
89 OPEN(unit=kunit,file=hfile,action=haction, &
90 form=hform,access=haccess,recl=krecl, err=100 )
92 OPEN(unit=kunit,file=hfile,action=haction, &
97 IF (lhook) CALL dr_hook(
'OPEN_FILE_NC',1,zhook_handle)
101 WRITE(iluout,*)
'Error when opening file ',hfile
102 CALL
abor1_sfx(
'OPEN_FILE_NC: ERROR WHEN OPENING FILE '//hfile)
103 IF (lhook) CALL dr_hook(
'OPEN_FILE_NC',1,zhook_handle)
subroutine open_file_nc(KUNIT, HFILE, HFORM, HACTION, HACCESS, KRECL)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)