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/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/obs_oper_do_not_assim_update/NEMOGCM/NEMO/OPA_SRC/OBS/julian.F90 @ 7915

Last change on this file since 7915 was 7773, checked in by mattmartin, 7 years ago

Committing updates after doing the following:

  • merging the branch dev_r4650_general_vert_coord_obsoper@7763 into this branch
  • updating it so that the following OBS changes were implemented correctly on top of the simplification changes:
    • generalised vertical coordinate for profile obs. This was done so that is now the default option.
    • sst bias correction implemented with the new simplified obs code.
    • included the biogeochemical obs types int he new simplified obs code.
    • included the changes to exclude obs in the boundary for limited area models
    • included other changes for the efficiency of the obs operator to remove global arrays.
File size: 1011 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   USE lib_mpp,  ONLY : &
17      & ctl_warn, ctl_stop
18
19   IMPLICIT NONE
20
21   !! * Routine accessibility
22   PRIVATE
23   PUBLIC jul2greg,        &  ! Convert relative time to date
24      &   greg2jul            ! Convert date to relative time
25 
26   !! $Id$
27CONTAINS
28 
29#include "jul2greg.h90"
30
31#include "greg2jul.h90"
32   
33END MODULE julian
Note: See TracBrowser for help on using the repository browser.