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

Ignore:
Timestamp:
2015-04-13T15:08:59+02:00 (9 years ago)
Author:
davestorkey
Message:

Merge in changes from trunk up to 5021.

File:
1 edited

Legend:

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

    r4305 r5208  
    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.