Changeset 2423
- Timestamp:
- 2010-11-24T16:37:34+01:00 (14 years ago)
- Location:
- trunk/NEMO/TOP_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/C14b/trcctl_c14b.F90
r1252 r2423 33 33 !! ** Purpose : control the cpp options, namelist and files 34 34 !!---------------------------------------------------------------------- 35 36 35 IF(lwp) THEN 37 36 WRITE(numout,*) ' C14 bomb Model ' … … 41 40 ! Check number of tracers 42 41 ! ----------------------- 43 IF( jp_c14b > 1) THEN 44 IF(lwp) THEN 45 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 46 WRITE (numout,*) ' ======= ============= ' 47 WRITE (numout,*) & 48 & ' STOP, change jp_c14b to 1 in par_C14b module ' 49 END IF 50 STOP 'TRC_CTL' 51 END IF 42 IF( jp_c14b > 1) CALL ctl_stop( ' Change jp_c14b to be equal 1 in par_c14b.F90' ) 52 43 53 44 ! Check tracer names 54 45 ! ------------------ 55 IF ( ctrcnm(jpc14) /= 'C14B' ) THEN 46 IF ( ctrcnm(jpc14) /= 'C14B' ) THEN 56 47 ctrcnm(jpc14) = 'C14B' 57 48 ctrcnl(jpc14) = 'Bomb C14 concentration' … … 59 50 60 51 IF(lwp) THEN 61 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 62 WRITE (numout,*) ' ======= ============= ' 63 WRITE (numout,*) ' we force tracer names' 52 CALL ctl_warn( ' we force tracer names' ) 64 53 WRITE(numout,*) ' tracer nb: ',jpc14,' name = ',ctrcnm(jpc14), ctrcnl(jpc14) 65 54 WRITE(numout,*) ' ' 66 ENDIF 67 55 ENDIF 68 56 69 57 ! Check tracer units … … 72 60 ctrcun(jpc14) = 'ration' 73 61 IF(lwp) THEN 74 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 75 WRITE (numout,*) ' ======= ============= ' 76 WRITE (numout,*) ' we force tracer unit' 62 CALL ctl_warn( ' we force tracer unit' ) 77 63 WRITE(numout,*) ' tracer ',ctrcnm(jpc14), 'UNIT= ',ctrcun(jpc14) 78 64 WRITE(numout,*) ' ' 79 ENDIF 80 ENDIF 65 ENDIF 66 ENDIF 81 67 ! 82 68 END SUBROUTINE trc_ctl_c14b -
trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.F90
r2047 r2423 42 42 ! Check number of tracers 43 43 ! ----------------------- 44 IF( jp_cfc > 2) THEN 45 IF(lwp) THEN 46 WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<===' 47 WRITE (numout,*) & 48 & ' STOP, change jp_cfc to 1 or 2 in par_CFC module ' 49 END IF 50 STOP 'TRC_CTL' 51 END IF 44 IF( jp_cfc > 2 ) CALL ctl_stop( ' change jp_cfc to 1 or 2 in par_cfc.F90.' ) 52 45 53 46 ! Check tracer names … … 62 55 63 56 IF(lwp) THEN 64 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 65 WRITE (numout,*) ' ======= ============= ' 66 WRITE (numout,*) ' we force tracer names' 57 CALL ctl_warn( ' We force tracer names ' ) 67 58 DO jl = 1, jp_cfc 68 59 jn = jp_cfc0 + jl - 1 … … 80 71 ctrcun(jn) = 'mole/m3' 81 72 IF(lwp) THEN 82 WRITE (numout,*) ' ===>>>> : w a r n i n g <<<<===' 83 WRITE (numout,*) ' we force tracer unit' 73 CALL ctl_warn( ' We force tracer units ' ) 84 74 WRITE(numout,*) ' tracer ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 85 75 WRITE(numout,*) ' ' -
trunk/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r2047 r2423 34 34 INTEGER , PUBLIC :: npyear ! Number of years read in CFC1112 file 35 35 36 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jp_cfc) :: p_cfc ! partial hemispheric pressure for CFC37 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) 36 REAL(wp), PUBLIC, DIMENSION(jpyear,jphem,2 ) :: p_cfc ! partial hemispheric pressure for CFC 37 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: xphem ! spatial interpolation factor for patm 38 38 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jp_cfc) :: qtr_cfc ! flux at surface 39 39 REAL(wp), PUBLIC, DIMENSION(jpi,jpj ,jp_cfc) :: qint_cfc ! cumulative flux 40 40 41 REAL(wp), DIMENSION(4, jp_cfc) :: soa ! coefficient for solubility of CFC [mol/l/atm]42 REAL(wp), DIMENSION(3, jp_cfc) :: sob ! " "43 REAL(wp), DIMENSION(4, jp_cfc) :: sca ! coefficients for schmidt number in degre Celcius41 REAL(wp), DIMENSION(4,2) :: soa ! coefficient for solubility of CFC [mol/l/atm] 42 REAL(wp), DIMENSION(3,2) :: sob ! " " 43 REAL(wp), DIMENSION(4,2) :: sca ! coefficients for schmidt number in degre Celcius 44 44 45 45 ! ! coefficients for conversion -
trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.F90
r1255 r2423 40 40 ! Check number of tracers 41 41 ! ----------------------- 42 IF (jp_lobster /= 6) THEN 43 IF (lwp) THEN 44 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 45 WRITE (numout,*) ' ======= ============= ' 46 WRITE (numout,*) & 47 & ' STOP, change jp_lobster to 6 in ' & 48 & ,'par_lobster.F90 ' 49 END IF 50 STOP 'TRC_CTL' 51 END IF 42 IF( jp_lobster /= 6 ) CALL ctl_stop( ' LOBSTER has 6 passive tracers. Change jp_lobster in par_lobster.F90' ) 52 43 53 44 ! Check tracer names … … 55 46 IF( ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO' .OR. & 56 47 & ctrcnm(jpphy) /= 'PHY' .OR. ctrcnm(jpno3) /= 'NO3' .OR. & 57 & ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM' .OR. & 48 & ctrcnm(jpnh4) /= 'NH4' .OR. ctrcnm(jpdom) /= 'DOM' .OR. & 58 49 & ctrcnl(jpdet) /= 'Detritus' .OR. & 59 50 & ctrcnl(jpzoo) /= 'Zooplankton concentration' .OR. & … … 61 52 & ctrcnl(jpno3) /= 'Nitrate concentration' .OR. & 62 53 & ctrcnl(jpnh4) /= 'Ammonium concentration' .OR. & 63 & ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN 54 & ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN 64 55 ctrcnm(jpdet)='DET' 65 56 ctrcnl(jpdet)='Detritus' … … 73 64 ctrcnl(jpnh4)='Ammonium concentration' 74 65 ctrcnm(jpdom)='DOM' 75 ctrcnl(jpdom)='Dissolved organic matter' 66 ctrcnl(jpdom)='Dissolved organic matter' 76 67 IF(lwp) THEN 77 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 78 WRITE (numout,*) ' ======= ============= ' 79 WRITE (numout,*) ' we force tracer names' 68 CALL ctl_warn( ' We force tracer names ' ) 80 69 DO jl = 1, jp_lobster 81 70 jn = jp_lob0 + jl - 1 … … 83 72 END DO 84 73 WRITE(numout,*) ' ' 85 ENDIF 86 ENDIF 74 ENDIF 75 ENDIF 87 76 88 77 ! Check tracer units … … 92 81 ctrcun(jn) = 'mmole-N/m3' 93 82 IF(lwp) THEN 94 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 95 WRITE (numout,*) ' ======= ============= ' 96 WRITE (numout,*) ' we force tracer unit' 83 CALL ctl_warn( ' We force tracer units ' ) 97 84 WRITE(numout,*) ' tracer ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 98 ENDIF 99 ENDIF 100 END DO 85 ENDIF 86 ENDIF 87 END DO 88 101 89 END SUBROUTINE trc_ctl_lobster 102 90 -
trunk/NEMO/TOP_SRC/PISCES/trcctl_pisces.F90
r1264 r2423 41 41 ! ----------------------- 42 42 #if defined key_kriest 43 IF( jp_pisces /= 23) THEN43 IF( jp_pisces /= 23) CALL ctl_stop( ' PISCES must have 23 passive tracers. Change jp_pisces in par_pisces.F90' ) 44 44 #else 45 IF( jp_pisces /= 24) THEN45 IF( jp_pisces /= 24) CALL ctl_stop( ' PISCES must have 24 passive tracers. Change jp_pisces in par_pisces.F90' ) 46 46 #endif 47 IF (lwp) THEN48 WRITE (numout,*) ' ===>>>> : w a r n i n g '49 WRITE (numout,*) ' ======= ============= '50 WRITE (numout,*) &51 & ' STOP, change jp_pisces', &52 & ' in par_pisces.F90'53 END IF54 STOP 'TRC_CTL'55 END IF56 47 57 48 END SUBROUTINE trc_ctl_pisces
Note: See TracChangeset
for help on using the changeset viewer.