nametrac_waq.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\nametrac_waq.f
00002 !
00037                         SUBROUTINE NAMETRAC_WAQ
00038 !                       **************************
00039      &  (NAMETRAC,WAQ,SECCURRENT,WAQPROCESS,NTRAC,IND_SEC)
00040 !
00041 !
00042 !***********************************************************************
00043 ! TELEMAC2D   V7P0
00044 !***********************************************************************
00045 !
00046 !brieF gives names to tracers added by the water quality
00047 !
00048 !
00049 !
00050 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00051 !| NAMETRAC       |<--| ARRAY OF NAMES OF TRACERS
00052 !| WAQPROCESS     |-->| WAQ PROCESS
00053 !| WAQ            |-->| THERE IS WAQ OR NOT
00054 !| SECCURRENT     |-->| THERE IS SECONDARY CURRENTS OR NOT
00055 !| NTRAC          |-->| OLD NUMBER OF TRACER (BEFORE WAQ RTACERS)
00056 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00057 !
00058 !
00059       IMPLICIT NONE
00060       INTEGER LNG,LU
00061       COMMON/INFO/LNG,LU
00062 !
00063 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00064 !
00065 !
00066       CHARACTER(LEN=32), INTENT(INOUT)::  NAMETRAC(*)
00067       INTEGER, INTENT(IN)             ::  WAQPROCESS,NTRAC,IND_SEC
00068       LOGICAL, INTENT(IN)             ::  WAQ,SECCURRENT
00069 !
00070 !
00071 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00072 !
00073 !
00074       IF(SECCURRENT)THEN
00075         NAMETRAC(IND_SEC) ='OMEGA           NA              '
00076       ENDIF
00077       IF(WAQ)THEN
00078         SELECT CASE(WAQPROCESS)
00079 !         O2 MODULE
00080           CASE(1)
00081             IF(LNG.EQ.1)THEN
00082               NAMETRAC(NTRAC+1) = 'O2 DISSOUS      '
00083      &                         // '   mgO2/l       '
00084               NAMETRAC(NTRAC+2) = 'CHARGE ORGANIQUE'
00085      &                         // '   mgO2/l       '
00086               NAMETRAC(NTRAC+3) = 'CHARGE NH4      '
00087      &                         // '   mgNH4/l      '
00088             ELSE
00089               NAMETRAC(NTRAC+1) = 'DISSOLVED O2    '
00090      &                         // '   mgO2/l       '
00091               NAMETRAC(NTRAC+2) = 'ORGANIC LOAD    '
00092      &                         // '   mgO2/l       '
00093               NAMETRAC(NTRAC+3) = 'NH4 LOAD        '
00094      &                         // '   mgNH4/l      '
00095             ENDIF
00096 !         BIOMASS MODULE
00097           CASE(2)
00098             IF(LNG.EQ.1)THEN
00099               NAMETRAC(NTRAC+1) = 'BIOMASSE PHYTO  '
00100      &                        //  '   mg/l         '
00101               NAMETRAC(NTRAC+2) = 'PO4 DISSOUS     '
00102      &                         // '   mg/l         '
00103               NAMETRAC(NTRAC+3) = 'POR NON ASSIMILE'
00104      &                        //  '   mg/l         '
00105               NAMETRAC(NTRAC+4) = 'NO3 DISSOUS     '
00106      &                        //  '   mg/l         '
00107               NAMETRAC(NTRAC+5) = 'NO3 NON ASSIMILE'
00108      &                        //  '   mg/l         '
00109             ELSE
00110               NAMETRAC(NTRAC+1) = 'PHYTO BIOMASS   '
00111      &                        //  '   mg/l         '
00112               NAMETRAC(NTRAC+2) = 'DISSOLVED PO4   '
00113      &                        //  '   mg/l         '
00114               NAMETRAC(NTRAC+3) = 'POR NON ASSIM   '
00115      &                        //  '   mg/l         '
00116               NAMETRAC(NTRAC+4) = 'DISSOLVED NO3   '
00117      &                        //  '   mg/l         '
00118               NAMETRAC(NTRAC+5) = 'NO3 NON ASSIM   '
00119      &                        //  '   mg/l         '
00120             ENDIF
00121 !         EUTRO MODULE
00122           CASE(3)
00123             IF(LNG.EQ.1)THEN
00124               NAMETRAC(NTRAC+1) = 'O2 DISSOUS      '
00125      &                        //  '   mgO2/l       '
00126               NAMETRAC(NTRAC+2) = 'BIOMASSE PHYTO  '
00127      &                        //  '   mg/l         '
00128               NAMETRAC(NTRAC+3) = 'PO4 DISSOUS     '
00129      &                        //  '   mg/l         '
00130               NAMETRAC(NTRAC+4) = 'POR NON ASSIMILE'
00131      &                        //  '   mg/l         '
00132               NAMETRAC(NTRAC+5) = 'NO3 DISSOUS     '
00133      &                        //  '   mg/l         '
00134               NAMETRAC(NTRAC+6) = 'CHARGE NH4      '
00135      &                         // '   mgNH4/l      '
00136               NAMETRAC(NTRAC+7) = 'NOR NON ASSIMILE'
00137      &                         // '   mg/l         '
00138               NAMETRAC(NTRAC+8) = 'CHARGE ORGANIQUE'
00139      &                         // '   mgO2/l       '
00140             ELSE
00141               NAMETRAC(NTRAC+1) = 'DISSOLVED O2    '
00142      &                        //  '   mgO2/l       '
00143               NAMETRAC(NTRAC+2) = 'PHYTO BIOMASS   '
00144      &                        //  '   mg/l         '
00145               NAMETRAC(NTRAC+3) = 'DISSOLVED PO4   '
00146      &                        //  '   mg/l         '
00147               NAMETRAC(NTRAC+4) = 'POR NON ASSIMIL '
00148      &                        //  '   mg/l         '
00149               NAMETRAC(NTRAC+5) = 'DISSOLVED NO3   '
00150      &                        //  '   mg/l         '
00151               NAMETRAC(NTRAC+6) = 'CHARGE NH4      '
00152      &                        //  '   mgNH4/l      '
00153               NAMETRAC(NTRAC+7) = 'NOR NON ASSIM   '
00154      &                        //    '   mg/l         '
00155               NAMETRAC(NTRAC+8) = 'ORGANIC CHARGE  '
00156      &                        //  '   mgO2/l       '
00157             ENDIF
00158 !         MICROPOL MODULE
00159           CASE(4)
00160             IF(LNG.EQ.1)THEN
00161               NAMETRAC(NTRAC+1) = 'MAT. EN SUSP.   '
00162      &                        //  '   mg/l         '
00163               NAMETRAC(NTRAC+2) = 'SEDIMENT DU FOND'
00164      &                        //  '   mg/l         '
00165               NAMETRAC(NTRAC+3) = 'MICRO POLLUANT  '
00166      &                        //  '   mg/l         '
00167               NAMETRAC(NTRAC+4) = 'MES ABSORBEE    '
00168      &                        //  '   mg/l         '
00169               NAMETRAC(NTRAC+5) = 'SED. FOND. ABS. '
00170      &                        //  '   mg/l         '
00171             ELSE
00172               NAMETRAC(NTRAC+1) = 'SUSPENDED LOAD  '
00173      &                        //  '   mg/l         '
00174               NAMETRAC(NTRAC+2) = 'BED SEDIMENTS   '
00175      &                        //  '   mg/l         '
00176               NAMETRAC(NTRAC+3) = 'MICRO POLLUTANT '
00177      &                        //  '   mg/l         '
00178               NAMETRAC(NTRAC+4) = 'ABS. SUSP. LOAD.'
00179      &                        //  '   mg/l         '
00180               NAMETRAC(NTRAC+5) = 'ABSORB. BED SED.'
00181      &                        //  '   mg/l         '
00182             ENDIF
00183 !         THERMIC MODULE
00184           CASE(5)
00185             NAMETRAC(NTRAC+1) = '  TEMPERATURE   '
00186      &                      //  '      C        '
00187           CASE DEFAULT
00188             IF(LNG.EQ.1) THEN
00189               WRITE(LU,10)WAQPROCESS
00190             ELSE
00191               WRITE(LU,20)WAQPROCESS
00192             ENDIF
00193             CALL PLANTE(1)
00194             STOP
00195 
00196         END SELECT
00197       ENDIF
00198 !
00199       RETURN
00200 !-----------------------------------------------------------------------
00201 !     MESSAGES
00202 10    FORMAT(1X,'NAMETRAC_WAQ: MODULE WAQ INCONNU : ',I4)
00203 20    FORMAT(1X,'NAMETRAC_WAQ: UNKNOWN WAQ MODULE : ',I4)
00204 !-----------------------------------------------------------------------
00205 !
00206       RETURN
00207       END

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