w3oacpmd Module Reference

Data Types
type	cpl_field

Functions/Subroutines
subroutine, public	cpl_oasis_init (ID_LCOMM)
subroutine, public	cpl_oasis_grid (LD_MASTER, ID_LCOMM)
subroutine, public	cpl_oasis_define (NDSO, RCV_STR, SND_STR)
subroutine, public	cpl_oasis_snd (ID_NB, ID_TIME, RDA_FIELD, LD_ACTION)
subroutine, public	cpl_oasis_rcv (ID_NB, ID_TIME, RDA_FIELD, LD_ACTION)
subroutine, public	cpl_oasis_finalize

Variables
integer, public	il_nb_rcv
integer, public	il_nb_snd
type(cpl_field), dimension(ip_maxfld), public	rcv_fld
type(cpl_field), dimension(ip_maxfld), public	snd_fld
integer, public	id_oasis_time =0
logical, public	cplt0

Function/Subroutine Documentation

cpl_oasis_define()

subroutine, public w3oacpmd::cpl_oasis_define	(	integer, intent(in)	NDSO,
		character(len=1024), intent(in)	RCV_STR,
		character(len=1024), intent(in)	SND_STR
	)

Definition at line 364 of file w3oacpmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           A. Thevenin             |
    !/                  |           V. Garnier              |
    !/                  |           M. Accensi              |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :         08-Jun-2018 |
    !/                  +-----------------------------------+
    !/
    !/      Jul-2013 : Origination.                         ( version 4.18 )
    !/    April-2016 : Add coupling for unstructured grids  ( version 5.07 )
    !/                   (R. Baraille & J. Pianezze)
    !/    April-2016 : Add comments (J. Pianezze)           ( version 5.07 )
    !/    08-Jun-2018 : use INIT_GET_ISEA                   ( version 6.04 )
    !/
    !  1. Purpose :
    !
    !     Partition definition and coupling fields declaration
    !
    !  2. Method :
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !     NDSO             Int.      I      Id. of the output file
    !     RCV_STR          Char.     I      Name of receive fields
    !     SND_STR          Char.     I      Name of send fields
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !      Name                 Type    Module    Description
    !     ----------------------------------------------------------------
    !      GET_LIST_EXCH_FIELD  Subr.   W3OACPMD  List of the exchanged fields
    !     ----------------------------------------------------------------
    !
    !  5. Called by :
    !
    !      Name                Type     Module    Description
    !     ----------------------------------------------------------------
    !      WW3_SHEL            Prog.    -         Main program
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !  7. Remarks :
    !  8. Structure :
    !  9. Switches :
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
    !
    USE w3gdatmd, ONLY: nseal,nsea, nx, ny, mapsta, mapsf, gtype, &
         & ungtype, rlgtype, clgtype, smctype
    USE w3odatmd, ONLY: naproc, iaproc
    USE w3parall, ONLY : init_get_isea
    !
    !/ ------------------------------------------------------------------- /
    !/ Parameter list
    !/
    INTEGER, INTENT(IN)                          :: NDSO
    CHARACTER(LEN=1024), INTENT(IN)              :: RCV_STR,SND_STR
    !/
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    INTEGER                 :: IB_I,I
    INTEGER                 :: IL_PART_ID      ! PartitionID
    INTEGER, ALLOCATABLE, DIMENSION(:)   :: ILA_PARAL       ! Description of the local partition in the global index space
    INTEGER, DIMENSION(4)   :: ILA_SHAPE       ! Vector giving the min & max index for each dim of the fields
    INTEGER, DIMENSION(2)   :: ILA_VAR_NODIMS  ! rank of fields & number of bundles (1 with OASIS3-MCT)
    INTEGER                 :: ISEA, JSEA, IX, IY
    INTEGER                 :: NHXW, NHXE, NHYS, NHYN  ! size of the halo at the western, eastern, southern, northern boundaries
    LOGICAL                 :: LL_MPI_FILE     ! to check if there an mpi.txt file for domain decompasition
    !/
    !/ ------------------------------------------------------------------- /
    !/ Executable part
    !/
    !
    IF (gtype .EQ. rlgtype .OR. gtype .EQ. clgtype) THEN
      !
      ! 1.1. regular and curvilinear grids
      ! ----------------------------------
      nhxw = 1 ; nhxe = nx ; nhys = 1 ; nhyn = ny
      nhxw = nhxw - 1
      nhxe = nx - nhxe
      nhys = nhys - 1
      nhyn = ny - nhyn
      !
      ALLOCATE(ila_paral(2+nseal*2))
      !
      ! * Define the partition : OASIS ORANGE partition
      ila_paral(1) = 3
      !
      ! * total number of segments of the global domain
      ila_paral(2) = nseal
      !
      DO jsea=1, nseal
        CALL init_get_isea(isea,jsea)
 
        ix = mapsf(isea,1)
        iy = mapsf(isea,2)
        ila_paral(jsea*2+1) = (iy - nhyn -1)*(nx - nhxe - nhxw) + (ix - nhxw - 1)
        ila_paral(jsea*2+2) = 1
      END DO
