7 hprogram,ki,pt2m_o,htest)
44 USE yomhook
, ONLY : lhook, dr_hook
45 USE parkind1
, ONLY : jprb
56 TYPE(teb_t),
INTENT(INOUT) :: t
59 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
60 INTEGER,
INTENT(IN) :: ki
61 REAL,
DIMENSION(kI),
INTENT(IN) :: pt2m_o
62 CHARACTER(LEN=2),
INTENT(IN) :: htest
68 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'ASSIM_TOWN_N',0,zhook_handle)
73 CALL
abor1_sfx(
'ASSIM_TOWN_n: FATAL ERROR DURING ARGUMENT TRANSFER')
76 IF (u%CTOWN==
'TEB ')
THEN
78 hprogram,ki,pt2m_o,htest)
80 IF (nrank==npio)
WRITE(*,*)
'No assimilation done for scheme: ',trim(u%CTOWN)
83 IF (lhook) CALL dr_hook(
'ASSIM_TOWN_N',1,zhook_handle)
subroutine assim_teb_n(U, T, TOP, HPROGRAM, KI, PT2M_O, HTEST)
subroutine abor1_sfx(YTEXT)
subroutine assim_town_n(U, T, TOP, HPROGRAM, KI, PT2M_O, HTEST)