- Timestamp:
- 2020-02-19T10:22:15+01:00 (5 years ago)
- Location:
- NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/OBS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/OBS/diaobs.F90
r12377 r12406 539 539 ENDIF 540 540 541 idaystp = NINT( rday / r dt )541 idaystp = NINT( rday / rn_Dt ) 542 542 543 543 !----------------------------------------------------------------------- … … 774 774 & rday 775 775 USE dom_oce, ONLY : & ! Ocean space and time domain variables 776 & r dt776 & rn_Dt 777 777 778 778 IMPLICIT NONE … … 805 805 !! Compute number of days + number of hours + min since initial time 806 806 !!---------------------------------------------------------------------- 807 zdayfrc = kstp * r dt / rday807 zdayfrc = kstp * rn_Dt / rday 808 808 zdayfrc = zdayfrc - aint(zdayfrc) 809 809 imin = imin + int( zdayfrc * 24 * 60 ) … … 816 816 iday=iday+1 817 817 END DO 818 iday = iday + kstp * r dt / rday818 iday = iday + kstp * rn_Dt / rday 819 819 820 820 !----------------------------------------------------------------------- -
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/OBS/obs_prep.F90
r12377 r12406 613 613 !! * Modules used 614 614 USE dom_oce, ONLY : & ! Geographical information 615 & r dt615 & rn_Dt 616 616 USE phycst, ONLY : & ! Physical constants 617 617 & rday, & … … 662 662 663 663 ! Intialize the number of time steps per day 664 idaystp = NINT( rday / r dt )664 idaystp = NINT( rday / rn_Dt ) 665 665 666 666 !--------------------------------------------------------------------- … … 732 732 733 733 ! Add in the number of time steps to the observation minute 734 zminstp = rmmss / r dt734 zminstp = rmmss / rn_Dt 735 735 zhoustp = rhhmm * zminstp 736 736
Note: See TracChangeset
for help on using the changeset viewer.