Changeset 2034 for branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcnxt.F90

Timestamp:

2010-07-29T17:05:35+02:00 (14 years ago)

Author:

cetlod

Message:

cosmetic changes

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcnxt.F90 (modified) (1 diff)

branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -120 +120 @@
 
       ! Leap-Frog + Asselin filter time stepping
-      IF( lk_vvl ) THEN   ;   CALL tra_nxt_vvl( kt , nittrc000,      &
-                              &                 trb, trn, tra, jptra )      ! variable volume level (vvl)
-      ELSE                ;   CALL tra_nxt_fix( kt , nittrc000,      &
-                              &                 trb, trn, tra, jptra )      ! fixed    volume level
+      IF( lk_vvl ) THEN   ;   CALL tra_nxt_vvl( kt, nittrc000, trb, trn, tra, jptra )      ! variable volume level (vvl) 
+      ELSE                ;   CALL tra_nxt_fix( kt, nittrc000, trb, trn, tra, jptra )      ! fixed    volume level 
       ENDIF