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 7097 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

Ignore:
Timestamp:
2016-10-25T17:32:50+02:00 (8 years ago)
Author:
lovato
Message:

New top interface : update my_trc and revise structure of TOP component initialisation, see ticket #1782

Location:
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

    r7073 r7097  
    1616   INTEGER, PUBLIC ::   jp_myt0             !: First index of MY_TRC passive tracers 
    1717   INTEGER, PUBLIC ::   jp_myt1             !: Last  index of MY_TRC passive tracers 
    18  
    19    INTEGER, PUBLIC ::   jpmyt0, jpmty1, jpmyt2         !: index of MY_TRC passive tracers 
    2018   !!====================================================================== 
    2119END MODULE par_my_trc 

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcice_my_trc.F90

    r7073 r7097  
    33   !!                         ***  MODULE trcice_my_trc  *** 
    44   !!---------------------------------------------------------------------- 
    5    !! trc_ice_my_trc       : MY_TRC model main routine 
     5   !! trc_ice_my_trc       : MY_TRC model seaice coupling routine 
     6   !!---------------------------------------------------------------------- 
     7   !! History :        !  2016  (C. Ethe, T. Lovato) Revised architecture 
    68   !!---------------------------------------------------------------------- 
    79   USE par_trc         ! TOP parameters 
    … …  
    1517 
    1618   !!---------------------------------------------------------------------- 
    17    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    18    !! $Id: trcice_my_trc.F90 4990 2014-12-15 16:42:49Z timgraham $ 
     19   !! NEMO/TOP 4.0 , NEMO Consortium (2016) 
     20   !! $Id$ 
    1921   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    2022   !!---------------------------------------------------------------------- 
    … …  
    3032   END SUBROUTINE trc_ice_ini_my_trc 
    3133 
    32  
    3334   !!====================================================================== 
    3435END MODULE trcice_my_trc 

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

    r7073 r7097  
    44   !! TOP :   initialisation of the MY_TRC tracers 
    55   !!====================================================================== 
    6    !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code 
     6   !! History :        !  2007  (C. Ethe, G. Madec) Original code 
     7   !!                  !  2016  (C. Ethe, T. Lovato) Revised architecture 
    78   !!---------------------------------------------------------------------- 
    89   !! trc_ini_my_trc   : MY_TRC model initialisation 
    … …  
    1112   USE oce_trc 
    1213   USE trc 
     14   USE par_my_trc 
     15   USE trcnam_my_trc     ! MY_TRC SMS namelist 
    1316   USE trcsms_my_trc 
    1417 
    … …  
    1922 
    2023   !!---------------------------------------------------------------------- 
    21    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
     24   !! NEMO/TOP 4.0 , NEMO Consortium (2016) 
    2225   !! $Id$  
    2326   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    … …  
    3336      !! ** Method  : - Read the namcfc namelist and check the parameter values 
    3437      !!---------------------------------------------------------------------- 
    35  
     38      ! 
     39      CALL trc_nam_my_trc 
     40      ! 
    3641      !                       ! Allocate MY_TRC arrays 
    3742      IF( trc_sms_my_trc_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' ) 
    … …  
    4954   END SUBROUTINE trc_ini_my_trc 
    5055 
    51  
    5256   !!====================================================================== 
    5357END MODULE trcini_my_trc 

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90

    r7073 r7097  
    44   !! TOP :   initialisation of some run parameters for MY_TRC bio-model 
    55   !!====================================================================== 
    6    !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code 
     6   !! History :      !  2007  (C. Ethe, G. Madec) Original code 
     7   !!                !  2016  (C. Ethe, T. Lovato) Revised architecture 
    78   !!---------------------------------------------------------------------- 
    89   !! trc_nam_my_trc      : MY_TRC model initialisation 
    … …  
    1819 
    1920   !!---------------------------------------------------------------------- 
    20    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
     21   !! NEMO/TOP 4.0 , NEMO Consortium (2016) 
    2122   !! $Id$  
    2223   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    … …  
    3940   END SUBROUTINE trc_nam_my_trc 
    4041    
    41  
    4242   !!====================================================================== 
    4343END MODULE trcnam_my_trc 

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

    r7073 r7097  
    44   !! TOP :   Main module of the MY_TRC tracers 
    55   !!====================================================================== 
    6    !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code 
     6   !! History :      !  2007  (C. Ethe, G. Madec)  Original code 
     7   !!                !  2016  (C. Ethe, T. Lovato) Revised architecture 
    78   !!---------------------------------------------------------------------- 
    89   !! trc_sms_my_trc       : MY_TRC model main routine 
    … …  
    2526 
    2627   !!---------------------------------------------------------------------- 
    27    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
     28   !! NEMO/TOP 4.0 , NEMO Consortium (2016) 
    2829   !! $Id$ 
    2930   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    … …  
    7071   END SUBROUTINE trc_sms_my_trc 
    7172 
    72  
    7373   INTEGER FUNCTION trc_sms_my_trc_alloc() 
    7474      !!---------------------------------------------------------------------- 
    … …  
    8484   END FUNCTION trc_sms_my_trc_alloc 
    8585 
    86  
    8786   !!====================================================================== 
    8887END MODULE trcsms_my_trc 

  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90

    r7073 r7097  
    22   !!====================================================================== 
    33   !!                       *** MODULE trcwri *** 
    4    !!    my_trc :   Output of my_trc tracers 
     4   !!     trc_wri_my_trc   :  outputs of concentration fields 
    55   !!====================================================================== 
    6    !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    7    !!---------------------------------------------------------------------- 
    86#if defined key_top && defined key_iomput 
    97   !!---------------------------------------------------------------------- 
    10    !! trc_wri_my_trc   :  outputs of concentration fields 
     8   !! History :      !  2007  (C. Ethe, G. Madec)  Original code 
     9   !!                !  2016  (C. Ethe, T. Lovato) Revised architecture 
    1110   !!---------------------------------------------------------------------- 
    12    USE par_trc         ! passive tracers common variables  
     11   USE par_trc         ! passive tracers common variables 
    1312   USE trc         ! passive tracers common variables  
    1413   USE iom         ! I/O manager 
    … …  
    1918   PUBLIC trc_wri_my_trc  
    2019 
     20   !!---------------------------------------------------------------------- 
     21   !! NEMO/TOP 4.0 , NEMO Consortium (2016) 
     22   !! $Id$ 
     23   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     24   !!---------------------------------------------------------------------- 
    2125CONTAINS 
    2226 
Note: See TracChangeset for help on using the changeset viewer.