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 5581 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90 – NEMO

Ignore:
Timestamp:
2015-07-10T13:28:53+02:00 (9 years ago)
Author:
timgraham
Message:

Merged head of trunk into branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90

    r4305 r5581  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    8 #if defined key_top && key_my_trc && defined key_iomput 
     8#if defined key_top && defined key_my_trc && defined key_iomput 
    99   !!---------------------------------------------------------------------- 
    1010   !!   'key_my_trc'                                           my_trc model 
     
    3737      DO jn = jp_myt0, jp_myt1 
    3838         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer 
    39          IF( lk_vvl ) THEN 
    40             CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) ) 
    41          ELSE 
    42             CALL iom_put( cltra, trn(:,:,:,jn) ) 
    43          ENDIF 
     39         CALL iom_put( cltra, trn(:,:,:,jn) ) 
    4440      END DO 
    4541      ! 
Note: See TracChangeset for help on using the changeset viewer.