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.
Changeset 10005 for branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 – NEMO

Ignore:
Timestamp:
2018-07-26T13:07:55+02:00 (6 years ago)
Author:
timgraham
Message:

Included all of the functional changes from STARTHOUR branch in branches/2014

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r6486 r10005  
    125125      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    126126      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    127       ihou0 = 0 
    128       imin0 = 0 
     127      ihou0 =   nn_time0 / 100 
     128      imin0 = ( nn_time0 - ihou0 * 100 ) 
    129129 
    130130      icycle = no     ! Assimilation cycle 
    … …  
    397397      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    398398      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    399       ihou0 = 0 
    400       imin0 = 0 
     399      ihou0 =   nn_time0 / 100 
     400      imin0 = ( nn_time0 - ihou0 * 100 ) 
    401401 
    402402      icycle = no     ! Assimilation cycle 
    … …  
    585585      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    586586      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    587       ihou0 = 0 
    588       imin0 = 0 
     587      ihou0 =   nn_time0 / 100 
     588      imin0 = ( nn_time0 - ihou0 * 100 ) 
    589589 
    590590      icycle = no     ! Assimilation cycle 
    … …  
    770770      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    771771      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    772       ihou0 = 0 
    773       imin0 = 0 
     772      ihou0 =   nn_time0 / 100 
     773      imin0 = ( nn_time0 - ihou0 * 100 ) 
    774774 
    775775      icycle = no     ! Assimilation cycle 
    … …  
    968968      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    969969      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    970       ihou0 = 0 
    971       imin0 = 0 
     970      ihou0 =   nn_time0 / 100 
     971      imin0 = ( nn_time0 - ihou0 * 100 ) 
    972972 
    973973      icycle = no     ! Assimilation cycle 
Note: See TracChangeset for help on using the changeset viewer.