Changeset 2910 for branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

Timestamp:

2011-10-13T11:41:49+02:00 (13 years ago)

Author:

kpedwards

Message:

Updates from Christian - use kit000 in local TRA code; plus a few style corrections in TRC code.

File:

• branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90 (modified) (2 diffs)

branches/2011/dev_r2802_TOP_substepping/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

@@ -68 +68 @@
 
       SELECT CASE ( nldf )                       ! compute lateral mixing trend and add it to the general trend
-      CASE ( 0 )   ;   CALL tra_ldf_lap     ( kt,nit000, 'TRA', gtsu, gtsv, tsb, tsa, jpts        )  ! iso-level laplacian
+      CASE ( 0 )   ;   CALL tra_ldf_lap     ( kt, nit000, 'TRA', gtsu, gtsv, tsb, tsa, jpts        )  ! iso-level laplacian
       CASE ( 1 )                                                                              ! rotated laplacian
          IF( ln_traldf_grif ) THEN                                                          
@@ -297 +297 @@
       ! Compute the ldf trends
       ! ----------------------
-      CALL tra_ldf( nit000+1 )      ! horizontal components (+1: no more init)
-      CALL tra_zdf( nit000   )      ! vertical component (if necessary nit000 to performed the init)
+      CALL tra_ldf( nit000 + 1 )      ! horizontal components (+1: no more init)
+      CALL tra_zdf( nit000     )      ! vertical component (if necessary nit000 to performed the init)
 
       ! finalise the computation and recover all arrays