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.
oasis4_date.F90 in trunk/NEMO/OPA_SRC/SBC – NEMO

source: trunk/NEMO/OPA_SRC/SBC/oasis4_date.F90 @ 912

Last change on this file since 912 was 888, checked in by ctlod, 16 years ago

merge dev_001_SBC branche with the trunk to include the New Surface Module package, see ticket: #113
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.7 KB
Line 
1MODULE oasis4_date
2   !!---------------------------------------------------------------------
3   !!                     ***  oasis_date.h90  *** 
4   !!   Date and related information required to couple NEMO via OASIS4
5   !!   Made separate from cpl_oasis4 module to allow wider use.
6   !!=====================================================================
7   !! History :   
8   !!   9.0  !  05-12  (R. Hill, Met. Office) Original code
9   !!----------------------------------------------------------------------
10#if defined key_oasis4
11   !!----------------------------------------------------------------------
12   !!   OPA 9.0 , LOCEAN-IPSL (2006)
13   !! $ Id: $
14   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
15   !!----------------------------------------------------------------------
16!##################### WARNING coupled mode ###############################
17!##################### WARNING coupled mode ###############################
18!   Following line must be enabled if coupling with OASIS
19!   USE PRISM
20!##################### WARNING coupled mode ###############################
21!##################### WARNING coupled mode ###############################
22
23   IMPLICIT NONE
24
25   INTEGER :: date_err, date_info
26   !!---------------------------------------------------------------------
27   TYPE(PRISM_Time_struct), PUBLIC    :: dates          ! date info for send operation
28   TYPE(PRISM_Time_struct), PUBLIC    :: dates_bound(2) ! date info for send operation
29   TYPE(PRISM_Time_struct), PUBLIC    :: dater          ! date info for receive operation
30   TYPE(PRISM_Time_struct), PUBLIC    :: dater_bound(2) ! date info for receive operation
31   TYPE(PRISM_Time_struct), PUBLIC    :: tmpdate
32#endif
33END MODULE oasis4_date
Note: See TracBrowser for help on using the repository browser.