Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/trcctl.lobster1.h90
- Timestamp:
- 2007-12-13T14:52:50+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/SMS/trcctl.lobster1.h90
r719 r763 1 !!---------------------------------------------------------------------- 2 !! TOP 1.0, LOCEAN-IPSL (2005) 3 !! $Header$ 4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 !!---------------------------------------------------------------------- 6 !!! 7 !!! Modifications: 8 !!! -------------- 9 !!! 00-12 (E. Kestenare): 10 !!! assign a parameter to name individual tracers 11 !!! 1 !!====================================================================== 2 !! *** trcctl.lobster1.h90 *** 3 !! TOP : Control of LOBSTER 1 biological model 4 !!====================================================================== 5 !!---------------------------------------------------------------------- 6 !! History : 1.0 ! 2000-12 (E. Kestenare) assign a parameter to name individual tracers 7 !!---------------------------------------------------------------------- 8 !!---------------------------------------------------------------------- 9 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 10 !! $Id:$ 11 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 12 !!---------------------------------------------------------------------- 12 13 13 #if defined key_trc_lobster1 14 IF(lwp) THEN 15 WRITE(numout,*) ' use LOBSTER1 biological model ' 16 WRITE(numout,*) ' ' 17 ENDIF 14 IF(lwp) WRITE(numout,*) 15 IF(lwp) WRITE(numout,*) ' use LOBSTER1 biological model ' 18 16 19 ! Check number of tracers20 ! -----------------------17 ! Check number of tracers 18 ! ----------------------- 21 19 IF (jptra /= 6) THEN 22 20 IF (lwp) THEN … … 30 28 END IF 31 29 32 ! Check tracer names33 ! ------------------34 IF ( ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO'&35 & .OR. ctrcnm(jpphy) /= 'PHY' .OR. ctrcnm(jpno3) /= 'NO3'&36 & .OR. ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM'&37 & .OR. ctrcnl(jpdet) /= 'Detritus'&38 & .OR. ctrcnl(jpzoo) /= 'Zooplankton concentration'&39 & .OR. ctrcnl(jpphy) /= 'Phytoplankton concentration'&40 & .OR. ctrcnl(jpno3) /= 'Nitrate concentration'&41 & .OR. ctrcnl(jpnh4) /= 'Ammonium concentration'&42 & .OR.ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN43 44 45 46 47 48 49 50 51 52 53 54 55 IF(lwp) THEN56 57 58 59 DO jn=1,jptra60 61 62 63 30 ! Check tracer names 31 ! ------------------ 32 IF( ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO' .OR. & 33 & ctrcnm(jpphy) /= 'PHY' .OR. ctrcnm(jpno3) /= 'NO3' .OR. & 34 & ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM' .OR. & 35 & ctrcnl(jpdet) /= 'Detritus' .OR. & 36 & ctrcnl(jpzoo) /= 'Zooplankton concentration' .OR. & 37 & ctrcnl(jpphy) /= 'Phytoplankton concentration' .OR. & 38 & ctrcnl(jpno3) /= 'Nitrate concentration' .OR. & 39 & ctrcnl(jpnh4) /= 'Ammonium concentration' .OR. & 40 & ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN 41 ctrcnm(jpdet)='DET' 42 ctrcnl(jpdet)='Detritus' 43 ctrcnm(jpzoo)='ZOO' 44 ctrcnl(jpzoo)='Zooplankton concentration' 45 ctrcnm(jpphy)='PHY' 46 ctrcnl(jpphy)='Phytoplankton concentration' 47 ctrcnm(jpno3)='NO3' 48 ctrcnl(jpno3)='Nitrate concentration' 49 ctrcnm(jpnh4)='NH4' 50 ctrcnl(jpnh4)='Ammonium concentration' 51 ctrcnm(jpdom)='DOM' 52 ctrcnl(jpdom)='Dissolved organic matter' 53 IF(lwp) THEN 54 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 55 WRITE (numout,*) ' ======= ============= ' 56 WRITE (numout,*) ' we force tracer names' 57 DO jn = 1, jptra 58 WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn) 59 END DO 60 WRITE(numout,*) ' ' 61 ENDIF 64 62 ENDIF 65 63 66 ! Check tracer units 67 68 DO jn=1,jptra 69 IF (ctrcun(jn) /= 'mmole-N/m3') THEN 64 ! Check tracer units 65 DO jn = 1, jptra 66 IF( ctrcun(jn) /= 'mmole-N/m3') THEN 70 67 ctrcun(jn)='mmole-N/m3' 71 IF (lwp) THEN 72 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 73 WRITE (numout,*) ' ======= ============= ' 74 WRITE (numout,*) ' we force tracer unit' 75 WRITE(numout,*) ' tracer ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 76 WRITE(numout,*) ' ' 68 IF(lwp) THEN 69 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 70 WRITE (numout,*) ' ======= ============= ' 71 WRITE (numout,*) ' we force tracer unit' 72 WRITE(numout,*) ' tracer ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 77 73 ENDIF 78 ENDIF74 ENDIF 79 75 END DO 80 #endif
Note: See TracChangeset
for help on using the changeset viewer.