New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2423 – NEMO

Changeset 2423


Ignore:
Timestamp:
2010-11-24T16:37:34+01:00 (13 years ago)
Author:
cetlod
Message:

v3.2:use of standard print control in TOP

Location:
trunk/NEMO/TOP_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/C14b/trcctl_c14b.F90

    r1252 r2423  
    3333      !! ** Purpose :   control the cpp options, namelist and files  
    3434      !!---------------------------------------------------------------------- 
    35  
    3635      IF(lwp) THEN 
    3736          WRITE(numout,*) ' C14 bomb Model ' 
    … …  
    4140      ! Check number of tracers 
    4241      ! -----------------------    
    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' ) 
    5243 
    5344      ! Check tracer names 
    5445      ! ------------------ 
    55       IF ( ctrcnm(jpc14) /= 'C14B' ) THEN  
     46      IF ( ctrcnm(jpc14) /= 'C14B' ) THEN 
    5647           ctrcnm(jpc14)  = 'C14B' 
    5748           ctrcnl(jpc14)  = 'Bomb C14 concentration' 
    … …  
    5950 
    6051      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' ) 
    6453         WRITE(numout,*) ' tracer nb: ',jpc14,' name = ',ctrcnm(jpc14), ctrcnl(jpc14) 
    6554         WRITE(numout,*) ' ' 
    66       ENDIF  
    67  
     55      ENDIF 
    6856 
    6957      ! Check tracer units 
    … …  
    7260          ctrcun(jpc14) = 'ration' 
    7361          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' ) 
    7763             WRITE(numout,*) ' tracer  ',ctrcnm(jpc14), 'UNIT= ',ctrcun(jpc14) 
    7864             WRITE(numout,*) ' ' 
    79           ENDIF  
    80        ENDIF  
     65          ENDIF 
     66       ENDIF 
    8167      ! 
    8268   END SUBROUTINE trc_ctl_c14b 

  • trunk/NEMO/TOP_SRC/CFC/trcctl_cfc.F90

    r2047 r2423  
    4242      ! Check number of tracers 
    4343      ! -----------------------    
    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.' ) 
    5245 
    5346      ! Check tracer names 
    … …  
    6255 
    6356      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 ' ) 
    6758         DO jl = 1, jp_cfc 
    6859            jn = jp_cfc0 + jl - 1 
    … …  
    8071            ctrcun(jn) = 'mole/m3' 
    8172            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 ' ) 
    8474               WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 
    8575               WRITE(numout,*) ' ' 

  • trunk/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

    r2047 r2423  
    3434   INTEGER , PUBLIC    ::   npyear         ! Number of years read in CFC1112 file 
    3535    
    36    REAL(wp), PUBLIC, DIMENSION(jpyear,jphem, jp_cfc) ::   p_cfc    ! partial hemispheric pressure for CFC           
    37    REAL(wp), PUBLIC, DIMENSION(jpi,jpj)              ::   xphem    ! spatial interpolation factor for patm 
     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 
    3838   REAL(wp), PUBLIC, DIMENSION(jpi,jpj     ,jp_cfc) ::   qtr_cfc  ! flux at surface 
    3939   REAL(wp), PUBLIC, DIMENSION(jpi,jpj     ,jp_cfc) ::   qint_cfc ! cumulative flux  
    4040 
    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 Celcius 
     41   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 
    4444       
    4545   !                          ! coefficients for conversion 

  • trunk/NEMO/TOP_SRC/LOBSTER/trcctl_lobster.F90

    r1255 r2423  
    4040      ! Check number of tracers 
    4141      ! ----------------------- 
    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' ) 
    5243 
    5344      ! Check tracer names 
    … …  
    5546      IF(   ctrcnm(jpdet) /= 'DET' .OR. ctrcnm(jpzoo) /= 'ZOO' .OR.   & 
    5647         &  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.   & 
    5849         &  ctrcnl(jpdet) /= 'Detritus'                        .OR.   & 
    5950         &  ctrcnl(jpzoo) /= 'Zooplankton concentration'       .OR.   & 
    … …  
    6152         &  ctrcnl(jpno3) /= 'Nitrate concentration'           .OR.   & 
    6253         &  ctrcnl(jpnh4) /= 'Ammonium concentration'          .OR.   & 
    63          &  ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN  
     54         &  ctrcnl(jpdom) /= 'Dissolved organic matter' ) THEN 
    6455         ctrcnm(jpdet)='DET' 
    6556         ctrcnl(jpdet)='Detritus' 
    … …  
    7364         ctrcnl(jpnh4)='Ammonium concentration' 
    7465         ctrcnm(jpdom)='DOM' 
    75          ctrcnl(jpdom)='Dissolved organic matter'           
     66         ctrcnl(jpdom)='Dissolved organic matter' 
    7667         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 ' ) 
    8069            DO jl = 1, jp_lobster 
    8170               jn = jp_lob0 + jl - 1 
    … …  
    8372            END DO 
    8473            WRITE(numout,*) ' ' 
    85          ENDIF  
    86       ENDIF  
     74         ENDIF 
     75      ENDIF 
    8776 
    8877      ! Check tracer units 
    … …  
    9281            ctrcun(jn) = 'mmole-N/m3' 
    9382            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 ' ) 
    9784               WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 
    98             ENDIF  
    99          ENDIF  
    100       END DO               
     85            ENDIF 
     86         ENDIF 
     87      END DO 
     88 
    10189   END SUBROUTINE trc_ctl_lobster 
    10290 

  • trunk/NEMO/TOP_SRC/PISCES/trcctl_pisces.F90

    r1264 r2423  
    4141   ! ----------------------- 
    4242#if  defined key_kriest 
    43       IF( jp_pisces /= 23) THEN  
     43      IF( jp_pisces /= 23) CALL ctl_stop( ' PISCES must have 23 passive tracers. Change jp_pisces in par_pisces.F90' ) 
    4444#else 
    45       IF( jp_pisces /= 24) THEN 
     45      IF( jp_pisces /= 24) CALL ctl_stop( ' PISCES must have 24 passive tracers. Change jp_pisces in par_pisces.F90' ) 
    4646#endif 
    47           IF (lwp) THEN  
    48               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 IF  
    54           STOP 'TRC_CTL' 
    55       END IF  
    5647 
    5748   END SUBROUTINE trc_ctl_pisces 
Note: See TracChangeset for help on using the changeset viewer.