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 moved

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

    r764 r766  
     1MODULE trcini_lobster 
    12   !!====================================================================== 
    2    !!                         ***  trcini.lobster1.h90  *** 
    3    !! TOP :   Initialisation of LOBSTER 1 biological model 
     3   !!                         ***  MODULE trcini_lobster  *** 
     4   !! TOP :   initialisation of the LOBSTER biological model 
    45   !!====================================================================== 
    56   !! History :    -   !  1999-09  (M. Levy) Original code 
     
    78   !!             1.0  !  2004-03  (C. Ethe) Modularity 
    89   !!              -   !  2005-03  (O. Aumont, A. El Moussaoui) F90 
     10   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.lobster1.h90 
    911   !!---------------------------------------------------------------------- 
     12#if defined key_trc_lobster1 
     13   !!---------------------------------------------------------------------- 
     14   !!   'key_trc_lobster1'                                    LOBSTER model 
     15   !!---------------------------------------------------------------------- 
     16   !! trc_ini_lobster  : LOBSTER model initialisation 
     17   !!---------------------------------------------------------------------- 
     18   USE par_trc         ! TOP parameters 
     19   USE trccfc          ! CFC sms trends 
     20 
     21   IMPLICIT NONE 
     22   PRIVATE 
     23 
     24   PUBLIC   trc_ini_lobster   ! called by trcini.F90 module 
    1025 
    1126#  include "domzgr_substitute.h90" 
    1227#  include "passivetrc_substitute.h90" 
    1328   !!---------------------------------------------------------------------- 
    14    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    15    !! $Id$  
     29   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
     30   !! $Id:$  
    1631   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1732   !!---------------------------------------------------------------------- 
     
    1934CONTAINS 
    2035 
    21    SUBROUTINE trc_ini 
     36   SUBROUTINE trc_ini_lobster 
    2237      !!---------------------------------------------------------------------- 
    23       !!                    ***  ROUTINE trc_ini  *** 
    24       !! ** purpose :   specific initialisation for lobster1 model 
     38      !!                    ***  ROUTINE trc_ini_lobster  *** 
     39      !! ** purpose :   specific initialisation for LOBSTER bio-model 
    2540      !!---------------------------------------------------------------------- 
    2641      INTEGER  ::   ji, jj, jk, jn 
    2742      REAL(wp) ::   zdm0(jpi,jpj,jpk), zrro(jpi,jpj), zfluo, zfluu 
    2843      REAL(wp) ::   ztest, zfluo, zfluu 
    29       REAL(wp), DIMENSION(jpi,jpj) ::   zrro 
     44      REAL(wp), DIMENSION(jpi,jpj)     ::   zrro 
    3045      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zdm0 
    3146      !!---------------------------------------------------------------------- 
     47 
     48      IF(lwp) WRITE(numout,*) 
     49      IF(lwp) WRITE(numout,*) ' trc_ini_lobster :   LOBSTER biochemical model initialisation' 
     50      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~' 
     51 
    3252 
    3353      ! initialization of fields for optical model 
     
    122142      END DO 
    123143      ! 
    124    END SUBROUTINE trc_ini 
     144   END SUBROUTINE trc_ini_lobster 
     145 
     146#else 
     147   !!---------------------------------------------------------------------- 
     148   !!   Dummy module                                   No LOBSTER bio-model 
     149   !!---------------------------------------------------------------------- 
     150CONTAINS 
     151   SUBROUTINE trc_ini_lobster             ! Empty routine 
     152   END SUBROUTINE trc_ini_lobster 
     153#endif 
     154 
     155   !!====================================================================== 
     156END MODULE trcini_lobster 
Note: See TracChangeset for help on using the changeset viewer.