#ifdef W3_SMC
    ELSE IF( gtype .EQ. smctype ) THEN
      !
      ! 1.2. SMC grids
      ! ----------------------------------
      ALLOCATE(ila_paral(2+nseal))
      !
      ! * Define the partition : OASIS POINTS partition
      ila_paral(1) = 4
      !
      ! * total number of segments of the global domain
      ila_paral(2) = nseal
      !
      DO jsea=1, nseal
        ila_paral(jsea+2) = iaproc + (jsea-1)*naproc
      ENDDO
#endif
      !
    ELSE
      !
      ! 1.3. Unstructured grids
      ! ----------------------------------
      WRITE(*,*) 'TO BE VERIFIED FOR UNSTRUCTURED GRIDS'
      stop
      !
      DO jsea=1,nseal
        ila_paral(jsea*2+1) = (iaproc-1) + (jsea-1)*naproc
        ila_paral(jsea*2+2) = 1
      END DO
      !
    ENDIF
    !
    ! 2. Partition definition
    ! ----------------------------------
    CALL oasis_def_partition(il_part_id, ila_paral,il_err,nnodes)
    IF(il_err /= 0) THEN
      CALL oasis_abort(il_compid, 'CPL_OASIS_DEFINE', 'Problem during oasis_def_partition')
    ENDIF
    !
    ! 3. Coupling fields declaration
    ! ----------------------------------
    ila_shape(:) = (/1, nseal, 1, 1 /)
    !
    ila_var_nodims(1) = 2    ! rank of fields array
    ila_var_nodims(2) = 1    ! always 1 with OASIS3-MCT 2.0
    !
    CALL get_list_exch_field(ndso, rcv_fld, snd_fld, il_nb_rcv, il_nb_snd, rcv_str, snd_str)
    !
    ! 3.1 Send coupling fields
    ! ----------------------------------
    DO ib_i = 1, il_nb_snd
      CALL oasis_def_var (snd_fld(ib_i)%IL_FIELD_ID     &
           &            , snd_fld(ib_i)%CL_FIELD_NAME   &
           &            , il_part_id                    &
           &            , ila_var_nodims                &
           &            , oasis_out                     &
           &            , ila_shape                     &
           &            , oasis_real                    &
           &            , il_err )
 
      IF (il_err /= 0) THEN
        CALL oasis_abort(il_compid, 'CPL_OASIS_DEFINE', 'Problem during oasis_def_var')
      ENDIF
    ENDDO
    !
    ! 3.2 Received coupling fields
    ! ----------------------------------
    DO ib_i = 1, il_nb_rcv
      CALL oasis_def_var (rcv_fld(ib_i)%IL_FIELD_ID    &
           &            , rcv_fld(ib_i)%CL_FIELD_NAME  &
           &            , il_part_id                   &
           &            , ila_var_nodims               &
           &            , oasis_in                     &
           &            , ila_shape                    &
           &            , oasis_real                   &
           &            , il_err )
      !
      IF (il_err /= 0) THEN
        CALL oasis_abort(il_compid, 'CPL_OASIS_DEFINE', 'Problem during oasis_def_var')
      ENDIF
    ENDDO
    !
    ! 4. End of definition phase
    ! ----------------------------------
    CALL oasis_enddef(il_err)
 
    IF (il_err /= 0) THEN
      CALL oasis_abort(il_compid, 'CPL_OASIS_DEFINE', 'Problem during oasis_enddef')
    ENDIF
    !
    !/ ------------------------------------------------------------------- /

