Changeset 3153 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jan 16, 2018, 10:38:10 AM (6 years ago)

Author:

jyg

Message:

bug fix on commit 3150, print added

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -543 +543 @@
     INTEGER k_upper_cv
     !------------------------------------------------------------------
+    ! Compteur de l'occurence de cvpas=1
+    INTEGER Ncvpaseq1
+    SAVE Ncvpaseq1
+    !$OMP THREADPRIVATE(Ncvpaseq1)
     !
     !==========================================================================
@@ -2688 +2692 @@
              ENDDO
           ENDDO
-          call bcast(cvpas)
+!!!   Ligne a ne surtout pas remettre sans avoir murement reflechi (jyg)
+!!!          call bcast(cvpas)
+!!!   ------------------------------------------------------------
           !>jyg
           !
@@ -2803 +2809 @@
 !
     itapcv = itapcv+1
+    !
+    ! Compter les steps ou cvpas=1
+    IF (cvpas == 1) THEN
+      Ncvpaseq1 = Ncvpaseq1+1
+    ENDIF
+    IF (mod(itap,1000) == 0) THEN
+      print *,' physiq, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
+    ENDIF
 
 !!!jyg  Appel diagnostique a add_phys_tend pour tester la conservation de 
@@ -4833 +4847 @@
        ENDIF
        !$OMP END MASTER
+       print *,' physiq fin, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
     ENDIF