Changeset 7881 for trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2017-04-07T10:33:13+02:00 (7 years ago)

Author:

cetlod

Message:

trunk: minor corrections to be able to compile and run ORCA2_LIM3 configuration referenced to ORCA2_LIM3_PISCES

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -44 +44 @@
    PUBLIC   trc_nxt          ! routine called by step.F90
 
-   REAL(wp) ::   r2dttrc, rfact1, rfact2
+   REAL(wp) ::   rfact1, rfact2
 
    !!----------------------------------------------------------------------
@@ -113 +113 @@
          END DO
       ELSE     
-         IF( .NOT. lk_offline ) THEN ! Leap-Frog + Asselin filter time stepping
+         IF( .NOT. l_offline ) THEN ! Leap-Frog + Asselin filter time stepping
             IF( ln_linssh ) THEN   ;   CALL tra_nxt_fix( kt, nittrc000,         'TRC', trb, trn, tra, jptra )  !     linear ssh
             ELSE                   ;   CALL tra_nxt_vvl( kt, nittrc000, rdttrc, 'TRC', trb, trn, tra,      &