References w3gdatmd::clgtype, w3gdatmd::gtype, w3odatmd::iaproc, il_nb_rcv, il_nb_snd, w3parall::init_get_isea(), w3gdatmd::mapsf, w3gdatmd::mapsta, w3odatmd::naproc, w3gdatmd::nsea, w3gdatmd::nseal, w3gdatmd::nx, w3gdatmd::ny, rcv_fld, w3gdatmd::rlgtype, w3gdatmd::smctype, snd_fld, and w3gdatmd::ungtype.

Referenced by w3shel().

cpl_oasis_finalize()

subroutine, public w3oacpmd::cpl_oasis_finalize

Definition at line 705 of file w3oacpmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           A. Thevenin             |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :          April-2016 |
    !/                  +-----------------------------------+
    !/
    !/    Jul-2013 : Origination.                    ( version 4.18 )
    !/  April-2016 : Add comments (J. Pianezze)      ( version 5.07 )
    !/
    !  1. Purpose :
    !
    !     Terminate the coupling
    !
    !  2. Method :
    !  3. Parameters :
    !  4. Subroutines used :
    !  5. Called by :
    !
    !      Name                Type     Module    Description
    !     ----------------------------------------------------------------
    !      WW3_SHEL            Prog.    -         Main program
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !  7. Remarks :
    !  8. Structure :
    !  9. Switches :
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
    !/ Executable part
    !/
    CALL oasis_terminate(il_err)
    !
    IF (il_err /= 0) THEN
      CALL oasis_abort(il_compid, 'CPL_OASIS_FINALIZE', 'Problem during oasis_terminate')
    ENDIF
    !
    !/ ------------------------------------------------------------------- /

References w3servmd::strsplit().

Referenced by w3shel().

cpl_oasis_grid()

subroutine, public w3oacpmd::cpl_oasis_grid	(	logical, intent(in)	LD_MASTER,
		integer, intent(in)	ID_LCOMM
	)

Definition at line 155 of file w3oacpmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           A. Thevenin             |
    !/                  |           V. Garnier              |
    !/                  |           M. Accensi              |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :          April-2016 |
    !/                  +-----------------------------------+
    !/
    !/    Jul-2013 : Origination.                    ( version 4.18 )
    !/    April-2016 : Add comments (J. Pianezze)    ( version 5.07 )
    !/    Sept-2016 : Correct bug MPI (J. Pianezze)  ( version 5.12 )
    !/
    !  1. Purpose :
    !
    !     Grid data file definition
    !
    !  2. Method :
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !     LD_MASTER         Bool.    I     Flag to know the master process
    !     ID_LCOMM          Int.     I     MPI communicator
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !  5. Called by :
    !
    !      Name                Type     Module    Description
    !     ----------------------------------------------------------------
    !      WW3_SHEL            Prog.    -         Main program
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !  7. Remarks :
    !  8. Structure :
    !  9. Switches :
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
    !
    USE constants, ONLY: radius, dera
    USE w3gdatmd,  ONLY: nx, ny, flagll, xgrd, ygrd, mapsta, &
         & hpfac, hqfac, gtype, &
         & ungtype, rlgtype, clgtype, smctype
#ifdef W3_SMC
    USE w3gdatmd,  ONLY: nsea, x0, y0, mrfct, sx, sy, ijkcel
#endif
#ifdef W3_MPI
    include "mpif.h"
#endif
    !
    !/ ------------------------------------------------------------------- /
    !/ Parameter list
    !/
    LOGICAL, INTENT(IN) :: LD_MASTER    ! MASTER process or not
    INTEGER, INTENT(IN) :: ID_LCOMM     ! Model local communicator
    !
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    INTEGER, ALLOCATABLE :: MASK(:,:)
    INTEGER              :: I, IX, IY, NXW, NXE, NYS, NYN, INODE, IERR_MPI
    REAL, ALLOCATABLE    :: LON(:,:),LAT(:,:),AREA(:,:),      &
         CORLON(:,:,:),CORLAT(:,:,:)
    REAL                 :: FACTOR
#ifdef W3_SMC
    REAL                 :: DLON, DLAT
