39 USE yomhook
,ONLY : lhook, dr_hook
40 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kluout
47 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
48 REAL,
POINTER,
DIMENSION(:,:,:) :: pfield
51 REAL :: zsss_unif=37.6
54 REAL(KIND=JPRB) :: zhook_handle
59 IF (lhook) CALL dr_hook(
'PREP_OCEAN_UNIF',0,zhook_handle)
66 ALLOCATE(pfield(1,nockmax-nockmin+1,1))
67 pfield(:,1,:) = xsst_unif-xtt
69 pfield(:,jlev+1,:) = xsst_unif-xtt-zgradt*(xzhoc(jlev)+1)
76 ALLOCATE(pfield(1,nockmax-nockmin+1,1))
77 pfield(:,1,:) = zsss_unif
79 pfield(:,jlev+1,:) = zsss_unif+zgrads*(xzhoc(jlev)+1)
85 ALLOCATE(pfield(1,nockmax-nockmin+1,1))
89 ALLOCATE(pfield(1,nockmax-nockmin+1,1))
98 IF (lhook) CALL dr_hook(
'PREP_OCEAN_UNIF',1,zhook_handle)
subroutine prep_ocean_unif(KLUOUT, HSURF, PFIELD)