New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5974 for branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 – NEMO

Ignore:
Timestamp:
2015-12-02T11:52:05+01:00 (8 years ago)
Author:
timgraham
Message:

Upgrade to head of trunk (r5936)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r5682 r5974  
    44   !! Coupled O/A : coupled ocean-atmosphere case using OASIS3-MCT 
    55   !!===================================================================== 
    6    !! History :    
    7    !!   9.0  !  04-06  (R. Redler, NEC Laboratories Europe, Germany) Original code 
    8    !!   " "  !  04-11  (R. Redler, NEC Laboratories Europe; N. Keenlyside, W. Park, IFM-GEOMAR, Germany) revision 
    9    !!   " "  !  04-11  (V. Gayler, MPI M&D) Grid writing 
    10    !!   " "  !  05-08  (R. Redler, W. Park) frld initialization, paral(2) revision 
    11    !!   " "  !  05-09  (R. Redler) extended to allow for communication over root only 
    12    !!   " "  !  06-01  (W. Park) modification of physical part 
    13    !!   " "  !  06-02  (R. Redler, W. Park) buffer array fix for root exchange 
    14    !!   3.4  !  11-11  (C. Harris) Changes to allow mutiple category fields 
    15    !!---------------------------------------------------------------------- 
     6   !! History :  1.0  !  2004-06  (R. Redler, NEC Laboratories Europe, Germany) Original code 
     7   !!             -   !  2004-11  (R. Redler, NEC Laboratories Europe; N. Keenlyside, W. Park, IFM-GEOMAR, Germany) revision 
     8   !!             -   !  2004-11  (V. Gayler, MPI M&D) Grid writing 
     9   !!            2.0  !  2005-08  (R. Redler, W. Park) frld initialization, paral(2) revision 
     10   !!             -   !  2005-09  (R. Redler) extended to allow for communication over root only 
     11   !!             -   !  2006-01  (W. Park) modification of physical part 
     12   !!             -   !  2006-02  (R. Redler, W. Park) buffer array fix for root exchange 
     13   !!            3.4  !  2011-11  (C. Harris) Changes to allow mutiple category fields 
     14   !!            3.6  !  2014-11  (S. Masson) OASIS3-MCT 
     15   !!---------------------------------------------------------------------- 
     16    
    1617   !!---------------------------------------------------------------------- 
    1718   !!   'key_oasis3'                    coupled Ocean/Atmosphere via OASIS3-MCT 
     
    2021   !!   cpl_init     : initialization of coupled mode communication 
    2122   !!   cpl_define   : definition of grid and fields 
    22    !!   cpl_snd     : snd out fields in coupled mode 
    23    !!   cpl_rcv     : receive fields in coupled mode 
     23   !!   cpl_snd      : snd out fields in coupled mode 
     24   !!   cpl_rcv      : receive fields in coupled mode 
    2425   !!   cpl_finalize : finalize the coupled mode communication 
    2526   !!---------------------------------------------------------------------- 
     
    99100      !! ** Method  :   OASIS3 MPI communication  
    100101      !!-------------------------------------------------------------------- 
    101       CHARACTER(len = *), INTENT(in) ::   cd_modname   ! model name as set in namcouple file 
    102       INTEGER          , INTENT(out) ::   kl_comm      ! local communicator of the model 
     102      CHARACTER(len = *), INTENT(in   ) ::   cd_modname   ! model name as set in namcouple file 
     103      INTEGER           , INTENT(  out) ::   kl_comm      ! local communicator of the model 
    103104      !!-------------------------------------------------------------------- 
    104105 
     
    163164         CALL oasis_abort ( ncomp_id, 'cpl_define', 'nsnd is larger than nmaxfld, increase nmaxfld')   ;   RETURN 
    164165      ENDIF 
    165  
    166166      ! 
    167167      ! ... Define the shape for the area that excludes the halo 
Note: See TracChangeset for help on using the changeset viewer.