MODULE oasis4_date !!--------------------------------------------------------------------- !! *** oasis_date.h90 *** !! Date and related information required to couple NEMO via OASIS4 !! Made separate from cpl_oasis4 module to allow wider use. !!===================================================================== !! History : !! 9.0 ! 05-12 (R. Hill, Met. Office) Original code !!---------------------------------------------------------------------- #if defined key_oasis4 !!---------------------------------------------------------------------- !! OPA 9.0 , LOCEAN-IPSL (2006) !! $ Id: $ !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) !!---------------------------------------------------------------------- !##################### WARNING coupled mode ############################### !##################### WARNING coupled mode ############################### ! Following line must be enabled if coupling with OASIS ! USE PRISM !##################### WARNING coupled mode ############################### !##################### WARNING coupled mode ############################### IMPLICIT NONE INTEGER :: date_err, date_info !!--------------------------------------------------------------------- TYPE(PRISM_Time_struct), PUBLIC :: dates ! date info for send operation TYPE(PRISM_Time_struct), PUBLIC :: dates_bound(2) ! date info for send operation TYPE(PRISM_Time_struct), PUBLIC :: dater ! date info for receive operation TYPE(PRISM_Time_struct), PUBLIC :: dater_bound(2) ! date info for receive operation TYPE(PRISM_Time_struct), PUBLIC :: tmpdate #endif END MODULE oasis4_date