#endif
    !/ ------------------------------------------------------------------- /
    !
    IF (ld_master) THEN
      !
      !
      ! 0. Create grids file
      ! --------------------------------
      CALL oasis_start_grids_writing(ierr_mpi)
      !
      ! 1. Get the lat/lon/corners,areas and masks
      ! -------------------------------------------
      IF (gtype .EQ. rlgtype .OR. gtype .EQ. clgtype) THEN
        !
        IF (flagll) THEN
          factor = 1.
        ELSE
          factor = 1. / (radius * dera)
        END IF
        !
        ! 1.1. regular and curvilinear grids
        ! ----------------------------------
        nnodes = nx*ny
        nxw=1
        nxe=nx
        nys=1
        nyn=ny
        !
        ! lat/lon
        ALLOCATE ( lon(nnodes,1), lat(nnodes,1) )
        i = 0
        DO iy = nys, nyn
          DO ix = nxw, nxe
            i = i+1
            lon(i,1)=xgrd(iy,ix)*factor
            lat(i,1)=ygrd(iy,ix)*factor
          END DO
        END DO
        !
        ! areas, corners
        ALLOCATE ( area(nnodes,1), corlon(nnodes,1,4), corlat(nnodes,1,4) )
        i = 0
        DO iy = nys, nyn
          DO ix = nxw, nxe
            i = i+1
            corlon(i,1,1)=lon(i,1)+hpfac(iy,ix)/2.*factor
            corlon(i,1,2)=lon(i,1)-hpfac(iy,ix)/2.*factor
            corlon(i,1,3)=lon(i,1)-hpfac(iy,ix)/2.*factor
            corlon(i,1,4)=lon(i,1)+hpfac(iy,ix)/2.*factor
            corlat(i,1,1)=lat(i,1)+hqfac(iy,ix)/2.*factor
            corlat(i,1,2)=lat(i,1)+hqfac(iy,ix)/2.*factor
            corlat(i,1,3)=lat(i,1)-hqfac(iy,ix)/2.*factor
            corlat(i,1,4)=lat(i,1)-hqfac(iy,ix)/2.*factor
            area(i,1)=hpfac(iy,ix)*hqfac(iy,ix)
          END DO
        END DO
        !
        ! Model grid mask
        ALLOCATE ( mask(nnodes,1) )
        i = 0
        DO iy = nys, nyn
          DO ix = nxw, nxe
            i = i+1
            ! Get the mask : 0 - sea  / 1 - open boundary cells (the land is already excluded)
            IF ((mapsta(iy,ix) .EQ. 1)) THEN
              mask(i,1) = 0
            ELSE
              mask(i,1) = 1
            END IF
          END DO
        END DO
#ifdef W3_SMC
      ELSE IF( gtype .EQ. smctype ) THEN
        !
        ! 1.2. SMC grids
        ! ----------------------------------
        nnodes = nsea
        !
        ! Calculate the smallest grid cell increments depending on the number of SMC levels
        dlon = sx / mrfct
        dlat = sy / mrfct
        !
        ALLOCATE ( lon(nnodes,1), lat(nnodes,1) )
        ALLOCATE ( area(nnodes,1), corlon(nnodes,1,4), corlat(nnodes,1,4) )
        ALLOCATE ( mask(nnodes,1) )
        DO i=1, nnodes
          ! lat/lon
          lon(i,1) = x0 + (ijkcel(1,i) + ijkcel(3,i)*0.5)*dlon
          lat(i,1) = y0 + (ijkcel(2,i) + ijkcel(4,i)*0.5)*dlat
          ! corners
          corlon(i,1,1) = x0 + ijkcel(1,i)*dlon
          corlon(i,1,2) = x0 + (ijkcel(1,i) + ijkcel(3,i))*dlon
          corlon(i,1,3) = corlon(i,1,2)
          corlon(i,1,4) = corlon(i,1,1)
          corlat(i,1,1) = y0 + ijkcel(2,i)*dlat
          corlat(i,1,2)=corlat(i,1,1)
          corlat(i,1,3) = y0 + (ijkcel(2,i) + ijkcel(4,i))*dlat
          corlat(i,1,4)=corlat(i,1,3)
          ! areas
          area(i,1) = 0.25 * ijkcel(3,i)*dlon * ijkcel(4,i)*dlat
          ! Model grid mask
          mask(i,1) = 1
        ENDDO
