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 766 for branches/dev_001_GM/NEMO/TOP_SRC – NEMO

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

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

Location:
branches/dev_001_GM/NEMO/TOP_SRC
Files:
1 edited
3 moved

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/CFC/trcini_cfc.F90

    r764 r766  
     1MODULE trcini_cfc 
    12   !!====================================================================== 
    2    !!                         ***  trcini.cfc.h90  *** 
    3    !! TOP :   Initialisation of CFC chemical model 
     3   !!                         ***  MODULE trcini_cfc  *** 
     4   !! TOP :   initialisation of the CFC tracers 
    45   !!====================================================================== 
    5    !! History :    -   !  2004-06  (JC. Dutay) Original code 
    6    !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90 
    7    !!              -   !  2005-10  (C. Ethe) Modularity 
     6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.cfc.h90 
    87   !!---------------------------------------------------------------------- 
     8#if defined key_cfc 
     9   !!---------------------------------------------------------------------- 
     10   !!   'key_cfc'                                               CFC tracers 
     11   !!---------------------------------------------------------------------- 
     12   !! trc_ini_cfc      : CFC model initialisation 
     13   !!---------------------------------------------------------------------- 
     14   USE par_trc         ! TOP parameters 
     15   USE trccfc          ! CFC sms trends 
    916 
    10    CHARACTER (len=34) ::   clname = 'cfc1112.atm' ! ??? 
     17   IMPLICIT NONE 
     18   PRIVATE 
     19 
     20   PUBLIC   trc_ini_cfc   ! called by trcini.F90 module 
     21 
     22   CHARACTER (len=34) ::   clname = 'cfc1112.atm'   ! ??? 
    1123 
    1224   INTEGER  ::   inum                   ! unit number 
     
    1527 
    1628   !!---------------------------------------------------------------------- 
    17    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    18    !! $Id$  
     29   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
     30   !! $Id:$  
    1931   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    2032   !!---------------------------------------------------------------------- 
     
    2234CONTAINS 
    2335 
    24    SUBROUTINE trc_ini 
     36   SUBROUTINE trc_ini_cfc 
    2537      !!---------------------------------------------------------------------- 
    26       !!                     ***  trcini.cfc.h90  ***   
     38      !!                     ***  trc_ini_cfc  ***   
    2739      !! 
    28       !! ** Purpose : special initialization for cfc model 
     40      !! ** Purpose :   initialization for cfc model 
     41      !! 
     42      !! ** Method  : - Read the namcfc namelist and check the parameter values 
    2943      !!---------------------------------------------------------------------- 
    3044      INTEGER  ::   ji, jj, jn, jl, jm 
    31       REAL(wp) ::   zyy,  zyd 
     45      REAL(wp) ::   zyy  ,  zyd 
    3246      !!---------------------------------------------------------------------- 
     47 
     48      IF(lwp) WRITE(numout,*) 
     49      IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model' 
     50      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 
    3351 
    3452      ! Initialization of boundaries conditions 
     
    122140      END DO 
    123141      ! 
    124    END SUBROUTINE trc_ini 
     142   END SUBROUTINE trc_ini_cfc 
     143    
     144#else 
     145   !!---------------------------------------------------------------------- 
     146   !!   Dummy module                                         No CFC tracers 
     147   !!---------------------------------------------------------------------- 
     148CONTAINS 
     149   SUBROUTINE trc_ini_cfc             ! Empty routine 
     150   END SUBROUTINE trc_ini_cfc 
     151#endif 
     152 
     153   !!====================================================================== 
     154END MODULE trcini_cfc 
  • 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 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r764 r766  
     1MODULE trcini_pisces 
    12   !!====================================================================== 
    2    !!                         ***  trcini.pisces.h90  *** 
    3    !! TOP :   Initialisation of PISCES biological model 
     3   !!                         ***  MODULE trcini_pisces  *** 
     4   !! TOP :   initialisation of the PISCES biochemical model 
    45   !!====================================================================== 
    56   !! History :    -   !  1988-07  (E. Maier-Reiner) Original code 
     
    78   !!              -   !  2002     (O. Aumont)  PISCES 
    89   !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90 
     10   !!             2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.pisces.h90 
    911   !!---------------------------------------------------------------------- 
     12#if defined key_trc_pisces  &&  defined key_trc_kriest 
     13   !!--------------------------------------------------------------------- 
     14   !!   'key_trc_pisces' & 'key_trc_kriest'         PISCES bio-model + ??? 
     15   !!--------------------------------------------------------------------- 
     16   !! trc_ini_pisces   : PISCES biochemical model initialisation 
     17   !!---------------------------------------------------------------------- 
     18   USE par_trc         ! TOP parameters 
     19   USE trccfc          ! CFC sms trends 
     20   USE iom 
     21 
     22   IMPLICIT NONE 
     23   PRIVATE 
     24 
     25   PUBLIC   trc_ini_pisces   ! called by trcini.F90 module 
    1026 
    1127#  include "domzgr_substitute.h90" 
    1228#  include "passivetrc_substitute.h90" 
    1329   !!---------------------------------------------------------------------- 
    14    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
    15    !! $Id$  
     30   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
     31   !! $Id:$  
    1632   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1733   !!---------------------------------------------------------------------- 
     
    1935CONTAINS 
    2036 
    21    SUBROUTINE trc_ini 
     37   SUBROUTINE trc_ini_pisces 
    2238      !!---------------------------------------------------------------------- 
    23       !!                   ***  ROUTINE trc_ini *** 
     39      !!                   ***  ROUTINE trc_ini_pisces *** 
    2440      !! 
    25       !! ** Purpose :   Initialisation of PISCES biological and chemical variables 
     41      !! ** Purpose :   Initialisation of the PISCES biochemical model 
    2642      !!---------------------------------------------------------------------- 
    27       USE iom 
    28       !! 
    29       INTEGER :: ji,jj,jk 
    30       INTEGER :: ichl,iband,jm 
    31       INTEGER , PARAMETER :: jpmois = 12, jpan   = 1  
     43      INTEGER :: ji, jj, jk, jm 
     44      INTEGER :: ichl, iband 
     45      INTEGER , PARAMETER ::   jpmois = 12, jpan   = 1  
    3246 
    3347      REAL(wp) :: zcoef 
     
    4963 
    5064      IF(lwp) WRITE(numout,*) 
    51       IF(lwp) WRITE(numout,*) ' trc_ini :   PISCES biological and chemical initialisation' 
    52       IF(lwp) WRITE(numout,*) ' ~~~~~~~' 
     65      IF(lwp) WRITE(numout,*) ' trc_ini_pisces :   PISCES biochemical model initialisation' 
     66      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    5367 
    5468 
     
    5973      rfact2r = 1. / rfact2 
    6074 
    61       IF(lwp) WRITE(numout,*) '    Tracer  time step=', rfact, ' rdt = ', rdt 
    62       IF(lwp) write(numout,*) '    Biology time step=', rfact2 
     75      IF(lwp) WRITE(numout,*) '    Tracer  time step    rfact  = ', rfact, ' rdt = ', rdt 
     76      IF(lwp) write(numout,*) '    Biology time step    rfact2 = ', rfact2 
    6377 
    6478 
     
    542556      IF(lwp) WRITE(numout,*) ' Initialisation of PISCES done' 
    543557      ! 
    544    END SUBROUTINE trc_ini 
     558   END SUBROUTINE trc_ini_pisces 
     559    
     560#else 
     561   !!---------------------------------------------------------------------- 
     562   !!   Dummy module                            No PISCES biochemical model 
     563   !!---------------------------------------------------------------------- 
     564CONTAINS 
     565   SUBROUTINE trc_ini_pisces             ! Empty routine 
     566   END SUBROUTINE trc_ini_pisces 
     567#endif 
     568 
     569   !!====================================================================== 
     570END MODULE trcini_pisces 
     571 
  • 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.