impr.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\impr.f
00002 !
00056                      SUBROUTINE IMPR
00057 !                    ***************
00058 !
00059      &(LISPRD,LT,AT,ISITS,ICOD)
00060 !
00061 !***********************************************************************
00062 ! TOMAWAC   V6P1                                   20/06/2011
00063 !***********************************************************************
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !
00070 !
00071 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00072 !| AT             |-->| COMPUTATION TIME
00073 !| ICOD           |-->| CODE FOR OUTPUTS
00074 !| ISITS          |-->| NUMBER OF ITERATIONS FOR THE SOURCE TERMS
00075 !| LISPRD         |-->| PERIOD FOR LISTING PRINTOUTS
00076 !| LT             |-->| NUMBER OF THE TIME STEP CURRENTLY SOLVED
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !
00079       IMPLICIT NONE
00080       INTEGER LNG,LU
00081       COMMON/INFO/LNG,LU
00082 !
00083       INTEGER LT,ICOD,LISPRD,LTT,ISITS
00084 !
00085       DOUBLE PRECISION AT
00086 !
00087       LOGICAL IMP
00088       CHARACTER*45 TEXIMP(9)
00089 !
00090       DATA TEXIMP / 'CALCUL DU CHAMP CONVECTEUR ET REMONTEE DES  ' ,
00091      &              '    CARACTERISTIQUES                        ' ,
00092      &              'SAUVEGARDE DE L''ETAT FINAL A T=            ' ,
00093      &              'INTERPOLATION AUX PIEDS DES CARACTERISTIQUES' ,
00094      &              'TEMPS :                                     ' ,
00095      &              ' SECONDES                                   ' ,
00096      &              'IEME  ITERATION                             ' ,
00097      &              ' SOUS-ITERATION(S)                          ' ,
00098      &              'PRISE EN COMPTE DES TERMES SOURCES EN       ' /
00099 !
00100 !-----------------------------------------------------------------------
00101 !
00102       IMP=.FALSE.
00103       LTT=(LT/LISPRD)*LISPRD
00104       IF(LT.EQ.LTT) IMP=.TRUE.
00105 !
00106       IF (.NOT.IMP) RETURN
00107 !
00108       IF (ICOD.EQ.1) THEN
00109         WRITE(LU,101) TEXIMP(1)
00110       ENDIF
00111 !
00112       IF (ICOD.EQ.2) THEN
00113         WRITE(LU,102) TEXIMP(2)
00114       ENDIF
00115 !
00116       IF (ICOD.EQ.3) THEN
00117         WRITE(LU,103) TEXIMP(5),AT,TEXIMP(6),LT,TEXIMP(7)
00118       ENDIF
00119 !
00120       IF (ICOD.EQ.4) THEN
00121         WRITE(LU,104) TEXIMP(9),ISITS,TEXIMP(8)
00122       ENDIF
00123 !
00124       IF (ICOD.EQ.5) THEN
00125         WRITE(LU,105) TEXIMP(4)
00126       ENDIF
00127 !
00128       IF (ICOD.EQ.6) THEN
00129         WRITE(LU,106) TEXIMP(3),AT,TEXIMP(6)
00130       ENDIF
00131 !
00132 !-----------------------------------------------------------------------
00133 !
00134 101   FORMAT(80('-'),/,7X,A44)
00135 102   FORMAT(7X,A44)
00136 103   FORMAT(/,80('='),/,7X,A8,F12.4,A10,23X,I5,A17,/,80('-'))
00137 104   FORMAT(7X,A37,I3,A18)
00138 105   FORMAT(7X,A44,/,80('-'))
00139 106   FORMAT(80('-'),/,7X,A32,F12.4,A10,/,/,80('='))
00140 !
00141 !-----------------------------------------------------------------------
00142 !
00143       RETURN
00144       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0