#endif
        !
      ELSE
        !
        ! 1.3. Unstructured grids
        ! ----------------------------------
        WRITE(*,*) 'TO BE IMPLEMENT FOR UNSTRUCTURED GRIDS'
        stop
      END IF
      !
      CALL oasis_write_grid('ww3t',nnodes,1,lon,lat)
      CALL oasis_write_corner('ww3t',nnodes,1,4,corlon,corlat)
      CALL oasis_write_area('ww3t',nnodes,1,area)
      CALL oasis_write_mask('ww3t',nnodes,1,mask)
      !
      ! 2. Terminate grid writing
      ! -------------------------
      CALL oasis_terminate_grids_writing()
      !
      DEALLOCATE(lon)
      DEALLOCATE(lat)
      DEALLOCATE(corlon)
      DEALLOCATE(corlat)
      DEALLOCATE(area)
      DEALLOCATE(mask)
      !
    ENDIF
    !
#ifdef W3_MPI
    CALL mpi_bcast(nnodes,1,mpi_integer,0,id_lcomm,ierr_mpi)
#endif
    !
    !/ ------------------------------------------------------------------- /

References w3gdatmd::clgtype, constants::dera, w3gdatmd::flagll, w3gdatmd::gtype, w3gdatmd::hpfac, w3gdatmd::hqfac, w3gdatmd::ijkcel, include(), w3gdatmd::mapsta, w3gdatmd::mrfct, w3gdatmd::nsea, w3gdatmd::nx, w3gdatmd::ny, constants::radius, w3gdatmd::rlgtype, w3gdatmd::smctype, w3gdatmd::sx, w3gdatmd::sy, w3gdatmd::ungtype, w3gdatmd::x0, w3gdatmd::xgrd, w3gdatmd::y0, and w3gdatmd::ygrd.

Referenced by w3shel().

cpl_oasis_init()

subroutine, public w3oacpmd::cpl_oasis_init

(

integer, intent(out)

ID_LCOMM

)

Definition at line 93 of file w3oacpmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           A. Thevenin             |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :          April-2016 |
    !/                  +-----------------------------------+
    !/
    !/     Jul-2013 : Origination.                    ( version 4.18 )
    !/     April-2016 : Add comments (J. Pianezze)    ( version 5.07 )
    !/
    !  1. Purpose :
    !
    !     Initialize the coupling
    !
    !  2. Method :
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !     ID_LCOMM     Int.     O    MPI communicator
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !
    !  5. Called by :
    !
    !      Name                Type     Module    Description
    !     ----------------------------------------------------------------
    !      WW3_SHEL            Prog.    -         Main program
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !  7. Remarks :
    !  8. Structure :
    !  9. Switches :
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
    !
    ! * Argument
    INTEGER, INTENT(OUT) :: ID_LCOMM                   ! Model local communicator
    !
    !----------------------------------------------------------------------
    ! * Executable part
    !
    !! Initialize the coupling
    CALL oasis_init_comp(il_compid, cl_model_name, il_err)
    IF (il_err /= 0) THEN
      CALL oasis_abort(il_compid, 'CPL_OASIS_INIT', 'Problem during oasis_init_comp')
    ENDIF
    !
    !! Get the value of a local MPI communicator to be used by WW3 for its internal parallelisation
    CALL oasis_get_localcomm(id_lcomm, il_err)
    IF (il_err /= 0) THEN
      CALL oasis_abort(il_compid, 'CPL_OASIS_INIT', 'Problem during oasis_get_localcomm')
    ENDIF
    !
    !/ ------------------------------------------------------------------- /

Referenced by w3shel().

cpl_oasis_rcv()

subroutine, public w3oacpmd::cpl_oasis_rcv	(	integer, intent(in)	ID_NB,
		integer, intent(in)	ID_TIME,
		real(kind=8), dimension(:,:), intent(out)	RDA_FIELD,
		logical, intent(out)	LD_ACTION
	)

