7 hprogram,ki,psso_slope)
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) :: psso_slope
70 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'GET_SSO_N',0,zhook_handle)
77 IF (
SIZE(psso_slope) /=
SIZE(uss%XSSO_SLOPE) )
THEN
78 WRITE(iluout,*)
'try to get SSO_SLOPE fields from atmospheric model, but size is not correct'
79 WRITE(iluout,*)
'size of field expected by the atmospheric model (PSSO_SLOPE) :',
SIZE(psso_slope)
80 WRITE(iluout,*)
'size of field inthe surface (XSSO_SLOPE) :',
SIZE(uss%XSSO_SLOPE)
81 CALL
abor1_sfx(
'GET_SSON: SSO_SLOPE SIZE NOT CORRECT')
83 psso_slope = uss%XSSO_SLOPE
85 IF (lhook) CALL dr_hook(
'GET_SSO_N',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine get_sso_n(USS, HPROGRAM, KI, PSSO_SLOPE)
subroutine get_luout(HPROGRAM, KLUOUT)