Changeset 3153 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 16, 2018, 10:38:10 AM (7 years ago)
Author:
jyg
Message:

bug fix on commit 3150, print added

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3151 r3153  
    543543    INTEGER k_upper_cv
    544544    !------------------------------------------------------------------
     545    ! Compteur de l'occurence de cvpas=1
     546    INTEGER Ncvpaseq1
     547    SAVE Ncvpaseq1
     548    !$OMP THREADPRIVATE(Ncvpaseq1)
    545549    !
    546550    !==========================================================================
    … …  
    26882692             ENDDO
    26892693          ENDDO
    2690           call bcast(cvpas)
     2694!!!   Ligne a ne surtout pas remettre sans avoir murement reflechi (jyg)
     2695!!!          call bcast(cvpas)
     2696!!!   ------------------------------------------------------------
    26912697          !>jyg
    26922698          !
    … …  
    28032809!
    28042810    itapcv = itapcv+1
     2811    !
     2812    ! Compter les steps ou cvpas=1
     2813    IF (cvpas == 1) THEN
     2814      Ncvpaseq1 = Ncvpaseq1+1
     2815    ENDIF
     2816    IF (mod(itap,1000) == 0) THEN
     2817      print *,' physiq, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
     2818    ENDIF
    28052819
    28062820!!!jyg  Appel diagnostique a add_phys_tend pour tester la conservation de
    … …  
    48334847       ENDIF
    48344848       !$OMP END MASTER
     4849       print *,' physiq fin, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
    48354850    ENDIF
    48364851
Note: See TracChangeset for help on using the changeset viewer.