C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/sannino/OASIS_3.0_Coupler/pkg/OASIS.h,v 1.1 2006/07/20 21:08:16 sannino Exp $
C $Name:  $

cc#ifdef ALLOW_OASIS non metterlo MOLTO pericoloso!!

CBOP
C !ROUTINE: OASIS.h

C !DESCRIPTION: \bv
C     /==========================================================\
C     | OASIS.h                                                  |
C     | o Basic header for OASIS coupler                         |
C     | Contains all OASIS field declarations.                   |
C     \==========================================================/

C
C     MAX_FLD_OUT         - Max no. of fields sent to OASIS
C     MAX_FLD_IN          - Max no. of fields received from OASIS
      INTEGER MAX_FLD_OUT
      PARAMETER ( MAX_FLD_OUT = 256 )
      INTEGER MAX_FLD_IN
      PARAMETER ( MAX_FLD_IN = 256 )

C \ev
CEOP
      COMMON /OASIS_INITIAL/
     &ierror,il_mparout,
     &il_comp_id,il_commlocal,
     &il_nbtotproc,il_nbcplproc,
     &ll_comparal  
      INTEGER     ierror
      INTEGER     il_mparout    ! Unit of log file
      INTEGER     il_comp_id    ! Component ID
      INTEGER     il_commlocal  ! Component internal communicator 
      INTEGER     il_nbtotproc  ! Total number of processes
      INTEGER     il_nbcplproc  ! Number of processes involved in the coupling
      LOGICAL     ll_comparal   ! Logical true if component is parallel and if all process communicates with Oasis.

      COMMON /OASIS_CHAR/cp_modnam  
      CHARACTER*6 cp_modnam
      CHARACTER*8 fld_out(MAX_FLD_OUT)   ! Symb names of fields sent
      CHARACTER*8 fld_in(MAX_FLD_IN)      ! Symb names of field received

      COMMON /OASIS_PARTITION/
     &il_length,il_part_id
      INTEGER     il_length      !Size of partial field for each process
      INTEGER     il_part_id     ! Local partition ID

      COMMON /OASIS_FIELDS/
     &nfldout,nfldin,il_var_id_out,il_var_id_in
      INTEGER      nfldout        !Number of fields sent
      INTEGER      nfldin         !Number of fields received
      INTEGER, DIMENSION(MAX_FLD_OUT) :: il_var_id_out    ! ID for fields sent
      INTEGER, DIMENSION(MAX_FLD_IN)  :: il_var_id_in     ! ID for fields received

cgm(
c      _RL      TauXu_OASIS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c      _RL      TauYu_OASIS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c      _RL      TauXv_OASIS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c      _RL      TauYv_OASIS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c      _RL nonSolarHF_OASIS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)


c      _OASIS_RL oasis_b  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)


c      COMMON /oasis/ OASIS1var,oasis_b

C     OASIS parameters
c      _RL OASIS_A

c-      COMMON /OASIS_PARAMS/ OASIS_A
cgm)




cc#endif /* ALLOW_OASIS */


CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***