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.
julian.F90 in branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC – NEMO

source: branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/julian.F90 @ 2236

Last change on this file since 2236 was 2236, checked in by cetlod, 13 years ago

First guess of NEMO_v3.3

File size: 948 bytes
Line 
1MODULE julian
2   !!======================================================================
3   !!                       ***  MODULE julian   ***
4   !! Ocean          : Julian data utilities
5   !!=====================================================================
6
7   !!----------------------------------------------------------------------
8   !!   jul2greg        : Convert relative time to date
9   !!   greg2jul        : Convert date to relative time
10   !!----------------------------------------------------------------------
11   !! * Modules used
12   USE par_kind, ONLY : &       ! Precision variables
13      & wp, &
14      & dp 
15   USE in_out_manager           ! I/O manager
16 
17   IMPLICIT NONE
18
19   !! * Routine accessibility
20   PRIVATE
21   PUBLIC jul2greg,        &  ! Convert relative time to date
22      &   greg2jul            ! Convert date to relative time
23 
24CONTAINS
25 
26#include "jul2greg.h90"
27
28#include "greg2jul.h90"
29   
30END MODULE julian
Note: See TracBrowser for help on using the repository browser.