7 hseabathyfiletype, hncvarname, &
47 USE modi_open_namelist
48 USE modi_close_namelist
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
61 CHARACTER(LEN=28),
INTENT(OUT) :: hseabathy
62 CHARACTER(LEN=6),
INTENT(OUT) :: hseabathyfiletype
63 CHARACTER(LEN=28),
INTENT(OUT) :: hncvarname
65 REAL,
INTENT(OUT) :: punif_seabathy
78 CHARACTER(LEN=28) :: yseabathy
79 CHARACTER(LEN=6) :: yseabathyfiletype
80 CHARACTER(LEN=28) :: yncvarname
82 REAL :: xunif_seabathy
83 REAL(KIND=JPRB) :: zhook_handle
85 namelist/nam_seabathy/ yseabathy, yseabathyfiletype, yncvarname, xunif_seabathy
92 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_SEABATHY',0,zhook_handle)
93 xunif_seabathy = -300.
95 yseabathyfiletype =
' '
107 CALL
posnam(ilunam,
'NAM_SEABATHY',gfound,iluout)
108 IF (gfound)
READ(unit=ilunam,nml=nam_seabathy)
114 hseabathy = yseabathy
115 hseabathyfiletype = yseabathyfiletype
116 hncvarname = yncvarname
117 punif_seabathy = xunif_seabathy
118 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_SEABATHY',1,zhook_handle)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)
subroutine read_nam_pgd_seabathy(HPROGRAM, HSEABATHY, HSEABATHYFILETYPE, HNCVARNAME, PUNIF_SEABATHY)