impr.f

Go to the documentation of this file.

!                   ***************
                    SUBROUTINE impr
!                   ***************
!
     &(lisprd,lt,at,isits,icod)
!
!***********************************************************************
! TOMAWAC   V6P1                                   20/06/2011
!***********************************************************************
!
!brief    WRITES OUT TO THE LISTING.
!
!history  F.MARCOS (LNH)
!+        01/02/95
!+
!+
!
!history  JMH
!+        08/06/2010
!+        V6P0
!+   PRINT REPLACED BY WRITE
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!history  G.MATTAROLO (EDF - LNHE)
!+        20/06/2011
!+        V6P1
!+   Translation of French names of the variables in argument
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| AT             |-->| COMPUTATION TIME
!| ICOD           |-->| CODE FOR OUTPUTS
!| ISITS          |-->| NUMBER OF ITERATIONS FOR THE SOURCE TERMS
!| LISPRD         |-->| PERIOD FOR LISTING PRINTOUTS
!| LT             |-->| NUMBER OF THE TIME STEP CURRENTLY SOLVED
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER,INTENT(IN)           :: LT,ICOD,LISPRD,ISITS
      DOUBLE PRECISION,INTENT(IN)  :: AT
!
      INTEGER LTT
      LOGICAL IMP
      CHARACTER(LEN=45) :: TEXIMP(9)
!
      parameter( teximp = (/
     &    'CALCUL DU CHAMP CONVECTEUR ET REMONTEE DES   ' ,
     &    '    CARACTERISTIQUES                         ' ,
     &    'SAUVEGARDE DE L''ETAT FINAL A T=              ' ,
     &    'INTERPOLATION AUX PIEDS DES CARACTERISTIQUES ' ,
     &    'TEMPS :                                      ' ,
     &    ' SECONDES                                    ' ,
     &    'IEME  ITERATION                              ' ,
     &    ' SOUS-ITERATION(S)                           ' ,
     &    'PRISE EN COMPTE DES TERMES SOURCES EN        '  /) )
!
!-----------------------------------------------------------------------
!
      imp=.false.
      ltt=(lt/lisprd)*lisprd
      IF(lt.EQ.ltt) imp=.true.
!
      IF (.NOT.imp) RETURN
!
      IF (icod.EQ.1) THEN
        WRITE(lu,101) teximp(1)
      ENDIF
!
      IF (icod.EQ.2) THEN
        WRITE(lu,102) teximp(2)
      ENDIF
!
      IF (icod.EQ.3) THEN
        WRITE(lu,103) teximp(5),at,teximp(6),lt,teximp(7)
      ENDIF
!
      IF (icod.EQ.4) THEN
        WRITE(lu,104) teximp(9),isits,teximp(8)
      ENDIF
!
      IF (icod.EQ.5) THEN
        WRITE(lu,105) teximp(4)
      ENDIF
!
      IF (icod.EQ.6) THEN
        WRITE(lu,106) teximp(3),at,teximp(6)
      ENDIF
!
!-----------------------------------------------------------------------
!
101   FORMAT(80('-'),/,7x,a44)
102   FORMAT(7x,a44)
103   FORMAT(/,80('='),/,7x,a8,f12.4,a10,23x,i5,a17,/,80('-'))
104   FORMAT(7x,a37,i3,a18)
105   FORMAT(7x,a44,/,80('-'))
106   FORMAT(80('-'),/,7x,a32,f12.4,a10,/,/,80('='))
!
!-----------------------------------------------------------------------
!
      RETURN
      END