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

Ignore:
Timestamp:
2008-05-14T18:14:53+02:00 (16 years ago)
Author:
cetlod
Message:

Update modules for new version of TOP model, see ticket 144

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/trcdia.F90

    r719 r945  
    11MODULE trcdia 
    2    !!========================================================================== 
    3    !! 
     2   !!====================================================================== 
    43   !!                       *** MODULE trcdia *** 
    5    !! Output  for tracer concentration   
    6    !! O.Aumont and A.El Moussaoui 03/05 F90  
    7    !!========================================================================== 
    8    !!  TOP 1.0,  LOCEAN-IPSL (2005)  
    9    !! $Header$  
    10    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
     4   !! TOP :   Output of passive tracers 
     5   !!====================================================================== 
     6   !! History :   1.0  !  2005-03 (O. Aumont, A. El Moussaoui) original code 
    117   !!---------------------------------------------------------------------- 
    12 #if defined key_passivetrc 
     8#if defined key_top 
    139   !!---------------------------------------------------------------------- 
    14    !! * Modules used 
    15   
     10   !!   'key_top'                                                TOP models 
     11   !!---------------------------------------------------------------------- 
     12   !!   trc_dia    :  output passive tracer fields 
     13   !!---------------------------------------------------------------------- 
    1614   USE trcdit 
    1715 
    … …  
    1917   PRIVATE 
    2018 
    21    !! * Accessibility 
    22    PUBLIC trc_dia 
     19   PUBLIC trc_dia      ! called by ??? 
    2320 
    24    !! * Module variables 
     21   !!---------------------------------------------------------------------- 
     22   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
     23   !! $Header:$  
     24   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     25   !!---------------------------------------------------------------------- 
    2526 
    2627CONTAINS 
    2728 
    28    SUBROUTINE trc_dia(kt,kindic)   
    29       !!=========================================================================================== 
     29   SUBROUTINE trc_dia( kt, kindic )   
     30      !!--------------------------------------------------------------------- 
     31      !!                     ***  ROUTINE trc_dia  *** 
    3032      !! 
    31       !!                       ROUTINE trcdii_wr 
    32       !!=========================================================================================== 
     33      !! ** Purpose :   output passive tracers fields  
     34      !!--------------------------------------------------------------------- 
     35      INTEGER, INTENT( in ) :: kt, kindic 
     36      !!--------------------------------------------------------------------- 
     37       
     38      CALL trcdit_wr( kt, kindic )      ! outputs for tracer concentration 
    3339 
    34       INTEGER, INTENT( in ) :: kt, kindic 
     40# if defined key_trc_diatrd 
     41      CALL trcdid_wr( kt, kindic )      ! outputs for dynamical trends 
     42# endif 
    3543 
    36       ! outputs for tracer concentration 
    37       ! --------------------------------  
     44# if defined key_trc_diaadd 
     45      CALL trcdii_wr( kt, kindic )      ! outputs for additional arrays 
     46# endif 
    3847 
    39       CALL trcdit_wr(kt,kindic) 
    40  
    41 #if defined key_trc_diatrd 
    42  
    43       ! outputs for dynamical trends 
    44       ! ---------------------------- 
    45  
    46       CALL trcdid_wr(kt,kindic) 
    47  
    48 #endif 
    49 #if defined key_trc_diaadd 
    50  
    51       ! outputs for additional arrays 
    52       ! ----------------------------- 
    53  
    54       CALL trcdii_wr(kt,kindic) 
    55  
    56 #endif 
    57 #if defined key_trc_diabio 
    58  
    59       ! outputs for biological trends 
    60       ! ----------------------------- 
    61  
    62       CALL trcdib_wr(kt,kindic) 
    63  
    64 #endif 
    65  
     48# if defined key_trc_diabio 
     49      CALL trcdib_wr( kt, kindic )      ! outputs for biological trends 
     50# endif 
     51      ! 
    6652   END SUBROUTINE trc_dia 
    6753 
    6854#else 
    69    !!====================================================================== 
    70    !!  Empty module : No passive tracer 
    71    !!====================================================================== 
     55   !!---------------------------------------------------------------------- 
     56   !!  Dummy module :                                    No passive tracer 
     57   !!---------------------------------------------------------------------- 
    7258CONTAINS 
    73    SUBROUTINE trc_dia 
    74        
     59   SUBROUTINE trc_dia                      ! Empty routine    
    7560   END SUBROUTINE trc_dia    
    7661#endif 
    7762 
     63   !!====================================================================== 
    7864END MODULE trcdia 
Note: See TracChangeset for help on using the changeset viewer.