Ignore:
Timestamp:
2007-12-14T09:59:00+01:00 (13 years ago)
Author:
gm
Message:

dev_001_GM - create 1 trcini_ module by trc model (CFC, LOBSTER, PISCES..) - never compiled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90

    r763 r766  
    88   !!              -   !  2005-10  (C. Ethe) Module 
    99   !!---------------------------------------------------------------------- 
    10 #if defined key_passivetrc 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_passivetrc'                                    Passive tracers 
    13    !!---------------------------------------------------------------------- 
    1410   !!   trc_ini :   Initialization for passive tracer 
    1511   !!---------------------------------------------------------------------- 
    16    USE oce_trc 
    17    USE trc 
    18    USE sms 
    19    USE lib_mpp 
    20    USE lbclnk 
     12   USE par_trc         ! TOP parameters 
     13   USE trcini_cfc      ! CFC     initialisation 
     14   USE trcini_lobster  ! LOBSTER initialisation 
     15   USE trcini_pisces   ! PISCES  initialisation 
     16   USE trcini_my_trc   ! MY_TRC  initialisation 
    2117 
    2218   IMPLICIT NONE 
     
    2521   PUBLIC   trc_ini   ! called by ??? 
    2622 
    27 # if defined key_trc_lobster1 
    28    !!---------------------------------------------------------------------- 
    29    !!   'key_trc_lobster1'                        LOBSTER1 biological model   
    30    !!---------------------------------------------------------------------- 
    31 #  include "trcini.lobster1.h90" 
    32  
    33 # elif defined key_trc_pisces 
    34    !!---------------------------------------------------------------------- 
    35    !!   'key_trc_pisces'                            PISCES biological model                   
    36    !!---------------------------------------------------------------------- 
    37 #  include "trcini.pisces.h90" 
    38  
    39 # elif defined key_cfc 
    40    !!---------------------------------------------------------------------- 
    41    !!   'key_cfc  '                                          CFC model                   
    42    !!---------------------------------------------------------------------- 
    43 #  include "trcini.cfc.h90" 
    44  
    45 # else 
    46    !!---------------------------------------------------------------------- 
    47    !!   Default option                                
    48    !!---------------------------------------------------------------------- 
    4923   !!---------------------------------------------------------------------- 
    5024   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
     
    5933      !!                    ***  ROUTINE trc_ini  *** 
    6034      !!               
    61       !! ** Purpose :   Initialization of all passive tracer to zero 
    62       !!              (default case) 
    63       !!------------------------------------------------------------------- 
    64       INTEGER ::   ji ,jj ,jk ,jn, jl        ! dummy loop indices   
     35      !! ** Purpose :   Initialization of passive tracer to zero 
     36      !! 
     37      !! ** Method  :   call the initialisation of each defined tracer 
     38      !!             model (LOBSTER, PISCES, CFC, MY_TRC) 
    6539      !!------------------------------------------------------------------- 
    6640 
    6741      IF(lwp) WRITE(numout,*) 
    68       IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the passive tracers' 
     42      IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the tracer models' 
    6943      IF(lwp) WRITE(numout,*) '~~~~~~~' 
     44      ! 
     45      IF( lk_trc_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model 
     46      ELSE                        ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used' 
     47      ENDIF 
    7048 
    71       ! initialization of passives tracers field 
    72       ! ---------------------------------------- 
    73       DO jn = 1, jptra 
    74          trn(:,:,:,jn) = 0.e0 
    75          tra(:,:,:,jn) = 0.e0 
    76       END DO 
     49      IF( lk_trc_pisces  ) THEN   ;   CALL trc_init_pisces      ! PISCES  bio-model 
     50      ELSE                        ;   IF(lwp) WRITE(numout,*) '          PISCES not used' 
     51      ENDIF 
    7752 
    78 #  if defined key_trc_diaadd 
    79       ! initialization of output 2d and 3d arrays 
    80       DO jn = 1, jpdia2d 
    81          trc2d(:,:,jn) = 0.e0 
    82       END DO 
    83       DO jn = 1, jpdia3d 
    84          trc3d(:,:,:,jn) = 0.e0 
    85       END DO 
    86 #  endif 
     53      IF( lk_trc_cfc     ) THEN   ;   CALL trc_init_cfc         ! CFC     tracers 
     54      ELSE                        ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
     55      ENDIF 
    8756 
    88 #  if defined key_trc_diabio 
    89       ! initialization of biological trends 
    90       DO jn = 1, jpdiabio 
    91          trbio(:,:,:,jn) = 0.e0 
    92       END DO 
    93 #  endif 
    94  
    95 #  if defined key_trc_diatrd 
    96       ! initialization of tracer trends 
    97       DO jl = 1, jpdiatrc 
    98          DO jn = 1, jptra 
    99             IF( luttrd(jn) )   trtrd(:,:,:,ikeep(jn),jl) = 0.e0 
    100          END DO 
    101       END DO 
    102 #  endif       
     57      IF( lk_trc_my_trc  ) THEN   ;   CALL trc_init_my_trc      ! MY_TRC  tracers 
     58      ELSE                        ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
     59      ENDIF 
    10360      ! 
    10461   END SUBROUTINE trc_ini 
    10562 
    106 # endif 
    107  
    108 #else 
    109    !!---------------------------------------------------------------------- 
    110    !!   Dummy module :                      NO passive tracer 
    111    !!---------------------------------------------------------------------- 
    112 CONTAINS 
    113    SUBROUTINE trc_ini              ! Empty routine 
    114    END SUBROUTINE trc_ini 
    115 #endif 
    116  
    11763   !!====================================================================== 
    11864END MODULE trcini 
Note: See TracChangeset for help on using the changeset viewer.