8 hprogram,hsurf,hfile,hfiletype,kluout,ounif)
52 USE modi_prep_hor_ocean_field
55 USE yomhook
,ONLY : lhook, dr_hook
56 USE parkind1
,ONLY : jprb
68 TYPE(ocean_t),
INTENT(INOUT) :: o
73 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
74 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
75 CHARACTER(LEN=28),
INTENT(IN) :: hfile
76 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
77 INTEGER,
INTENT(IN) :: kluout
78 LOGICAL,
INTENT(IN) :: ounif
83 CHARACTER(LEN=8) :: ysurf
84 CHARACTER(LEN=28) :: yncvarname
89 REAL(KIND=JPRB) :: zhook_handle
97 IF (lhook) CALL dr_hook(
'PREP_HOR_OCEAN_FIELDS',0,zhook_handle)
99 yncvarname=
'temperature'
102 hprogram,hfile,hfiletype,kluout,ounif,ysurf,yncvarname)
107 yncvarname=
'salinity'
110 hprogram,hfile,hfiletype,kluout,ounif,ysurf,yncvarname)
118 hprogram,hfile,hfiletype,kluout,ounif,ysurf,yncvarname)
123 hprogram,hfile,hfiletype,kluout,ounif,ysurf,yncvarname)
129 ALLOCATE(o%XSEAE (
SIZE(o%XSEAT,1),nockmin:nockmax))
131 ALLOCATE(o%XSEABATH (
SIZE(o%XSEAT,1),nockmin:nockmax))
133 ALLOCATE(o%XSEAHMO (
SIZE(o%XSEAT,1)))
135 ALLOCATE(o%XLE (
SIZE(o%XSEAT,1),nockmin:nockmax))
136 ALLOCATE(o%XLK (
SIZE(o%XSEAT,1),nockmin:nockmax))
137 ALLOCATE(o%XKMEL (
SIZE(o%XSEAT,1),nockmin:nockmax))
138 ALLOCATE(o%XKMELM (
SIZE(o%XSEAT,1),nockmin:nockmax))
142 o%XKMELM(:,:) =xundef
143 ALLOCATE(o%XSEATEND (
SIZE(o%XSEAT,1)))
144 o%XSEATEND(:) =xundef
146 ALLOCATE(o%XDTFNSOL (
SIZE(o%XSEAT,1)))
147 o%XDTFNSOL(:) = xundef
148 ALLOCATE(o%XDTFSOL (
SIZE(o%XSEAT,1),nockmin:nockmax))
149 o%XDTFSOL(:,:)= xundef
155 DO jlev=ik1+1,nockmax
156 IF (s%XSEABATHY(j)-xzhoc(jlev)>0.)
THEN
157 o%XSEABATH(j,jlev)=0.
158 o%XSEAE(j,jlev) = xundef
159 o%XSEAU(j,jlev) = xundef
160 o%XSEAV(j,jlev) = xundef
161 o%XSEAT(j,jlev) = xundef
162 o%XSEAS(j,jlev) = xundef
164 or%XSEAT_REL(j,jlev) = xundef
165 or%XSEAS_REL(j,jlev) = xundef
167 or%XSEAU_REL(j,jlev) = xundef
168 or%XSEAV_REL(j,jlev) = xundef
176 IF (lhook) CALL dr_hook(
'PREP_HOR_OCEAN_FIELDS',1,zhook_handle)
subroutine prep_hor_ocean_fields(DTCO, UG, U, O, OR, SG, S, HPROGRAM, HSURF, HFILE, HFILETYPE, KLUOUT, OUNIF)
subroutine prep_hor_ocean_field(DTCO, UG, U, O, OR, SG, HPROGRAM, HFILE, HFILETYPE, KLUOUT, OUNIF, HSURF, HNCVARNAME)