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 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/trcctl.cfc.h90 – NEMO

Ignore:
Timestamp:
2007-12-13T14:52:50+01:00 (16 years ago)
Author:
gm
Message:

dev_001_GM - Style only addition in TOP F90 h90 routines

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_001_GM/NEMO/TOP_SRC/SMS/trcctl.cfc.h90

    r719 r763  
    1 ! $Id$ 
    2 !!! 
    3 !!! Modifications: 
    4 !!! -------------- 
    5 !!!    05-10 (C. Ethe):  
    6 !!!           assign a parameter to name individual tracers 
    7 !!! 
     1   !!====================================================================== 
     2   !!                         ***  trcctl.cfc.h90  *** 
     3   !! TOP :   Control of CFC chemical model 
     4   !!====================================================================== 
     5   !!---------------------------------------------------------------------- 
     6   !! History :   1.0  !  2005-10 (C. Ethe) 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   !!---------------------------------------------------------------------- 
     13 
    814 
    915      IF(lwp) THEN 
    … …  
    1218      ENDIF 
    1319 
    14 ! Check number of tracers 
    15 ! ----------------------- 
    16       
    17       IF (jptra .GT. 2) THEN  
    18           IF (lwp) THEN  
     20      ! Check number of tracers 
     21      ! -----------------------    
     22      IF( jptra > 2) THEN  
     23          IF(lwp) THEN  
    1924              WRITE (numout,*) ' ===>>>> : w a r n i n g ' 
    2025              WRITE (numout,*) ' =======   ============= ' 
    … …  
    2530      END IF  
    2631 
    27 ! Check tracer names 
    28 ! ------------------ 
    29       IF ( jptra == 1 ) THEN 
     32      ! Check tracer names 
     33      ! ------------------ 
     34      IF( jptra == 1 ) THEN 
    3035         IF ( jp11 == 1 ) THEN 
    3136            IF ( ctrcnm(jp11) /= 'CFC11') THEN 
    32                ctrcnm(jp11)='CFC11' 
    33                ctrcnl(jp11)='Chlorofuorocarbone 11 concentration' 
     37               ctrcnm(jp11) = 'CFC11' 
     38               ctrcnl(jp11) = 'Chlorofuorocarbone 11 concentration' 
    3439            ENDIF 
    3540         ENDIF 
    36          IF ( jp12 == 1 ) THEN 
     41         IF( jp12 == 1 ) THEN 
    3742            IF ( ctrcnm(jp12) /= 'CFC12') THEN 
    38                ctrcnm(jp12)='CFC12' 
    39                ctrcnl(jp12)='Chlorofuorocarbone 12 concentration' 
     43               ctrcnm(jp12) = 'CFC12' 
     44               ctrcnl(jp12) = 'Chlorofuorocarbone 12 concentration' 
    4045            ENDIF 
    4146         ENDIF 
    4247      ENDIF 
    4348 
    44       IF ( jptra == 2 ) THEN 
     49      IF( jptra == 2 ) THEN 
    4550         IF ( ctrcnm(jp11) /= 'CFC11' .OR. ctrcnm(jp12) /= 'CFC12' ) THEN  
    46             ctrcnm(jp11)='CFC11' 
    47             ctrcnl(jp11)='Chlorofuorocarbone 11 concentration' 
    48             ctrcnm(jp12)='CFC12' 
    49             ctrcnl(jp12)='Chlorofuorocarbone 12 concentration'  
     51            ctrcnm(jp11) = 'CFC11' 
     52            ctrcnl(jp11) = 'Chlorofuorocarbone 11 concentration' 
     53            ctrcnm(jp12) = 'CFC12' 
     54            ctrcnl(jp12) = 'Chlorofuorocarbone 12 concentration'  
    5055         ENDIF 
    5156      ENDIF 
    5257 
    53       IF (lwp) THEN 
     58      IF(lwp) THEN 
    5459         WRITE (numout,*) ' ===>>>> : w a r n i n g ' 
    5560         WRITE (numout,*) ' =======   ============= ' 
    5661         WRITE (numout,*) ' we force tracer names' 
    57          DO jn=1,jptra 
     62         DO jn = 1, jptra 
    5863            WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn) 
    5964         END DO 
    … …  
    6267 
    6368 
    64 ! Check tracer units 
    65  
    66       DO jn=1,jptra 
    67         IF (ctrcun(jn) /= 'mole/m3') THEN 
    68             ctrcun(jn)='mole/m3' 
    69             IF (lwp) THEN 
    70                 WRITE (numout,*) ' ===>>>> : w a r n i n g ' 
    71                 WRITE (numout,*) ' =======   ============= ' 
    72                 WRITE (numout,*) ' we force tracer unit' 
    73                 WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 
    74                 WRITE(numout,*) ' ' 
     69      ! Check tracer units 
     70      ! ------------------ 
     71      DO jn = 1, jptra 
     72        IF( ctrcun(jn) /= 'mole/m3' ) THEN 
     73            ctrcun(jn) = 'mole/m3' 
     74            IF(lwp) THEN 
     75               WRITE (numout,*) ' ===>>>> : w a r n i n g ' 
     76               WRITE (numout,*) ' =======   ============= ' 
     77               WRITE (numout,*) ' we force tracer unit' 
     78               WRITE(numout,*) ' tracer  ',ctrcnm(jn), 'UNIT= ',ctrcun(jn) 
     79               WRITE(numout,*) ' ' 
    7580            ENDIF  
    76         ENDIF  
     81         ENDIF  
    7782      END DO               
Note: See TracChangeset for help on using the changeset viewer.