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 1873 for branches/CMIP5_IPSL/NEMO/TOP_SRC/trcwri.F90 – NEMO

Ignore:
Timestamp:
2010-05-17T15:59:47+02:00 (14 years ago)
Author:
cetlod
Message:

Update PISCES diagnostics for AR5

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/CMIP5_IPSL/NEMO/TOP_SRC/trcwri.F90

    r1846 r1873  
    6565      INTEGER, INTENT( in ) :: kt       ! ocean time-step 
    6666      INTEGER               :: jn 
    67       CHARACTER (len=20)    :: cltra, cltras 
     67      CHARACTER (len=20)    :: cltra 
    6868#if defined key_off_tra 
    6969      CHARACTER (len=72) :: clhstnam 
     
    7272#if defined key_diaar5  && defined key_pisces 
    7373      INTEGER                      :: ji, jj, jk  ! dummy loop indices 
    74       REAL(wp)                     :: zoxy        ! oxygen concentration  
    7574      REAL(wp), DIMENSION(jpi,jpj) :: zdic        ! DIC content  
    7675      REAL(wp), DIMENSION(jpi,jpj) :: zo2min      ! O2 minimum concentration  
     
    126125      CALL iom_put('POCT'  , trn(:,:,:,jppoc) + trn(:,:,:,jpgoc) )     ! total carbon particles 
    127126      CALL iom_put('PFET'  , trn(:,:,:,jpnfe) + trn(:,:,:,jpdfe) )     ! total biogenic iron 
    128       ! passive tracers at surface 
    129       DO jn = 1, jptra 
    130          cltras = TRIM(ctrcnm(jn))//'SFC'                   ! short title for tracer 
    131          CALL iom_put( cltras, trn(:,:,1,jn) ) 
    132       END DO 
    133       CALL iom_put('PHYTSFC',trn(:,:,1,jpphy) + trn(:,:,1,jpdia) ) 
    134       CALL iom_put('ZOOTSFC',trn(:,:,1,jpzoo) + trn(:,:,1,jpmes) ) 
    135       CALL iom_put('CHLTSFC',trn(:,:,1,jpnch) + trn(:,:,1,jpdch) ) 
    136       CALL iom_put('POCTSFC',trn(:,:,1,jppoc) + trn(:,:,1,jpgoc) ) 
    137       CALL iom_put('PFETSFC',trn(:,:,1,jpnfe) + trn(:,:,1,jpdfe) ) 
    138127#endif 
    139128      ! 
Note: See TracChangeset for help on using the changeset viewer.