Changeset 12127 for NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/SBC/fldread.F90

Timestamp:

2019-12-09T18:42:54+01:00 (4 years ago)

Author:

smasson

Message:

dev_r12114_ticket_2263: replace integer kt_offset by real pt_offset, see #2263

File:

• NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/SBC/fldread.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r12114_ticket_2263/src/OCE/SBC/fldread.F90

@@ -132 +132 @@
 CONTAINS
 
-   SUBROUTINE fld_read( kt, kn_fsbc, sd, kit, kt_offset )
+   SUBROUTINE fld_read( kt, kn_fsbc, sd, kit, pt_offset )
       !!---------------------------------------------------------------------
       !!                    ***  ROUTINE fld_read  ***
@@ -148 +148 @@
       TYPE(FLD), INTENT(inout), DIMENSION(:) ::   sd        ! input field related variables
       INTEGER  , INTENT(in   ), OPTIONAL     ::   kit       ! subcycle timestep for timesplitting option
-      INTEGER  , INTENT(in   ), OPTIONAL     ::   kt_offset ! provide fields at time other than "now"
-      !                                                     !   kt_offset = -1 => fields at "before" time level
-      !                                                     !   kt_offset = +1 => fields at "after"  time level
-      !                                                     !   etc.
+      REAL(wp) , INTENT(in   ), OPTIONAL     ::   pt_offset ! provide fields at time other than "now"
       !!
       INTEGER  ::   imf          ! size of the structure sd
@@ -168 +165 @@
       ELSE                                      ;   zt_offset = 0.
       ENDIF
-      IF( PRESENT(kt_offset) )   zt_offset = REAL( kt_offset, wp )
+      IF( PRESENT(pt_offset) )   zt_offset = pt_offset
 
       ! Note that all varibles starting by nsec_* are shifted time by +1/2 time step to be centrered