35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
46 CHARACTER(LEN=4) :: CROUGH
56 REAL,
DIMENSION(:),
POINTER :: XAOSIP,XAOSIM,XAOSJP,XAOSJM
61 REAL,
DIMENSION(:),
POINTER :: XHO2IP,XHO2IM,XHO2JP,XHO2JM
66 REAL,
DIMENSION(:),
POINTER :: XZ0EFFIP,XZ0EFFIM,XZ0EFFJP,XZ0EFFJM
70 REAL,
DIMENSION(:),
POINTER :: XZ0EFFJPDIR
72 REAL,
DIMENSION(:),
POINTER :: XZ0REL
74 REAL,
DIMENSION(:),
POINTER :: XSSO_SLOPE
75 REAL,
DIMENSION(:),
POINTER :: XSSO_ANIS
76 REAL,
DIMENSION(:),
POINTER :: XSSO_DIR
77 REAL,
DIMENSION(:),
POINTER :: XSSO_STDEV
80 REAL,
DIMENSION(:),
POINTER :: XAVG_ZS
81 REAL,
DIMENSION(:),
POINTER :: XSIL_ZS
82 REAL,
DIMENSION(:),
POINTER :: XMAX_ZS
83 REAL,
DIMENSION(:),
POINTER :: XMIN_ZS
105 REAL(KIND=JPRB) :: zhook_handle
106 IF (lhook) CALL dr_hook(
"MODD_SURF_ATM_SSO_N:SURF_ATM_SSO_INIT",0,zhook_handle)
107 nullify(ysurf_atm_sso%XAOSIP)
108 nullify(ysurf_atm_sso%XAOSIM)
109 nullify(ysurf_atm_sso%XAOSJP)
110 nullify(ysurf_atm_sso%XAOSJM)
111 nullify(ysurf_atm_sso%XHO2IP)
112 nullify(ysurf_atm_sso%XHO2IM)
113 nullify(ysurf_atm_sso%XHO2JP)
114 nullify(ysurf_atm_sso%XHO2JM)
115 nullify(ysurf_atm_sso%XZ0EFFIP)
116 nullify(ysurf_atm_sso%XZ0EFFIM)
117 nullify(ysurf_atm_sso%XZ0EFFJP)
118 nullify(ysurf_atm_sso%XZ0EFFJM)
119 nullify(ysurf_atm_sso%XZ0EFFJPDIR)
120 nullify(ysurf_atm_sso%XZ0REL)
121 nullify(ysurf_atm_sso%XSSO_SLOPE)
122 nullify(ysurf_atm_sso%XSSO_ANIS)
123 nullify(ysurf_atm_sso%XSSO_DIR)
124 nullify(ysurf_atm_sso%XSSO_STDEV)
125 nullify(ysurf_atm_sso%XAVG_ZS)
126 nullify(ysurf_atm_sso%XSIL_ZS)
127 nullify(ysurf_atm_sso%XMAX_ZS)
128 nullify(ysurf_atm_sso%XMIN_ZS)
129 ysurf_atm_sso%CROUGH=
' '
130 ysurf_atm_sso%XFRACZ0=2.
131 ysurf_atm_sso%XCOEFBE=2.
132 IF (lhook) CALL dr_hook(
"MODD_SURF_ATM_SSO_N:SURF_ATM_SSO_INIT",1,zhook_handle)
subroutine surf_atm_sso_init(YSURF_ATM_SSO)