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/initrc.F90 – NEMO

Ignore:
Timestamp:
2005-11-14T13:08:42+01:00 (18 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/initrc.F90

    r274 r335  
    11MODULE initrc 
    2    !!=========================================================================================== 
     2   !!================================================ 
    33   !! 
    44   !!                       *** MODULE initrc *** 
    55   !! Initialisation the tracer model 
    6    !!=========================================================================================== 
    7  
    8    !!---------------------------------------------------------------------- 
    9    !!  TOP 1.0,  LOCEAN-IPSL (2005) 
    10    !! $Header$ 
    11    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    12    !!---------------------------------------------------------------------- 
    13  
    14       !!---------------------------------------------------------------------- 
    15       !! * Modules used 
    16       !! ============== 
    17       USE oce_trc 
    18       USE trc 
    19       USE trcrst 
    20       USE trcctl 
    21       USE trclec 
    22       USE trcdtr 
    23       USE trcini 
    24  
    25       IMPLICIT NONE 
    26       PRIVATE 
    27  
    28  
    29    !! * Accessibility 
    30    PUBLIC ini_trc 
    31  
    32 CONTAINS 
     6   !!================================================ 
    337                                                                                                                             
    348#if defined key_passivetrc 
    359 
    36 SUBROUTINE ini_trc 
    37    !!--------------------------------------------------------------------- 
    38    !! 
    39    !!                       ROUTINE ini_trc 
    40    !!                     ****************** 
    41    !! 
    42    !!  PURPOSE : 
    43    !!  --------- 
    44    !!     initialize the tracer model 
    45    !! 
    46    !!   METHOD : 
    47    !!   ------- 
    48    !! 
    49    !! 
    50    !!   History: 
    51    !!   ------- 
    52    !!      original  : 91-03 () 
    53    !!      additions : 92-01 (C. Levy) 
    54    !!     05-03 (O. Aumont and A. El Moussaoui) F90 
    55    !!---------------------------------------------------------------------- 
     10   !!------------------------------------------------------- 
     11   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
     12   !!------------------------------------------------------- 
    5613 
    57    !!--------------------------------------------------------------------- 
    58    !!  OPA.9, 03-2005 
    59    !!--------------------------------------------------------------------- 
     14   !!-------------------------------------------------------------- 
     15   !! * Modules used 
     16   !! ============== 
     17   USE oce_trc 
     18   USE trc 
     19   USE trcrst 
     20   USE trcctl 
     21   USE trclec 
     22   USE trcdtr 
     23   USE trcini 
     24    
     25   IMPLICIT NONE 
     26   PRIVATE 
     27    
     28    
     29   !! * Accessibility 
     30   PUBLIC ini_trc 
     31    
     32CONTAINS 
     33    
     34   SUBROUTINE ini_trc 
     35      !!--------------------------------------------------------------------- 
     36      !! 
     37      !!                       ROUTINE ini_trc 
     38      !!                     ****************** 
     39      !! 
     40      !!  PURPOSE : 
     41      !!  --------- 
     42      !!     initialize the tracer model 
     43      !! 
     44      !!   METHOD : 
     45      !!   ------- 
     46      !! 
     47      !! 
     48      !!   History: 
     49      !!   ------- 
     50      !!      original  : 91-03 () 
     51      !!      additions : 92-01 (C. Levy) 
     52      !!     05-03 (O. Aumont and A. El Moussaoui) F90 
     53      !!---------------------------------------------------------------------- 
    6054 
    61    !! 0.b PRINT the number of tracer 
    62    !! ------------------------------ 
     55      !!--------------------------------------------------------------------- 
     56      !!  OPA.9, 03-2005 
     57      !!--------------------------------------------------------------------- 
     58 
     59      !! 0.b PRINT the number of tracer 
     60      !! ------------------------------ 
    6361 
    6462      IF(lwp) WRITE(numout,*) ' ' 
    … …  
    6664      IF(lwp) WRITE(numout,*) ' ' 
    6765 
    68    ! 1. READ passive tracers namelists 
    69    ! --------------------------------- 
     66      ! 1. READ passive tracers namelists 
     67      ! --------------------------------- 
    7068 
    7169      CALL trc_lec 
    7270 
    73    ! 2. control consistency between parameters, cpp key and namelists 
    74    ! ---------------------------------------------------------------- 
     71      ! 2. control consistency between parameters, cpp key and namelists 
     72      ! ---------------------------------------------------------------- 
    7573 
    7674      CALL trc_ctl 
    7775 
    78    ! 3. computes some initializations 
    79    ! -------------------------------- 
     76      ! 3. computes some initializations 
     77      ! -------------------------------- 
    8078 
    8179      CALL trc_ini 
    8280 
    83    ! 4. restart from a FILE (nutrst) 
    84    ! ---------------------- 
     81      ! 4. restart from a FILE (nutrst) 
     82      ! ---------------------- 
    8583 
    86       IF(lrsttr) THEN 
     84      IF( lrsttr ) THEN 
    8785 
    88           CALL trc_rst 
     86 
     87         CALL trc_rst 
    8988 
    9089      ELSE 
    9190 
    92    ! start from anything ELSE 
     91         ! start from anything ELSE 
    9392 
    94           CALL trc_dtr 
     93         CALL trc_dtr 
    9594 
    9695      ENDIF 
    9796 
    98 END SUBROUTINE ini_trc 
     97   END SUBROUTINE ini_trc 
    9998 
    10099#else 
    101 SUBROUTINE ini_trc 
    102    ! no passive tracers 
    103 END SUBROUTINE ini_trc 
     100   !!====================================================================== 
     101   !!  Empty module : No passive tracer 
     102   !!====================================================================== 
     103CONTAINS 
     104   SUBROUTINE ini_trc 
     105       
     106   END SUBROUTINE ini_trc 
    104107#endif 
    105108 
Note: See TracChangeset for help on using the changeset viewer.