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.lobster1.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.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   !!---------------------------------------------------------------------- 
    1213 
    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 ' 
    1816 
    19 ! Check number of tracers 
    20 ! ----------------------- 
     17      ! Check number of tracers 
     18      ! ----------------------- 
    2119      IF (jptra /= 6) THEN  
    2220          IF (lwp) THEN  
     
    3028      END IF  
    3129 
    32 ! Check tracer names 
    33 ! ------------------ 
    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' ) THEN  
    43           ctrcnm(jpdet)='DET' 
    44           ctrcnl(jpdet)='Detritus' 
    45           ctrcnm(jpzoo)='ZOO' 
    46           ctrcnl(jpzoo)='Zooplankton concentration' 
    47           ctrcnm(jpphy)='PHY' 
    48           ctrcnl(jpphy)='Phytoplankton concentration' 
    49           ctrcnm(jpno3)='NO3' 
    50           ctrcnl(jpno3)='Nitrate concentration' 
    51           ctrcnm(jpnh4)='NH4' 
    52           ctrcnl(jpnh4)='Ammonium concentration' 
    53           ctrcnm(jpdom)='DOM' 
    54           ctrcnl(jpdom)='Dissolved organic matter'           
    55           IF (lwp) THEN 
    56               WRITE (numout,*) ' ===>>>> : w a r n i n g ' 
    57               WRITE (numout,*) ' =======   ============= ' 
    58               WRITE (numout,*) ' we force tracer names' 
    59               DO jn=1,jptra 
    60                 WRITE(numout,*) ' tracer nb: ',jn,' name = ',ctrcnm(jn), ctrcnl(jn) 
    61               END DO 
    62               WRITE(numout,*) ' ' 
    63           ENDIF  
     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  
    6462      ENDIF  
    6563 
    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 
    7067            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) 
    7773            ENDIF  
    78         ENDIF  
     74         ENDIF  
    7975      END DO               
    80 #endif 
Note: See TracChangeset for help on using the changeset viewer.