45 cfilein_nc, nid_nc, nfull_aux
50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=28),
INTENT(IN) :: hfile
65 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
66 CHARACTER(LEN=6),
INTENT(IN) :: hmask
71 REAL,
DIMENSION(:),
ALLOCATABLE :: zfull
72 INTEGER :: ilu,iret, il
74 CHARACTER(LEN=28) :: yfile
76 REAL(KIND=JPRB) :: zhook_handle
79 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_NC',0,zhook_handle)
81 yfile = trim(hfile)//
".nc"
82 INQUIRE(file=yfile,opened=gopened)
83 IF (.NOT.gopened)
THEN
84 iret = nf_open(yfile,nf_nowrite,nid_nc)
92 'NC ',
'DIM_FULL',ilu,iret)
106 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_NC',1,zhook_handle)
subroutine open_aux_io_surf_nc(HFILE, HFILETYPE, HMASK)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_1d_mask(KSIZE, KFRAC, PFRAC, KMASK)