Changeset 9923 for NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/OBS/obs_prep.F90

Timestamp:

2018-07-11T10:24:17+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): step I.2: dev_r9838_ENHANCE04_MLF

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/OBS/obs_prep.F90 (modified) (4 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/OCE/OBS/obs_prep.F90

@@ -610 +610 @@
       !!        !  2010-05  (D. Lea) Fix in leap year calculation for NEMO vn3.2
       !!----------------------------------------------------------------------
-      !! * Modules used
-      USE dom_oce, ONLY : &  ! Geographical information
-         & rdt
-      USE phycst, ONLY : &   ! Physical constants
-         & rday,  &             
-         & rmmss, &             
-         & rhhmm                        
-      !! * Arguments
+      USE dom_oce, ONLY :   rn_Dt                ! Geographical information
+      USE phycst , ONLY :   rday, rmmss, rhhmm   ! Physical constants
+
       INTEGER, INTENT(IN) :: kcycle     ! Current cycle
       INTEGER, INTENT(IN) :: kyea0      ! Initial date coordinates
@@ -632 +627 @@
          & kobshou,  &
          & kobsmin
-      INTEGER, DIMENSION(kobsno), INTENT(INOUT) :: &
-         & kobsqc           ! Quality control flag
-      INTEGER, DIMENSION(kobsno), INTENT(OUT) :: &
-         & kobsstp          ! Number of time steps up to the 
-                            ! observation time
-
-      !! * Local declarations
+      INTEGER, DIMENSION(kobsno), INTENT(inout) ::   kobsqc    ! Quality control flag
+      INTEGER, DIMENSION(kobsno), INTENT(  out) ::   kobsstp   ! Number of time steps up to the observation time
+      !
       INTEGER :: jyea
       INTEGER :: jmon
@@ -661 +652 @@
 
       ! Intialize the number of time steps per day
-      idaystp = NINT( rday / rdt )
+      idaystp = NINT( rday / rn_Dt )
 
       !---------------------------------------------------------------------
@@ -731 +722 @@
 
          ! Add in the number of time steps to the observation minute
-         zminstp = rmmss / rdt
+         zminstp = rmmss / rn_Dt
          zhoustp = rhhmm * zminstp