8 prn, ph, ple, pgflux, pri, pcd, pch, pce, pqs, &
9 pz0, pz0h, pt2m, pts, pq2m, phu2m, pzon10m, pmer10m, &
10 pswd, pswu, plwd, plwu, pswbd, pswbu, pfmu, pfmv, &
11 pt2m_min, pt2m_max, phu2m_min, phu2m_max, &
12 pwind10m, pwind10m_max )
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
56 REAL,
DIMENSION(:),
INTENT(OUT) :: prn
57 REAL,
DIMENSION(:),
INTENT(OUT) :: ph
58 REAL,
DIMENSION(:),
INTENT(OUT) :: ple
59 REAL,
DIMENSION(:),
INTENT(OUT) :: pgflux
60 REAL,
DIMENSION(:),
INTENT(OUT) :: pri
61 REAL,
DIMENSION(:),
INTENT(OUT) :: pcd
62 REAL,
DIMENSION(:),
INTENT(OUT) :: pch
63 REAL,
DIMENSION(:),
INTENT(OUT) :: pce
64 REAL,
DIMENSION(:),
INTENT(OUT) :: pz0
65 REAL,
DIMENSION(:),
INTENT(OUT) :: pqs
66 REAL,
DIMENSION(:),
INTENT(OUT) :: pz0h
67 REAL,
DIMENSION(:),
INTENT(OUT) :: pts
68 REAL,
DIMENSION(:),
INTENT(OUT) :: pt2m
69 REAL,
DIMENSION(:),
INTENT(OUT) :: pq2m
70 REAL,
DIMENSION(:),
INTENT(OUT) :: phu2m
71 REAL,
DIMENSION(:),
INTENT(OUT) :: pzon10m
72 REAL,
DIMENSION(:),
INTENT(OUT) :: pmer10m
73 REAL,
DIMENSION(:),
INTENT(OUT) :: pswd
74 REAL,
DIMENSION(:),
INTENT(OUT) :: pswu
75 REAL,
DIMENSION(:),
INTENT(OUT) :: plwd
76 REAL,
DIMENSION(:),
INTENT(OUT) :: plwu
77 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pswbd
78 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pswbu
79 REAL,
DIMENSION(:),
INTENT(OUT) :: pfmu
80 REAL,
DIMENSION(:),
INTENT(OUT) :: pfmv
81 REAL,
DIMENSION(:),
INTENT(OUT) :: pt2m_min
82 REAL,
DIMENSION(:),
INTENT(OUT) :: pt2m_max
83 REAL,
DIMENSION(:),
INTENT(OUT) :: phu2m_min
84 REAL,
DIMENSION(:),
INTENT(OUT) :: phu2m_max
85 REAL,
DIMENSION(:),
INTENT(OUT) :: pwind10m
86 REAL,
DIMENSION(:),
INTENT(OUT) :: pwind10m_max
87 REAL(KIND=JPRB) :: zhook_handle
94 IF (lhook) CALL dr_hook(
'DIAG_TEB_N',0,zhook_handle)
95 IF (dgt%LSURF_BUDGET)
THEN
110 IF (dgt%N2M>=1 .OR. dgt%LSURF_BUDGET) pts = dgt%XDIAG_TS
115 pt2m_min = dgt%XT2M_MIN
116 pt2m_max = dgt%XT2M_MAX
119 phu2m_min= dgt%XHU2M_MIN
120 phu2m_max= dgt%XHU2M_MAX
121 pzon10m = dgt%XZON10M
122 pmer10m = dgt%XMER10M
123 pwind10m = dgt%XWIND10M
124 pwind10m_max = dgt%XWIND10M_MAX
135 IF (dgt%LSURF_VARS)
THEN
139 IF (lhook) CALL dr_hook(
'DIAG_TEB_N',1,zhook_handle)
subroutine diag_teb_n(DGT, HPROGRAM, PRN, PH, PLE, PGFLUX, PRI, PCD, PCH, PCE, PQS, PZ0, PZ0H, PT2M, PTS, PQ2M, PHU2M, PZON10M, PMER10M, PSWD, PSWU, PLWD, PLWU, PSWBD, PSWBU, PFMU, PFMV, PT2M_MIN, PT2M_MAX, PHU2M_MIN, PHU2M_MAX, PWIND10M, PWIND10M_MAX)