7 pta,pqa,pwind,pdir_sw,psca_sw,plw,psnow, &
43 USE modi_read_surf_atm
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
51 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pta
52 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pqa
53 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pwind
54 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pdir_sw
55 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: psca_sw
56 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: plw
57 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: psnow
58 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: prain
59 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pps
60 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pco2
61 REAL,
DIMENSION(:,:),
INTENT(INOUT) :: pdir
62 INTEGER,
INTENT(IN) :: kforc_step
64 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'OL_READ_ATM_BINARY',0,zhook_handle)
68 CALL
read_surf_atm(
'BINARY',pta(:,1:xcount),kforc_step,xcount,22)
69 CALL
read_surf_atm(
'BINARY',pqa(:,1:xcount),kforc_step,xcount,23)
70 CALL
read_surf_atm(
'BINARY',pwind(:,1:xcount),kforc_step,xcount,24)
71 CALL
read_surf_atm(
'BINARY',plw(:,1:xcount),kforc_step,xcount,25)
72 CALL
read_surf_atm(
'BINARY',pdir_sw(:,1:xcount),kforc_step,xcount,26)
73 CALL
read_surf_atm(
'BINARY',psca_sw(:,1:xcount),kforc_step,xcount,27)
74 CALL
read_surf_atm(
'BINARY',prain(:,1:xcount),kforc_step,xcount,28)
75 CALL
read_surf_atm(
'BINARY',psnow(:,1:xcount),kforc_step,xcount,29)
76 CALL
read_surf_atm(
'BINARY',pps(:,1:xcount),kforc_step,xcount,30)
77 CALL
read_surf_atm(
'BINARY',pdir(:,1:xcount),kforc_step,xcount,31)
78 CALL
read_surf_atm(
'BINARY',pco2(:,1:xcount),kforc_step,xcount,32)
80 IF (lhook) CALL dr_hook(
'OL_READ_ATM_BINARY',1,zhook_handle)
subroutine ol_read_atm_binary(KFORC_STEP, PTA, PQA, PWIND, PDIR_SW, PSCA_SW, PLW, PSNOW, PRAIN, PPS, PCO2, PDIR)
subroutine read_surf_atm(HPROGRAM, PFIELD, KFORC_STEP, KNB, KINIT)