7 hprogram, osurfzs, pdelt_zsmax )
34 USE modi_init_io_surf_n
36 USE modi_end_io_surf_n
42 USE modi_set_surfex_filein
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
55 CHARACTER(LEN=6) ,
INTENT(IN) :: hprogram
56 REAL ,
INTENT(IN) :: pdelt_zsmax
57 LOGICAL ,
INTENT(IN) :: osurfzs
62 REAL,
DIMENSION(SIZE(XZS,1)) :: zs1
63 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'COMPARE_OROGRAPHY',0,zhook_handle)
73 hprogram,
'FULL ',
'SURF ',
'READ ')
75 hprogram,
'ZS', zs1, iret)
81 WRITE(iluout,*)
' OROGRAPHY READ FROM INITIAL FILE'
83 ELSEIF (maxval(abs(xzs(:)-zs1(:))) > pdelt_zsmax)
THEN
85 WRITE(iluout,*)
' DIFFERENCE OF OROGRAPHY TOO BIG BETWEEN FORCING AND INITIAL FILE'
86 WRITE(iluout,*)
' Maximum orography difference allowed (m) : ', pdelt_zsmax
87 WRITE(iluout,*)
' Maximum orography difference (m) : ', maxval(abs(xzs(:)-zs1(:)))
88 CALL
abor1_sfx(
'COMPARE_OROGRAPHY: DIFFERENCE OF OROGRAPHY TOO BIG BETWEEN FORCING AND INITIAL FILE')
91 IF (lhook) CALL dr_hook(
'COMPARE_OROGRAPHY',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine set_surfex_filein(HPROGRAM, HMASK)
subroutine abor1_sfx(YTEXT)
subroutine end_io_surf_n(HPROGRAM)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine compare_orography(YSC, HPROGRAM, OSURFZS, PDELT_ZSMAX)