Definition at line 634 of file w3oacpmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           A. Thevenin             |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :          April-2016 |
    !/                  +-----------------------------------+
    !/
    !/    Jul-2013 : Origination.                    ( version 4.18 )
    !/    April-2016 : Add comments (J. Pianezze)    ( version 5.07 )
    !/
    !  1. Purpose :
    !
    !     In the model time step loop, each process receives its parts of the coupling field
    !
    !  2. Method :
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !     ID_NB           Int.      I       Number of the field to be received
    !     ID_TIME         Int.      I       Ocean time-step in seconds
    !     RDA_FIELD       Real      I       Coupling field array to be received
    !     LD_ACTION       Bool.     O       Action performed
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !  5. Called by :
    !
    !      Name                  Type    Module     Description
    !     ----------------------------------------------------------------
    !      RCV_FIELDS_FROM_ATMOS   Subr.   W3AGCMMD   Receive fields from atmos. model
    !      RCV_FIELDS_FROM_OCEAN   Subr.   W3OGCMMD   Receive fields from ocean model
    !      RCV_FIELDS_FROM_ICE     Subr.   W3IGCMMD   Receive fields from ice model
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !  7. Remarks :
    !  8. Structure :
    !  9. Switches :
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
    !/ Parameter list
    !/
    INTEGER, INTENT(IN)   :: ID_NB                          ! Number of the field to be received
    INTEGER, INTENT(IN)   :: ID_TIME                        ! Ocean time-step in seconds
    REAL(KIND=8), dimension(:,:), INTENT(OUT) :: rda_field    ! Coupling field array to be received
    LOGICAL, INTENT(OUT)  :: LD_ACTION                      ! Action performed
    !/
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    INTEGER :: IL_INFO                                      ! OASIS3-MCT info argument
    !/
    !/ ------------------------------------------------------------------- /
    !/ Executable part
    !/
    CALL oasis_get ( rcv_fld(id_nb)%IL_FIELD_ID &
         &              , id_time                    &
         &              , rda_field                  &
         &              , il_info                    &
         &                )
    !
    ld_action = il_info == oasis_recvd   .OR. il_info == oasis_fromrest .OR.   &
         &           il_info == oasis_recvout .OR. il_info == oasis_fromrestout
    !
    !/ ------------------------------------------------------------------- /

References rcv_fld.

Referenced by w3agcmmd::rcv_fields_from_atmos(), w3igcmmd::rcv_fields_from_ice(), and w3ogcmmd::rcv_fields_from_ocean().

cpl_oasis_snd()

subroutine, public w3oacpmd::cpl_oasis_snd	(	integer, intent(in)	ID_NB,
		integer, intent(in)	ID_TIME,
		real(kind=8), dimension(:,:), intent(in)	RDA_FIELD,
		logical, intent(out)	LD_ACTION
	)

Definition at line 563 of file w3oacpmd.F90.

    !/
    !/                  +-----------------------------------+
    !/                  | WAVEWATCH III           NOAA/NCEP |
    !/                  |           A. Thevenin             |
    !/                  |                        FORTRAN 90 |
    !/                  | Last update :          April-2016 |
    !/                  +-----------------------------------+
    !/
    !/    Jul-2013 : Origination.                    ( version 4.18 )
    !/    April-2016 : Add comments (J. Pianezze)    ( version 5.07 )
    !/
    !  1. Purpose :
    !
    !     In the model time step loop, each process sends its parts of the coupling field
    !
    !  2. Method :
    !  3. Parameters :
    !
    !     Parameter list
    !     ----------------------------------------------------------------
    !     ID_NB           Int.      I       Number of the field to be send
    !     ID_TIME         Int.      I       Atmosphere time-step in seconds
    !     RDA_FIELD       Real      I       Coupling field array to be send
    !     LD_ACTION       Bool.     O       Action performed
    !     ----------------------------------------------------------------
    !
    !  4. Subroutines used :
    !  5. Called by :
    !
    !      Name                  Type    Module     Description
    !     ----------------------------------------------------------------
    !      SND_FIELDS_TO_ATMOS   Subr.   W3AGCMMD   Send fields to atmos. model
    !      SND_FIELDS_TO_OCEAN   Subr.   W3OGCMMD   Send fields to ocean model
    !      SND_FIELDS_TO_ICE     Subr.   W3IGCMMD   Send fields to ice model
    !     ----------------------------------------------------------------
    !
    !  6. Error messages :
    !  7. Remarks :
    !  8. Structure :
    !  9. Switches :
    ! 10. Source code :
    !
    !/ ------------------------------------------------------------------- /
    !/ Parameter list
    !/
    INTEGER, INTENT(IN)   :: ID_NB                         ! Number of the field to be send
    INTEGER, INTENT(IN)   :: ID_TIME                       ! Atmosphere time-step in seconds
    REAL(KIND=8), dimension(:,:), INTENT(IN) :: rda_field  ! Coupling field array to be send
    LOGICAL, INTENT(OUT)  :: LD_ACTION                     ! Action performed
    !/
    !/ ------------------------------------------------------------------- /
    !/ Local parameters
    !/
    INTEGER :: IL_INFO                                     ! OASIS3-MCT info argument
    !/
    !/ ------------------------------------------------------------------- /
    !/ Executable part
    !/
    CALL oasis_put ( snd_fld(id_nb)%IL_FIELD_ID &
         &              , id_time                    &
         &              , rda_field                  &
         &              , il_info                    &
         &                )
 
    ld_action = il_info == oasis_sent     .OR. il_info == oasis_torest .OR.   &
         &           il_info == oasis_sentout  .OR. il_info == oasis_torestout
 
    !/ ------------------------------------------------------------------- /

