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 7068 for branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcwri_c14.F90 – NEMO

Ignore:
Timestamp:
2016-10-21T17:38:13+02:00 (7 years ago)
Author:
cetlod
Message:

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/C14/trcwri_c14.F90

    r7041 r7068  
    4242      ! write the tracer concentrations in the file 
    4343      ! --------------------------------------- 
    44       cltra = TRIM( ctrcnm(jp_c140) )                  ! short title for tracer 
    45       CALL iom_put( cltra, trn(:,:,:,jp_c140) ) 
     44      cltra = TRIM( ctrcnm(jp_c14) )                  ! short title for tracer 
     45      CALL iom_put( cltra, trn(:,:,:,jp_c14) ) 
    4646 
    4747      ! compute and write the tracer diagnostic in the file 
     
    6161               DO ji = 1, jpi 
    6262                  IF( tmask(ji,jj,jk) > 0._wp) THEN 
    63                      z3d (ji,jj,jk) = trn(ji,jj,jk,jp_c140) 
     63                     z3d (ji,jj,jk) = trn(ji,jj,jk,jp_c14) 
    6464                     zz3d(ji,jj,jk) = LOG( z3d(ji,jj,jk) ) 
    6565                  ENDIF 
     
    114114      ENDIF 
    115115      IF( iom_use("C14Inv") ) THEN 
    116          ztemp = glob_sum( trn(:,:,:,jp_c140) * cvol(:,:,:) ) 
     116         ztemp = glob_sum( trn(:,:,:,jp_c14) * cvol(:,:,:) ) 
    117117         ztemp = atomc14 * xdicsur * ztemp 
    118118         CALL iom_put( "C14Inv", ztemp )  !  Radiocarbon ocean inventory [10^26 atoms] 
Note: See TracChangeset for help on using the changeset viewer.