Changeset 4830 for branches/2014/dev_CNRS1_10_TEOS10_Ediag

Timestamp:

2014-11-06T11:56:42+01:00 (9 years ago)

Author:

gm

Message:

#1092 and #1326 : new npc algorithm : small bug fix on unintialized logical

File:

• branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/tranpc.F90 (modified) (5 diffs)

branches/2014/dev_CNRS1_10_TEOS10_Ediag/NEMOGCM/NEMO/OPA_SRC/TRA/tranpc.F90

@@ -22 +22 @@
    USE trdtra          ! ocean active tracer trends
    USE eosbn2          ! equation of state (eos routine)
+   !
    USE lbclnk          ! lateral boundary conditions (or mpp link)
    USE in_out_manager  ! I/O manager
@@ -37 +38 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.7 , NEMO Consortium (2014)
+   !! NEMO/OPA 3.6 , NEMO Consortium (2014)
    !! $Id$
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -77 +78 @@
       LOGICAL, PARAMETER :: l_LB_debug = .FALSE.
       INTEGER :: ilc1, jlc1, klc1, nncpu
-      LOGICAL :: lp_monitor_point
+      LOGICAL :: lp_monitor_point = .FALSE.
       !!LB debug.
       !!----------------------------------------------------------------------
@@ -98 +99 @@
          !LB debug:
          IF( lwp .AND. l_LB_debug ) THEN
-            WRITE(numout,*) '' ; WRITE(numout,*) ''
+            WRITE(numout,*)
             WRITE(numout,*) 'LOLO: entering tra_npc, kt, narea =', kt, narea
          ENDIF
@@ -190 +191 @@
 
                           
-                           IF(lp_monitor_point) WRITE(numout,*) ' => ikup is =', ikup, ' layer nb.', ilayer
+                           IF( lp_monitor_point )   WRITE(numout,*) ' => ikup is =', ikup, ' layer nb.', ilayer
                           
                            zsum_temp = 0._wp