7 hprogram,kdim_full,ksize_full)
52 USE modi_mnhget_size_full_n
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
66 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
67 INTEGER ,
INTENT(IN) :: kdim_full
68 INTEGER ,
INTENT(OUT) :: ksize_full
74 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'GET_SIZE_FULL_N',0,zhook_handle)
78 IF (hprogram==
'MESONH')
THEN
80 CALL mnhget_size_full_n(hprogram,kdim_full,ksize_full)
84 IF ( hprogram==
'OFFLIN' .OR. hprogram==
'ASCII ' .OR. hprogram==
'FA ' .OR. hprogram==
'LFI ' .OR. &
85 hprogram==
'TEXTE ' .OR. hprogram==
'BINARY' .OR. hprogram==
'NC ')
THEN
87 IF (u%NSIZE_FULL/=nundef .AND. u%NSIZE_FULL/=0)
THEN
88 ksize_full = u%NSIZE_FULL
89 ELSEIF (
ALLOCATED(nindex))
THEN
92 IF ( nindex(j)==mod(nrank,nproc) ) ksize_full = ksize_full + 1
95 ksize_full = kdim_full
97 IF ( nindx2sfx/=kdim_full .OR. nindx1sfx/=1 ) ksize_full = min(ksize_full,nindx2sfx-nindx1sfx+1)
101 IF (hprogram==
'AROME ')
THEN
103 CALL aroget_size_full_n(hprogram,kdim_full,ksize_full)
106 IF (lhook) CALL dr_hook(
'GET_SIZE_FULL_N',1,zhook_handle)
subroutine wlog_mpi(HLOG, PLOG, KLOG, KLOG2, OLOG)
subroutine get_size_full_n(U, HPROGRAM, KDIM_FULL, KSIZE_FULL)