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 335 for trunk/NEMO/TOP_SRC/trclsm.F90 – NEMO

Ignore:
Timestamp:
2005-11-14T13:08:42+01:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_023 : CE + RB + CT : new evolution of modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/trclsm.F90

    r274 r335  
    11MODULE trclsm 
    2    !!======================================================================================= 
     2   !!=============================================================== 
    33   !! 
    44   !!                       *** MODULE trclsm **** 
    … …  
    66   !!  READS specific NAMELIST for sms terms 
    77   !! 
    8    !!======================================================================================= 
     8   !!================================================================= 
    99   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
    10    !! $Header$ 
    11    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     10   !!----------------------------------------------------------------- 
     11#if defined key_passivetrc 
     12   !!------------------------------------------------------------- 
     13   !! * Modules used 
     14   !! ============== 
     15   USE oce_trc 
     16   USE trc 
     17   USE sms 
     18 
     19 
     20   IMPLICIT NONE                              
     21   PRIVATE 
     22 
     23   !! * Accessibility 
     24   PUBLIC trc_lsm 
     25 
     26 
     27#if defined key_trc_lobster1 
    1228   !!---------------------------------------------------------------------- 
    13       !!---------------------------------------------------------------------- 
    14       !! * Modules used 
    15       !! ============== 
    16       USE oce_trc 
    17       USE trc 
    18       USE sms 
     29   !!   'key_trc_lobster1'                        LOBSTER1 biological model   
     30   !!---------------------------------------------------------------------- 
     31#  include "trclsm.lobster1.h90" 
    1932 
    20                                                                                                                        
    21       IMPLICIT NONE                              
    22       PRIVATE 
     33#elif defined key_trc_pisces 
     34   !!---------------------------------------------------------------------- 
     35   !!   'key_trc_pisces'                            PISCES biological model                   
     36   !!---------------------------------------------------------------------- 
     37#  include "trclsm.pisces.h90" 
    2338 
    24   !! * Accessibility 
    25    PUBLIC trc_lsm 
     39#elif defined key_cfc 
     40   !!---------------------------------------------------------------------- 
     41   !!   'key_cfc  '                                          CFC model                   
     42   !!---------------------------------------------------------------------- 
     43#  include "trclsm.cfc.h90" 
     44 
     45   !!---------------------------------------------------------------------- 
     46   !!   Default option                                
     47   !!---------------------------------------------------------------------- 
     48# endif 
     49 
     50#else 
    2651 
    2752CONTAINS 
    2853 
    29 #if defined key_passivetrc 
    30  
    31 SUBROUTINE trc_lsm 
    32 !!--------------------------------------------------------------------- 
    33 !! 
    34 !!                       ROUTINE trclsm 
    35 !!                     ****************** 
    36 !!  PURPOSE : 
    37 !!  --------- 
    38 !!     READS specific NAMELIST for sms terms  
    39 !! 
    40 !!   History: 
    41 !!   -------- 
    42 !!      original  : 99-10 (M.A. Foujols, M. Levy) passive tracer 
    43 !!                  00-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD 
    44 !!                  02-05 (O. Aumont) AGE TRACER 
    45 !!     03/2005  O. Aumont and A. El Moussaoui  F90 
    46 !!---------------------------------------------------------------------- 
    47  
    48 #    if defined key_trc_npzd 
    49 #    include "trclsm.npzd.h90" 
    50 #    elif defined key_trc_lobster1 
    51 #    include "trclsm.lobster1.h90" 
    52 #    elif defined key_trc_hamocc3 
    53 #    include "trclsm.hamocc3.h90" 
    54 #    elif defined key_trc_age 
    55 #    include "trclsm.age.h90" 
    56 #    elif defined key_trc_pisces 
    57 #    include "trclsm.pisces.h90" 
    58 #    else 
    59 !!      user can define here his own sms namelist 
    60 #    endif 
    61  
    62 END  SUBROUTINE  trc_lsm 
    63  
    64 #else 
    65  
    66 SUBROUTINE trc_lsm 
    67 !!================ 
    68    !! no passive tracers 
    69 END  SUBROUTINE  trc_lsm 
     54   SUBROUTINE trc_lsm 
     55      !!================ 
     56      !! no passive tracers 
     57   END  SUBROUTINE  trc_lsm 
    7058 
    7159#endif   
Note: See TracChangeset for help on using the changeset viewer.