45 USE modi_detect_field_mnh
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
56 CHARACTER (LEN=6),
INTENT(IN) :: hprogram
58 REAL,
DIMENSION(:,:),
INTENT(IN)::pfield
60 LOGICAL ,
INTENT(OUT) :: oitshere
61 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'DETECT_FIELD',0,zhook_handle)
71 IF (hprogram==
'MESONH')
THEN
74 CALL detect_field_mnh(hprogram,
SIZE(pfield,1),
SIZE(pfield,2),pfield,oitshere)
77 ELSEIF (hprogram==
'OFFLIN' .OR. hprogram==
'ASCII ' .OR. hprogram==
'TEXTE ' &
78 .OR. hprogram==
'FA ' .OR. hprogram==
'BINARY' .OR. hprogram==
'LFI ' &
79 .OR. hprogram==
'NC ' )
THEN
83 ELSEIF (hprogram==
'AROME ')
THEN
86 CALL detect_field_aro(hprogram,
SIZE(pfield,1),
SIZE(pfield,2),pfield,oitshere)
90 IF (lhook) CALL dr_hook(
'DETECT_FIELD',1,zhook_handle)
subroutine detect_field(HPROGRAM, PFIELD, OITSHERE)