46 USE modi_get_surf_size_n
48 USE modi_init_io_surf_n
49 USE modi_end_io_surf_n
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
55 USE modi_io_buff_clean
65 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 CHARACTER(LEN=100) :: ycomment
77 REAL,
DIMENSION(:),
ALLOCATABLE :: zlon, zlat
78 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'GET_LONLAT_N',0,zhook_handle)
92 hprogram,ini,zlon,zlat)
96 hprogram,
'FULL ',
'SURF ',
'WRITE')
100 hprogram,
'XLON',zlon(:),iret,hcomment=ycomment,hdir=
'A')
104 hprogram,
'XLAT',zlat(:),iret,hcomment=ycomment,hdir=
'A')
107 IF (lhook) CALL dr_hook(
'GET_LONLAT_N',1,zhook_handle)
subroutine get_surf_size_n(DTCO, U, HTYPE, KL)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine get_lonlat_n(YSC, HPROGRAM)
subroutine end_io_surf_n(HPROGRAM)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_coord_n(UG, HPROGRAM, KI, PLON, PLAT)