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 branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/oasis4_date.F90 @ 2287

Last change on this file since 2287 was 2287, checked in by smasson, 14 years ago

update licence of all NEMO files...
  • Property svn:keywords set to Id
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   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
13   !! $Id$
14   !! Software governed by the CeCILL licence (NEMOGCM/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.