8 pta,pqa,pwind,pdir_sw,psca_sw,plw,psnow, &
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
65 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pta
66 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pqa
67 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pwind
68 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pdir_sw
69 REAL,
DIMENSION(:,:),
INTENT(OUT) :: psca_sw
70 REAL,
DIMENSION(:,:),
INTENT(OUT) :: plw
71 REAL,
DIMENSION(:,:),
INTENT(OUT) :: psnow
72 REAL,
DIMENSION(:,:),
INTENT(OUT) :: prain
73 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pps
74 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pco2
75 REAL,
DIMENSION(:,:),
INTENT(OUT) :: pdir
76 CHARACTER(LEN=6) ,
INTENT(IN) :: hsurf_filetype
80 REAL(KIND=JPRB) :: zhook_handle
83 IF (lhook) CALL dr_hook(
'OL_READ_ATM_NETCDF',0,zhook_handle)
85 'OFFLIN',
'Tair', pta(:,1:xcount),iret)
87 'OFFLIN',
'Qair', pqa(:,1:xcount),iret)
89 'OFFLIN',
'Wind', pwind(:,1:xcount),iret)
91 'OFFLIN',
'LWdown', plw(:,1:xcount),iret)
93 'OFFLIN',
'DIR_SWdown',pdir_sw(:,1:xcount),iret)
95 'OFFLIN',
'SCA_SWdown',psca_sw(:,1:xcount),iret)
97 'OFFLIN',
'Rainf', prain(:,1:xcount),iret)
99 'OFFLIN',
'Snowf', psnow(:,1:xcount),iret)
101 'OFFLIN',
'PSurf', pps(:,1:xcount),iret)
103 'OFFLIN',
'Wind_DIR', pdir(:,1:xcount),iret)
105 'OFFLIN',
'CO2air', pco2(:,1:xcount),iret)
106 IF (lhook) CALL dr_hook(
'OL_READ_ATM_NETCDF',1,zhook_handle)
subroutine ol_read_atm_netcdf(HSURF_FILETYPE, PTA, PQA, PWIND, PDIR_SW, PSCA_SW, PLW, PSNOW, PRAIN, PPS, PCO2, PDIR)