7 hprogram,ki,paosip,paosim,paosjp,paosjm,&
8 pho2ip,pho2im,pho2jp,pho2jm )
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
62 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
63 INTEGER,
INTENT(IN) :: ki
64 REAL,
DIMENSION(KI),
INTENT(OUT) :: paosip
65 REAL,
DIMENSION(KI),
INTENT(OUT) :: paosim
66 REAL,
DIMENSION(KI),
INTENT(OUT) :: paosjp
67 REAL,
DIMENSION(KI),
INTENT(OUT) :: paosjm
68 REAL,
DIMENSION(KI),
INTENT(OUT) :: pho2ip
69 REAL,
DIMENSION(KI),
INTENT(OUT) :: pho2im
70 REAL,
DIMENSION(KI),
INTENT(OUT) :: pho2jp
71 REAL,
DIMENSION(KI),
INTENT(OUT) :: pho2jm
78 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'GET_AOS_N',0,zhook_handle)
85 IF (
SIZE(paosip) /=
SIZE(uss%XAOSIP) )
THEN
86 WRITE(iluout,*)
'try to get A/S fields from atmospheric model, but size is not correct'
87 WRITE(iluout,*)
'size of field expected by the atmospheric model (PAOSIP) :',
SIZE(paosip)
88 WRITE(iluout,*)
'size of field inthe surface (XAOSIP) :',
SIZE(uss%XAOSIP)
89 CALL
abor1_sfx(
'GET_AOSN: A/S SIZE NOT CORRECT')
100 IF (lhook) CALL dr_hook(
'GET_AOS_N',1,zhook_handle)
subroutine get_aos_n(USS, HPROGRAM, KI, PAOSIP, PAOSIM, PAOSJP, PAOSJM, PHO2IP, PHO2IM, PHO2JP, PHO2JM)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)