48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
61 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
62 INTEGER,
INTENT(IN) :: ki
63 REAL,
DIMENSION(KI),
INTENT(OUT) :: plon, plat
70 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'GET_COORD_N',0,zhook_handle)
77 IF (
SIZE(plon) /=
SIZE(ug%XLON) .OR.
SIZE(plat) /=
SIZE(ug%XLAT) )
THEN
78 WRITE(iluout,*)
'try to get LON/LAT field from atmospheric model, but size is not correct'
79 WRITE(iluout,*)
'size of field expected by the atmospheric model (PLON) :',
SIZE(plon)
80 WRITE(iluout,*)
'size of field expected by the atmospheric model (PLAT) :',
SIZE(plat)
81 WRITE(iluout,*)
'size of field in the surface (XLAT) :',
SIZE(ug%XLAT)
82 WRITE(iluout,*)
'size of field in the surface (XLAT) :',
SIZE(ug%XLAT)
83 CALL
abor1_sfx(
'GET_COORDN: LON/LAT SIZE NOT CORRECT')
88 IF (lhook) CALL dr_hook(
'GET_COORD_N',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_coord_n(UG, HPROGRAM, KI, PLON, PLAT)