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/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC – NEMO

source: branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC/oasis4_date.F90 @ 5728

Last change on this file since 5728 was 2715, checked in by rblod, 13 years ago

First attempt to put dynamic allocation on the trunk
  • Property svn:keywords set to Id
File size: 2.2 KB
Line 
1MODULE oasis4_date
2   !!======================================================================
3   !!                     ***  MODULE oasis_date  *** 
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 :  2.0  ! 2005-12  (R. Hill, Met. Office) Original code
8   !!----------------------------------------------------------------------
9#if defined key_oasis4
10   !!----------------------------------------------------------------------
11   !!   'key_oasis4'                                   coupled with OASIS-4
12   !!----------------------------------------------------------------------
13   !##################### WARNING coupled mode ###############################
14   !##################### WARNING coupled mode ###############################
15   !   Following line must be enabled if coupling with OASIS
16   !   USE PRISM
17   !##################### WARNING coupled mode ###############################
18   !##################### WARNING coupled mode ###############################
19
20   PRIVATE
21   IMPLICIT NONE
22
23   INTEGER, PUBLIC :: date_err, date_info   !:
24
25   TYPE(PRISM_Time_struct), PUBLIC ::   dates            !: date info for send operation
26   TYPE(PRISM_Time_struct), PUBLIC ::   dates_bound(2)   !: date info for send operation
27   TYPE(PRISM_Time_struct), PUBLIC ::   dater            !: date info for receive operation
28   TYPE(PRISM_Time_struct), PUBLIC ::   dater_bound(2)   !: date info for receive operation
29   TYPE(PRISM_Time_struct), PUBLIC ::   tmpdate          !:
30   
31#else
32   !!----------------------------------------------------------------------
33   !!   Default option            Dummy module                   NO OASIS-4
34   !!----------------------------------------------------------------------
35#endif
36   !!----------------------------------------------------------------------
37   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
38   !! $Id$
39   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
40   !!======================================================================
41END MODULE oasis4_date
Note: See TracBrowser for help on using the repository browser.