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 7073 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90 – NEMO

Ignore:
Timestamp:
2016-10-24T12:36:50+02:00 (7 years ago)
Author:
cetlod
Message:

New top interface : Update my_trc module

File:
1 edited

Legend:

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

    r6140 r7073  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_top && defined key_my_trc && defined key_iomput 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_my_trc'                                           my_trc model 
     8#if defined key_top && defined key_iomput 
    119   !!---------------------------------------------------------------------- 
    1210   !! trc_wri_my_trc   :  outputs of concentration fields 
    1311   !!---------------------------------------------------------------------- 
     12   USE par_trc         ! passive tracers common variables  
    1413   USE trc         ! passive tracers common variables  
    1514   USE iom         ! I/O manager 
     
    3635      DO jn = jp_myt0, jp_myt1 
    3736         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer 
    38          IF( ln_trc_wri(jn) ) CALL iom_put( cltra, trn(:,:,:,jn) ) 
     37         CALL iom_put( cltra, trn(:,:,:,jn) ) 
    3938      END DO 
    4039      ! 
     
    4241 
    4342#else 
    44    !!---------------------------------------------------------------------- 
    45    !!  Dummy module :                                     No passive tracer 
    46    !!---------------------------------------------------------------------- 
    47    PUBLIC trc_wri_my_trc 
     43 
    4844CONTAINS 
    49    SUBROUTINE trc_wri_my_trc                     ! Empty routine   
     45 
     46   SUBROUTINE trc_wri_my_trc 
     47      ! 
    5048   END SUBROUTINE trc_wri_my_trc 
     49 
    5150#endif 
    5251 
    53    !!---------------------------------------------------------------------- 
    54    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    55    !! $Id: trcwri_my_trc.F90 3160 2011-11-20 14:27:18Z cetlod $  
    56    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    57    !!====================================================================== 
    5852END MODULE trcwri_my_trc 
Note: See TracChangeset for help on using the changeset viewer.