44 USE modd_io_surf_nc, ONLY : nmask, cfilein_nc, cfileout_nc, lmask, nid_nc, &
45 cmask, lcreated, cfileout_nc_save, ldef
50 USE modi_get_size_full_n
51 USE modi_get_type_dim_n
52 USE modi_init_io_surf_mask_n
54 USE modi_get_dim_full_n
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
69 CHARACTER(LEN=6),
INTENT(IN) :: hmask
70 CHARACTER(LEN=5),
INTENT(IN) :: haction
72 INTEGER :: ifull, il, ilu, iluout, iret
73 LOGICAL :: gexist, gopened
75 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_NC_N',0,zhook_handle)
83 IF (haction==
'READ ')
THEN
84 INQUIRE(file=cfilein_nc,exist=gexist)
88 iret = nf_open(cfilein_nc,nf_nowrite,nid_nc)
92 'NC ',
'DIM_FULL',ifull,iret,hdir=
'A')
99 INQUIRE(file=cfileout_nc,exist=gexist)
100 INQUIRE(file=cfileout_nc,opened=gopened)
101 IF (.NOT.gopened)
THEN
102 iret = nf_open(cfileout_nc,nf_write,nid_nc)
104 IF (ldef) iret = nf_redef(nid_nc)
111 IF (.NOT.
ALLOCATED(nindex))
THEN
112 ALLOCATE(nindex(ifull))
125 hmask, il, iluout, ilu, nmask)
131 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_NC_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine init_io_surf_nc_n(DTCO, U, DGU, HMASK, HACTION)
subroutine get_dim_full_n(U, KDIM_FULL)
subroutine get_size_full_n(U, HPROGRAM, KDIM_FULL, KSIZE_FULL)
subroutine init_io_surf_mask_n(DTCO, U, HMASK, KSIZE, KLUOUT, KFULL, KMASK)