TYPE OCEAN_t
!
!
! Switche for interactive coupling with oceanic model
LOGICAL:: LMERCATOR !set to .true. to initialize oceanic var. from Mercator
LOGICAL:: LCURRENT !set to .true. to make initialize ocean state with current
LOGICAL:: LPROGSST !set to .true. to make SST evolve with tendance
INTEGER:: NTIME_COUPLING! coupling time frequency
INTEGER:: NOCTCOUNT !oceanic model counter
REAL :: XOCEAN_TSTEP ! time step of the oceanic 1D model
!
! General surface:
!
REAL, POINTER, DIMENSION(:,:) :: XSEAT ! oceanic temperature profiles
REAL, POINTER, DIMENSION(:,:) :: XSEAS ! oceanic salinity profiles
REAL, POINTER, DIMENSION(:,:) :: XSEAU ! oceanic zonal current profiles
REAL, POINTER, DIMENSION(:,:) :: XSEAV ! oceanic meridian current profiles
REAL, POINTER, DIMENSION(:,:) :: XSEAE ! oceanic kinetic turbulent energy profiles (^(1/2))
REAL, POINTER, DIMENSION(:,:) :: XSEABATH !bathymetry indice
!=1 for free sea water
!=0 for sea-bed
REAL, POINTER, DIMENSION(:) :: XSEAHMO! oceanic mixing lengths
!
REAL, POINTER, DIMENSION(:,:) :: XLE,XLK! oceanic mixing lengths
REAL, POINTER, DIMENSION(:,:) :: XKMEL,XKMELM ! oceanic mixing coefficients
!
REAL, POINTER, DIMENSION(:) :: XSEATEND! SST tendance
!
REAL, POINTER, DIMENSION(:,:) :: XDTFSOL ! Temp tendancy due to solar flux
REAL, POINTER, DIMENSION(:) :: XDTFNSOL! -------------------- non solar flux
!
END TYPE OCEAN_t