Changeset 5913 for trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2015-11-24T14:57:12+01:00 (8 years ago)

Author:

jchanut

Message:

Correct time arguments for tidal forcing, ticket #1633

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -416 +416 @@
       ! Absolute time from model initialization:   
       IF( PRESENT(kit) ) THEN  
-         z_arg = ( kt + (kit+0.5_wp*(time_add-1)) / REAL(nn_baro,wp) ) * rdt
+         z_arg = ( kt + (kit+time_add-1) / REAL(nn_baro,wp) ) * rdt
       ELSE                              
          z_arg = ( kt + time_add ) * rdt