7 hprogram,ki,psso_stdev)
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
59 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
60 INTEGER,
INTENT(IN) :: ki
61 REAL,
DIMENSION(KI),
INTENT(OUT) :: psso_stdev
68 REAL(KIND=JPRB) :: zhook_handle
71 IF (lhook) CALL dr_hook(
'GET_SSO_STDEV_N',0,zhook_handle)
75 IF (
SIZE(psso_stdev) /=
SIZE(uss%XSSO_STDEV) )
THEN
76 WRITE(iluout,*)
'try to get SSO_STDEV field from atmospheric model, but size is not correct'
77 WRITE(iluout,*)
'size of field expected by the atmospheric model (PSSO_STDEV) :',
SIZE(psso_stdev)
78 WRITE(iluout,*)
'size of field inthe surface (XSSO_STDEV) :',
SIZE(uss%XSSO_STDEV)
79 CALL
abor1_sfx(
'GET_SSO_STDEVN: SSO_STDEV SIZE NOT CORRECT')
81 psso_stdev = uss%XSSO_STDEV
83 IF (lhook) CALL dr_hook(
'GET_SSO_STDEV_N',1,zhook_handle)
subroutine get_sso_stdev_n(USS, HPROGRAM, KI, PSSO_STDEV)
subroutine abor1_sfx(YTEXT)
subroutine get_luout(HPROGRAM, KLUOUT)