Changeset 3953 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2013-07-03T13:41:32+02:00 (11 years ago)

Author:

gm

Message:

dev_r3858_NOC_ZTC, #863 : activate tide potential in filtered ssh case + style in tide modules

File:

• branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)

branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -396 +396 @@
          !                                                !* Update the forcing (BDY and tides)
          !                                                !  ------------------
-         IF( lk_obc )   CALL obc_dta_bt ( kt, jn   )
-         IF( lk_bdy )   CALL bdy_dta ( kt, jit=jn, time_offset=+1 )
-         IF ( ln_tide_pot .AND. lk_tide) CALL upd_tide( kt, jn )
+         IF( lk_obc                    )   CALL obc_dta_bt( kt, jn   )
+         IF( lk_bdy                    )   CALL bdy_dta   ( kt, jit=jn, time_offset=1 )
+         IF( ln_tide_pot .AND. lk_tide )   CALL upd_tide  ( kt, kit=jn, kbaro=nn_baro )
 
          !                                                !* after ssh_e