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 4292 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90 – NEMO

Ignore:
Timestamp:
2013-11-20T17:28:04+01:00 (10 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : 1st step of the merge, see ticket #1185

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/trcwri_pisces.F90

    r3680 r4292  
    2121   PUBLIC trc_wri_pisces  
    2222 
     23#  include "top_substitute.h90" 
    2324CONTAINS 
    2425 
     
    3940      DO jn = jp_pcs0, jp_pcs1 
    4041         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer 
     42         IF( lk_vvl ) THEN 
     43            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) ) 
     44         ELSE 
     45            CALL iom_put( cltra, trn(:,:,:,jn) ) 
     46         ENDIF 
    4147         CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 
    4248      END DO 
     
    4753         IF( jn == jppo4  )                 zrfact = po4r * 1.0e+6 
    4854         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer 
    49          CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 
     55         IF( lk_vvl ) THEN 
     56            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) * zrfact ) 
     57         ELSE 
     58            CALL iom_put( cltra, trn(:,:,:,jn) * zrfact ) 
     59         ENDIF 
    5060      END DO 
    5161#endif 
Note: See TracChangeset for help on using the changeset viewer.