48 USE modd_io_surf_asc,ONLY: nunit,cfilein,cfileout,nmask,nluout,nfull,cmask, &
53 USE modi_get_dim_full_n
54 USE modi_get_size_full_n
55 USE modi_get_type_dim_n
56 USE modi_init_io_surf_mask_n
58 USE yomhook
,ONLY : lhook, dr_hook
59 USE parkind1
,ONLY : jprb
67 CHARACTER(LEN=6),
INTENT(IN) :: hmask
68 CHARACTER(LEN=5),
INTENT(IN) :: haction
70 INTEGER :: ilu,iret, il
71 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_ASC_N',0,zhook_handle)
79 IF (nrank==npio) lopen=.false.
83 IF (haction==
'GTMSK')
THEN
86 OPEN(unit=nunit,file=cfilein,form=
'FORMATTED')
90 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_ASC_N',1,zhook_handle)
94 IF (haction ==
'READ ')
THEN
97 OPEN(unit=nunit,file=cfilein,form=
'FORMATTED')
105 'ASCII ',
'DIM_FULL',nfull,iret,hdir=
'A')
108 IF (nrank==npio)
THEN
111 OPEN(unit=nunit,file=cfileout,form=
'FORMATTED',position=
'APPEND')
113 OPEN(unit=nunit,file=cfileout,form=
'FORMATTED')
127 IF (.NOT.
ALLOCATED(nindex))
THEN
128 ALLOCATE(nindex(nfull))
137 IF (ilu>nsize) nsize = ilu
143 hmask, il, nluout, ilu, nmask)
148 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_ASC_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine get_dim_full_n(U, KDIM_FULL)
subroutine init_io_surf_asc_n(DTCO, U, HMASK, HACTION)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_size_full_n(U, HPROGRAM, KDIM_FULL, KSIZE_FULL)
subroutine init_io_surf_mask_n(DTCO, U, HMASK, KSIZE, KLUOUT, KFULL, KMASK)