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 5997 for branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 – NEMO

Ignore:
Timestamp:
2015-12-03T17:04:43+01:00 (8 years ago)
Author:
timgraham
Message:

Merged branches/2014/dev_r4650_UKMO7_STARTHOUR into branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r5963 r5997  
    128128      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    129129      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    130       ihou0 = 0 
    131       imin0 = 0 
     130      ihou0 =   nn_time0 / 100 
     131      imin0 = ( nn_time0 - ihou0 * 100 ) 
    132132 
    133133      icycle = no     ! Assimilation cycle 
    … …  
    400400      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    401401      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    402       ihou0 = 0 
    403       imin0 = 0 
     402      ihou0 =   nn_time0 / 100 
     403      imin0 = ( nn_time0 - ihou0 * 100 ) 
    404404 
    405405      icycle = no     ! Assimilation cycle 
    … …  
    588588      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    589589      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    590       ihou0 = 0 
    591       imin0 = 0 
     590      ihou0 =   nn_time0 / 100 
     591      imin0 = ( nn_time0 - ihou0 * 100 ) 
    592592 
    593593      icycle = no     ! Assimilation cycle 
    … …  
    773773      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    774774      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    775       ihou0 = 0 
    776       imin0 = 0 
     775      ihou0 =   nn_time0 / 100 
     776      imin0 = ( nn_time0 - ihou0 * 100 ) 
    777777 
    778778      icycle = no     ! Assimilation cycle 
    … …  
    971971      imon0 = ( ndate0 - iyea0 * 10000 ) / 100 
    972972      iday0 =   ndate0 - iyea0 * 10000 - imon0 * 100 
    973       ihou0 = 0 
    974       imin0 = 0 
     973      ihou0 =   nn_time0 / 100 
     974      imin0 = ( nn_time0 - ihou0 * 100 ) 
    975975 
    976976      icycle = no     ! Assimilation cycle 
Note: See TracChangeset for help on using the changeset viewer.