References snd_fld.

Referenced by w3agcmmd::snd_fields_to_atmos(), w3igcmmd::snd_fields_to_ice(), and w3ogcmmd::snd_fields_to_ocean().

Variable Documentation

cplt0

logical, public w3oacpmd::cplt0

Definition at line 80 of file w3oacpmd.F90.

  LOGICAL, PUBLIC       :: CPLT0                     ! Flag for coupling at T+0

Referenced by w3fldsmd::w3fldg(), w3shel(), and w3wavemd::w3wave().

id_oasis_time

integer, public w3oacpmd::id_oasis_time =0

Definition at line 78 of file w3oacpmd.F90.

  INTEGER, PUBLIC       :: ID_OASIS_TIME=0           ! time counter for coupling exchanges

Referenced by w3agcmmd::rcv_fields_from_atmos(), w3igcmmd::rcv_fields_from_ice(), w3ogcmmd::rcv_fields_from_ocean(), w3agcmmd::snd_fields_to_atmos(), w3igcmmd::snd_fields_to_ice(), w3ogcmmd::snd_fields_to_ocean(), w3fldsmd::w3fldg(), w3shel(), and w3wavemd::w3wave().

il_nb_rcv

integer, public w3oacpmd::il_nb_rcv

Definition at line 67 of file w3oacpmd.F90.

  INTEGER, PUBLIC       :: IL_NB_RCV, IL_NB_SND      ! Number of coupling fields

Referenced by cpl_oasis_define(), w3agcmmd::rcv_fields_from_atmos(), w3igcmmd::rcv_fields_from_ice(), and w3ogcmmd::rcv_fields_from_ocean().

il_nb_snd

integer, public w3oacpmd::il_nb_snd

Definition at line 67 of file w3oacpmd.F90.

Referenced by cpl_oasis_define(), w3agcmmd::snd_fields_to_atmos(), w3igcmmd::snd_fields_to_ice(), and w3ogcmmd::snd_fields_to_ocean().

rcv_fld

type(cpl_field), dimension(ip_maxfld), public w3oacpmd::rcv_fld

Definition at line 76 of file w3oacpmd.F90.

  TYPE(CPL_FIELD), DIMENSION(IP_MAXFLD), PUBLIC :: RCV_FLD, SND_FLD   ! Coupling fields

Referenced by cpl_oasis_define(), cpl_oasis_rcv(), w3agcmmd::rcv_fields_from_atmos(), w3igcmmd::rcv_fields_from_ice(), and w3ogcmmd::rcv_fields_from_ocean().

snd_fld

type(cpl_field), dimension(ip_maxfld), public w3oacpmd::snd_fld

Definition at line 76 of file w3oacpmd.F90.

Referenced by cpl_oasis_define(), cpl_oasis_snd(), w3agcmmd::snd_fields_to_atmos(), w3igcmmd::snd_fields_to_ice(), and w3ogcmmd::snd_fields_to_ocean().