47 USE modi_open_namelist
48 USE modi_close_namelist
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 LOGICAL,
INTENT(OUT) :: ocoupl_topd
65 CHARACTER(LEN=15),
DIMENSION(JPCAT),
INTENT(OUT) :: hcat
66 REAL,
DIMENSION(JPCAT),
INTENT(OUT) :: pf_param_bv
67 REAL,
DIMENSION(JPCAT),
INTENT(OUT) :: pc_depth_ratio_bv
72 CHARACTER(LEN=15),
DIMENSION(JPCAT) :: ccat
73 LOGICAL :: lcoupl_topd
74 REAL,
DIMENSION(JPCAT) :: xf_param_bv
75 REAL,
DIMENSION(JPCAT) :: xc_depth_ratio_bv
80 REAL(KIND=JPRB) :: zhook_handle
85 namelist/nam_pgd_topd/ccat, lcoupl_topd, xf_param_bv, xc_depth_ratio_bv
87 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_TOPD',0,zhook_handle)
95 xc_depth_ratio_bv(:) = 1.
107 CALL
posnam(ilunam,
'NAM_PGD_TOPD',gfound,iluout)
108 IF (gfound)
READ(unit=ilunam,nml=nam_pgd_topd)
115 nncat=count(ccat(:)/=
' ')
122 ocoupl_topd = lcoupl_topd
123 hcat(1:nncat) = ccat(1:nncat)
124 pf_param_bv(1:nncat) = xf_param_bv(1:nncat)
125 pc_depth_ratio_bv(1:nncat) = xc_depth_ratio_bv(1:nncat)
127 IF (lhook) CALL dr_hook(
'READ_NAM_PGD_TOPD',1,zhook_handle)
subroutine read_nam_pgd_topd(HPROGRAM, OCOUPL_TOPD, HCAT, PF_PARAM_BV, PC_DEPTH_RATIO_BV)
subroutine close_namelist(HPROGRAM, KLUNAM)
subroutine posnam(KULNAM, HDNAML, OFOUND, KLUOUT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine open_namelist(HPROGRAM, KLUNAM, HFILE)